Excel-tips: Dela upp data i flera kalkylblad/arbetsböcker baserat på kolumnvärde

När du hanterar stora datamängder i Excel kan det vara mycket fördelaktigt att dela upp data i flera kalkylblad baserat på specifika kolumnvärden. Denna metod förbättrar inte bara organiseringen av data utan förbättrar också läsbarheten och underlättar dataanalys.

Anta att du har en stor försäljningspost som innehåller flera poster som produktnamnet, kvantiteten såld under det första kvartalet. Målet är att dela upp dessa data i separata kalkylblad baserat på varje produktnamn så att individuella försäljningsresultat kan analyseras separat.

Dela upp data i flera kalkylblad baserat på kolumnvärde

• Genom att använda VBA-kod
• Genom att använda en kraftfull funktion-Kutools för Excel

Dela upp data i flera arbetsböcker baserat på kolumnvärde med VBA-kod

Dela upp data i flera kalkylblad baserat på kolumnvärde

Normalt kan du sortera datalistan först och sedan kopiera och klistra in dem en efter en i andra nya kalkylblad. Men detta kommer att kräva ditt tålamod för att kopiera och klistra upprepade gånger. I det här avsnittet kommer vi att introducera två enkla metoder för att effektivt hantera denna uppgift i Excel, vilket sparar tid och minskar risken för fel.

Dela upp data i flera kalkylblad baserat på kolumnvärde med VBA-kod

1. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

2. klick Insert > Modulernaoch klistra in följande kod i modulfönstret.

Sub Splitdatabycol()
'updateby Extendoffice
Dim lr As Long
Dim ws As Worksheet
Dim vcol, i As Integer
Dim icol As Long
Dim myarr As Variant
Dim title As String
Dim titlerow As Integer
Dim xTRg As Range
Dim xVRg As Range
Dim xWSTRg As Worksheet
Dim xWS As Worksheet
On Error Resume Next
Set xTRg = Application.InputBox("Please select the header rows:", "Kutools for Excel", "", Type:=8)
If TypeName(xTRg) = "Nothing" Then Exit Sub
Set xVRg = Application.InputBox("Please select the column you want to split data based on:", "Kutools for Excel", "", Type:=8)
If TypeName(xVRg) = "Nothing" Then Exit Sub
vcol = xVRg.Column
Set ws = xTRg.Worksheet
lr = ws.Cells(ws.Rows.Count, vcol).End(xlUp).Row
title = xTRg.AddressLocal
titlerow = xTRg.Cells(1).Row
icol = ws.Columns.Count
ws.Cells(1, icol) = "Unique"
Application.DisplayAlerts = False
If Not Evaluate("=ISREF('xTRgWs_Sheet!A1')") Then
Sheets.Add(after:=Worksheets(Worksheets.Count)).Name = "xTRgWs_Sheet"
Else
Sheets("xTRgWs_Sheet").Delete
Sheets.Add(after:=Worksheets(Worksheets.Count)).Name = "xTRgWs_Sheet"
End If
Set xWSTRg = Sheets("xTRgWs_Sheet")
xTRg.Copy
xWSTRg.Paste Destination:=xWSTRg.Range("A1")
ws.Activate
For i = (titlerow + xTRg.Rows.Count) To lr
On Error Resume Next
If ws.Cells(i, vcol) <> "" And Application.WorksheetFunction.Match(ws.Cells(i, vcol), ws.Columns(icol), 0) = 0 Then
ws.Cells(ws.Rows.Count, icol).End(xlUp).Offset(1) = ws.Cells(i, vcol)
End If
Next
myarr = Application.WorksheetFunction.Transpose(ws.Columns(icol).SpecialCells(xlCellTypeConstants))
ws.Columns(icol).Clear
For i = 2 To UBound(myarr)
ws.Range(title).AutoFilter field:=vcol, Criteria1:=myarr(i) & ""
If Not Evaluate("=ISREF('" & myarr(i) & "'!A1)") Then
Set xWS = Sheets.Add(after:=Worksheets(Worksheets.Count))
xWS.Name = myarr(i) & ""
Else
xWS.Move after:=Worksheets(Worksheets.Count)
End If
xWSTRg.Range(title).Copy
xWS.Paste Destination:=xWS.Range("A1")
ws.Range("A" & (titlerow + xTRg.Rows.Count) & ":A" & lr).EntireRow.Copy xWS.Range("A" & (titlerow + xTRg.Rows.Count))
Sheets(myarr(i) & "").Columns.AutoFit
Next
xWSTRg.Delete
ws.AutoFilterMode = False
ws.Activate
Application.DisplayAlerts = True
End Sub

3. Tryck sedan på F5 för att köra koden, och en uppmaningsruta dyker upp för att påminna dig om att välja rubrikraden och klicka sedan på OK. Se skärmdump:

4. I den andra uppmaningsrutan, välj kolumndata som du vill dela upp baserat på och klicka sedan OK. Se skärmdump:

