2 အမြန်နည်းလမ်းများသည် Excel Worksheet ၏အကြောင်းအရာများကို တိကျသောကော်လံတစ်ခုအပေါ်အခြေခံ၍ များစွာသော Workbooks များသို့ ခွဲထုတ်ခြင်း

တစ်ခါတစ်ရံမှာ ဒေတာခွဲခြမ်းစိတ်ဖြာမှုမှာ Excel worksheet တစ်ခုရဲ့ အကြောင်းအရာတွေကို သတ်မှတ်ထားတဲ့ column အလိုက် Excel workbook များစွာအဖြစ် ပိုင်းခြားဖို့ လိုအပ်နိုင်ပါတယ်။ အခု ဒီ post မှာ ဒါကိုရယူဖို့ မြန်ဆန်တဲ့ နည်းလမ်း ၂ ခုကို သင်ကြားပေးပါမယ်။

အသုံးပြုသူအများအပြားသည် သီးခြားကော်လံတစ်ခုအပေါ် အခြေခံ၍ သီးခြား Excel workbook အများအပြားတွင် ဒေတာအမြောက်အမြားပါရှိသော Excel worksheet ကို မကြာခဏ ခွဲရန် လိုအပ်ပါသည်။ ဥပမာအားဖြင့်၊ ဤသည်မှာ ကျွန်ုပ်၏ Excel နမူနာစာရွက်ဖြစ်ပါသည်။ "လိုင်စင်တစ်ခု၏စျေးနှုန်း (US$)" ကော်လံကို အခြေခံ၍ ဤစာရွက်၏ဒေတာကို အလုပ်စာအုပ်များစွာအဖြစ် ခွဲထုတ်လိုပါသည်။

ယေဘုယျအားဖြင့်၊ သင်သည် ဒေတာကို ကိုယ်တိုင်စစ်ထုတ်ပြီး ကူးယူရန် အောက်ပါနည်းလမ်း 1 ကို အသုံးပြုလေ့ရှိပါသည်။ သို့သော် filter ရွေးချယ်မှုများများလွန်းပါက၊ ၎င်းသည်အလွန်ပျင်းရိပြီးမိုက်မဲလိမ့်မည်။ ထို့ကြောင့်၊ ဤနေရာတွင် ကျွန်ုပ်တို့သည် VBA ကိုအသုံးပြုသည့် ပိုမိုအဆင်ပြေသောနည်းလမ်း- Method 2 ကိုပြသထားသည်။ ယခု ၎င်းတို့ကို အသေးစိတ်သိရှိနိုင်ရန် ဆက်လက်ဖတ်ရှုပါ။

နည်းလမ်း 1- စစ်ထုတ်ပြီးနောက် Excel Workbooks တွင် အကြောင်းအရာများကို ကော်ပီကူးပါ။

1. အစတွင်၊ ကျွန်ုပ်၏ကိုယ်ပိုင်ဥပမာတွင် “Cell B1” ကဲ့သို့သော သီးခြားကော်လံရှိ ဆဲလ်တစ်ခုကို ရွေးပါ။
2. ထို့နောက် "ဒေတာ" တက်ဘ်သို့လှည့်ပြီး "စစ်ထုတ်ခြင်း" ခလုတ်ကိုနှိပ်ပါ။
3. ထို့နောက်၊ စစ်ထုတ်မှုရွေးချယ်မှုစာရင်းကိုပြသရန် ကော်လံခေါင်းစီးရှိ “အောက်မြှား” ခလုတ်ကို နှိပ်ပါ။
4. ယခု၊ “(အားလုံးရွေးချယ်ပါ)” ရွေးချယ်မှုကို အမှန်ခြစ်ဖြုတ်ပါ။
5. ထို့နောက်၊ ကျွန်ုပ်၏နမူနာတွင် “29.95” ကဲ့သို့ စစ်ထုတ်မှုရွေးချယ်မှုတစ်ခုကို သင်ရွေးချယ်နိုင်ပြီး “OK” ကိုနှိပ်ပါ။
6. ကော်လံ B တွင် တန်ဖိုး "29.95" ဖြစ်သည့် ဒေတာများသာ တစ်ချိန်တည်းတွင် ကျန်နေပါမည်။
7. ထို့နောက် စစ်ထုတ်ထားသောဒေတာကို ကူးယူပြီး Excel အလုပ်စာအုပ်အသစ်တွင် ကူးထည့်ပါ။
8. နောက်ပိုင်းတွင်၊ Excel workbooks များကို ခွဲခြားရန် အခြားဒေတာများကို ခွဲထုတ်ရန် အလားတူနည်းလမ်းကို အသုံးပြုပါ။

နည်းလမ်း 2- VBA မှတစ်ဆင့် အကြောင်းအရာများစွာကို Excel Workbooks သို့ အစုလိုက်ခွဲထုတ်ပါ။

1. ပထမနေရာတွင်၊ သီးခြားအလုပ်စာရွက်ကိုဖွင့်ထားကြောင်း သေချာပါစေ။
2. ထို့နောက် "" အရ VBA တည်းဖြတ်သူကိုဖွင့်ပါ။သင်၏ Excel တွင် VBA ကုဒ်ကိုမည်သို့ဖွင့်မည်နည်း။"။
3. ထို့နောက် အောက်ပါကုဒ်ကို “ThisWorkbook” ပရောဂျက်တွင် ထည့်ပါ။

Sub SplitSheetDataIntoMultipleWorkbooksBasedOnSpecificColumn()
    Dim objWorksheet As Excel.Worksheet
    Dim nLastRow, nRow, nNextRow As Integer
    Dim strColumnValue As String
    Dim objDictionary As Object
    Dim varColumnValues As Variant
    Dim varColumnValue As Variant
    Dim objExcelWorkbook As Excel.Workbook
    Dim objSheet As Excel.Worksheet
 
    Set objWorksheet = ActiveSheet
    nLastRow = objWorksheet.Range("A" & objWorksheet.Rows.Count).End(xlUp).Row
 
    Set objDictionary = CreateObject("Scripting.Dictionary")
 
    For nRow = 2 To nLastRow
        'Get the specific Column
        'Here my instance is "B" column
        'You can change it to your case
        strColumnValue = objWorksheet.Range("B" & nRow).Value
 
        If objDictionary.Exists(strColumnValue) = False Then
           objDictionary.Add strColumnValue, 1
        End If
    Next
 
    varColumnValues = objDictionary.Keys
 
    For i = LBound(varColumnValues) To UBound(varColumnValues)
        varColumnValue = varColumnValues(i)
 
        'Create a new Excel workbook
        Set objExcelWorkbook = Excel.Application.Workbooks.Add
        Set objSheet = objExcelWorkbook.Sheets(1)
        objSheet.Name = objWorksheet.Name
 
        objWorksheet.Rows(1).EntireRow.Copy
        objSheet.Activate
        objSheet.Range("A1").Select
        objSheet.Paste
 
        For nRow = 2 To nLastRow
            If CStr(objWorksheet.Range("B" & nRow).Value) = CStr(varColumnValue) Then
               'Copy data with the same column "B" value to new workbook
               objWorksheet.Rows(nRow).EntireRow.Copy
  
               nNextRow = objSheet.Range("A" & objWorksheet.Rows.Count).End(xlUp).Row + 1
               objSheet.Range("A" & nNextRow).Select
               objSheet.Paste
               objSheet.Columns("A:B").AutoFit
            End If
        Next
    Next
End Sub

4. ထို့နောက် ကိရိယာဘားရှိ “Run” အိုင်ကွန်ကို နှိပ်ပါ သို့မဟုတ် “F5” ခလုတ်ခလုတ်ကို နှိပ်ပါ။
5. macro ပြီးသောအခါ၊ သီးခြား Excel workbooks များကို မူရင်း Excel worksheet မှ ခွဲခြမ်းဒေတာဖြင့် ဖန်တီးပါမည်။
6. အလုပ်စာအုပ်တစ်အုပ်စီသည် အောက်ပါစခရင်ပုံစခရင်ပုံကဲ့သို့ ဖြစ်လိမ့်မည်။

နှိုင်းယှဉ်မှု

Excel Data ဆုံးရှုံးမှုကို ကာကွယ်ပါ။

MS Excel သည် ပိုမိုအဆင့်မြင့်ပြီး ဆန်းပြားလာသည်ဆိုသော်လည်း၊ အန္တရာယ်ရှိသော ပြင်ပအဖွဲ့အစည်း ပေါင်းထည့်မှုများ သို့မဟုတ် လူသားအမှားအယွင်းများကဲ့သို့သော အမျိုးမျိုးသော အကြောင်းအချက်များကြောင့် အချိန်နှင့်အမျှ ပျက်စီးသွားတတ်သည်။ Excel ပျက်ကျခြင်းမှ တိုက်ရိုက်ဦးတည်နိုင်သောကြောင့်ဖြစ်သည်။ Excel ဖောက်ပြန်မှုExcel ဒေတာဆုံးရှုံးမှုကိုရှောင်ရှားရန်၊ သင်သည်သင်၏ Excel ဖိုင်များကိုပုံမှန်အရန်ကူးရန်ရှိသည်။ မဟုတ်ပါက၊ ကဲ့သို့သော Excel ပြုပြင်ရေးကိရိယာကိုသင်အသုံးပြုရန်လိုအပ်သည်။ DataNumen Excel Repair ပျက်စီးနေသော Excel ဖိုင်များကိုပြုပြင်ရန်။

စာရေးသူနိဒါန်း:

Shirley Zhang သည် ဒေတာပြန်လည်ရယူရေးဆိုင်ရာ ကျွမ်းကျင်သူဖြစ်သည်။ DataNumen, Inc. အပါအဝင် ဒေတာပြန်လည်ရယူရေးနည်းပညာများတွင် ကမ္ဘာ့ခေါင်းဆောင်ဖြစ်သည်။ SQL Server ပြုပြင် နှင့် outlook ပြုပြင်ရေး software ထုတ်ကုန်များ။ ပိုမိုသိရှိလိုပါကသွားရောက်ကြည့်ရှု www ။datanumen.com