2 Mabilis na Nangangahulugan na Hatiin ang Mga Nilalaman ng isang Excel Worksheet sa Maramihang Mga Workbook Batay sa isang Tiyak na Haligi

Kung minsan, sa pagsusuri ng datos, maaaring kailanganin mong hatiin ang mga nilalaman ng isang worksheet sa Excel sa maraming workbook sa Excel ayon sa isang partikular na kolum. Ngayon, sa post na ito, ituturo namin sa iyo ang 2 mabilis na paraan upang makuha ito.

Maraming mga gumagamit ang madalas na kailangang hatiin ang isang worksheet ng Excel na naglalaman ng malalaking mga hilera ng data sa maraming magkakahiwalay na mga workbook ng Excel batay sa isang tukoy na haligi. Halimbawa, narito ang aking sample na worksheet ng Excel. Nais kong hatiin ang data ng sheet na ito batay sa haligi na "Presyo ng solong lisensya (US $)" sa maraming mga workbook.

Sa pangkalahatan, malamang na gamitin mo ang sumusunod na Paraan 1 upang manu-manong mag-filter at kopyahin ang data. Ngunit, ito ay magiging lubos na nakakapagod at hangal kung maraming mga pagpipilian sa filter. Samakatuwid, dito rin namin ipinapakita ang isang mas maraming paraan na maginhawa - Paraan 2, na gumagamit ng VBA. Ngayon, basahin upang makuha ang mga ito nang detalyado.

Paraan 1: Kopyahin ang Mga Nilalaman upang Paghiwalayin ang Mga Workbook ng Excel pagkatapos ng Filter

1. Sa una, pumili ng isang cell sa tukoy na haligi, tulad ng "Cell B1" sa aking sariling halimbawa.
2. Pagkatapos, buksan ang tab na "Data" at i-click ang pindutang "Filter".
3. Susunod, i-click ang pindutang "pababang arrow" sa header ng haligi upang ipakita ang isang listahan ng mga pagpipilian sa filter.
4. Ngayon, alisan ng tsek ang pagpipiliang "(Piliin Lahat)".
5. Pagkatapos nito, maaari kang pumili ng isang pagpipilian sa filter, tulad ng "29.95" sa aking halimbawa, at i-click ang "OK".
6. Kaagad, ang data lamang, na ang halaga sa Column B ay "29.95", ang maiiwan.
7. Pagkatapos, kopyahin ang na-filter na data at i-paste ang mga ito sa isang bagong workbook ng Excel.
8. Mamaya, gamitin ang parehong paraan upang hatiin ang iba pang data upang paghiwalayin ang mga workbook ng Excel.

Paraan 2: Batch Hatiin ang Mga Nilalaman sa Maramihang Mga Workbook ng Excel sa pamamagitan ng VBA

1. Sa unang lugar, tiyaking binuksan ang tukoy na worksheet.
2. Susunod, ilunsad ang VBA editor ayon sa “Paano Patakbuhin ang VBA Code sa Iyong Excel".
3. Pagkatapos, ilagay ang sumusunod na code sa proyekto na "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. Pagkatapos nito, i-click ang icon na "Run" sa toolbar o pindutin ang "F5" key button.
5. Kapag natapos ang macro, ang magkakahiwalay na mga workbook ng Excel ay lilikha ng split data mula sa pinagmulan ng worksheet.
6. Ang bawat workbook ay magiging katulad ng sumusunod na screenshot.

paghahambing

Pigilan ang Pagkawala ng Data ng Excel

Kahit na ang MS Excel ay nagiging mas advanced at sopistikado, may kaugaliang pa rin itong mag-crash dahil sa iba't ibang mga kadahilanan, tulad ng nakakahamak na mga idinagdag na third party o error ng tao at iba pa Dahil ang pag-crash ng Excel ay maaaring direktang humantong sa Katiwalian sa Excel, upang maiwasan ang pagkawala ng data ng Excel, kailangan mong i-back up ang iyong mga file ng Excel sa isang regular na batayan. Kung hindi man, kailangan mong maglapat ng isang tool sa pag-aayos ng Excel, tulad ng DataNumen Excel Repair upang ayusin ang mga nasirang file ng Excel.

Panimula ng May-akda:

Si Shirley Zhang ay isang dalubhasa sa pagbawi ng data sa DataNumen, Inc., na pinuno ng mundo sa mga teknolohiya sa pagbawi ng data, kasama ang SQL Server magkumpuni at pananaw sa pag-aayos ng mga produktong software. Para sa karagdagang impormasyon pagbisita www.datanumen. Sa