5. All data i det aktiva kalkylbladet är uppdelat i flera kalkylblad baserat på kolumnvärdena. De resulterande kalkylbladen namnges enligt värdena i de delade cellerna och placeras i slutet av arbetsboken. Se skärmdump:

Dela upp data i flera kalkylblad baserat på kolumnvärde med Kutools för Excel

Kutools för Excel ger smart funktion - Split data direkt in i din Excel-miljö. Att dela upp data i flera kalkylblad är inte längre en utmaning. Vårt intuitiva verktyg delar automatiskt upp din datamängd baserat på det valda kolumnvärdet eller antalet rader, vilket säkerställer att varje information är precis där du behöver den. Säg adjö till den tråkiga uppgiften att manuellt organisera dina kalkylblad och omfamna ett snabbare, felfritt sätt att hantera din data.

När du har installerat Kutools för Excel, välj dataintervallet och klicka sedan Kutools Plus > Split data att öppna Dela upp data i flera kalkylblad dialog ruta.

1. Välja Specifik kolumn alternativet i Dela baserat på och välj det kolumnvärde som du vill dela data baserat på från rullgardinsmenyn.
2. Om dina data har rubriker och du vill infoga dem i varje nytt delat kalkylblad, kontrollera Mina data har rubriker alternativ. (Du kan ange antalet rubrikrader baserat på dina data. Om din data till exempel innehåller två rubriker, skriv 2.)
3. Sedan kan du ange namnen på delat kalkylblad under Nytt kalkylbladets namn sektion, ange regeln för kalkylbladsnamn från rullgardinsmenyn Regler, kan du lägga till Prefix or Ändelse för arknamnen också.
4. Klicka på OK knapp. Se skärmdump:
   

Nu delas data i kalkylbladet upp i flera kalkylblad i en ny arbetsbok.

Dela upp data i flera arbetsböcker baserat på kolumnvärde med VBA-kod

Ibland, snarare än att dela upp data i flera kalkylblad, kan det vara mer fördelaktigt att dela upp data i separata arbetsböcker baserat på en nyckelkolumn. Här är en steg-för-steg-guide om hur du använder VBA-kod för att automatisera processen att dela upp data i flera arbetsböcker baserat på ett specifikt kolumnvärde.

1. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

2. klick Insert > Modulernaoch klistra in följande kod i Modulfönster.

Sub SplitDataByColToWorkbooks()
    ' Updateby Extendoffice
    Dim lr As Long
    Dim ws As Worksheet
    Dim vcol, i As Integer
    Dim myarr As Variant
    Dim title As String
    Dim titlerow As Integer
    Dim xTRg As Range
    Dim xVRg As Range
    Dim xWS As Workbook
    Dim savePath As String
    ' Set the directory to save new workbooks
    savePath = "C:\Users\AddinsVM001\Desktop\multiple files\" ' Modify this path as needed
    Application.DisplayAlerts = False
    Set xTRg = Application.InputBox("Please select the header rows:", "Kutools for Excel", Type:=8)
    If TypeName(xTRg) = "Nothing" Then Exit Sub
    Set xVRg = Application.InputBox("Please select the column you want to split data based on:", "Kutools for Excel", Type:=8)
    If TypeName(xVRg) = "Nothing" Then Exit Sub
    vcol = xVRg.Column
    Set ws = xTRg.Worksheet
    lr = ws.Cells(ws.Rows.Count, vcol).End(xlUp).Row
    title = xTRg.Address(False, False)
    titlerow = xTRg.Row
    ws.Columns(vcol).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=ws.Cells(1, ws.Columns.Count), Unique:=True
    myarr = Application.Transpose(ws.Cells(1, ws.Columns.Count).Resize(ws.Cells(ws.Rows.Count, ws.Columns.Count).End(xlUp).Row).Value)
    ws.Cells(1, ws.Columns.Count).Resize(ws.Cells(ws.Rows.Count, ws.Columns.Count).End(xlUp).Row).ClearContents
    For i = 2 To UBound(myarr)
        Set xWS = Workbooks.Add
        ws.Range(title).AutoFilter Field:=vcol, Criteria1:=myarr(i)
        ws.Range("A" & titlerow & ":A" & lr).SpecialCells(xlCellTypeVisible).EntireRow.Copy
        xWS.Sheets(1).Cells(1, 1).PasteSpecial Paste:=xlPasteAll
        xWS.SaveAs Filename:=savePath & myarr(i) & ".xlsx"

        xWS.Close SaveChanges:=False
    Next i
    ws.AutoFilterMode = False
    Application.DisplayAlerts = True
    ws.Activate
End Sub

3. Tryck sedan på F5 för att köra koden, och en uppmaningsruta dyker upp för att påminna dig om att välja rubrikraden och klicka sedan på OK. Se skärmdump:

4. I den andra uppmaningsrutan, välj kolumndata som du vill dela upp baserat på och klicka sedan OK. Se skärmdump:

5. Efter uppdelningen delas all data i det aktiva kalkylbladet upp i flera arbetsböcker baserat på kolumnvärdena. Alla delade arbetsböcker sparas i den mapp du angav. Se skärmdump:

Relaterade artiklar: