,, hvis du ønsker at dele data baseret på kolonnen værdi hurtigt og automatisk følgende vba kodeks er et godt valg.gør dette:,,,.,.hold den, alat + f11, nøgler til at åbne den, microsoft visual basic for ansøgninger, vindue.,,,. 2.Click ,Insert, > ,Module,, and paste the following code in the Module Window.,,,Sub parse_data() 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 vcol = 1 Set ws = Sheets("Sheet1") lr = ws.Cells(ws.Rows.Count, vcol).End(xlUp).Row title = "A1:C1" titlerow = ws.Range(title).Cells(1).Row icol = ws.Columns.Count ws.Cells(1, icol) = "Unique" For i = 2 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. gennemfører (ws. kolonne (icol). specialcells (xlcelltypeconstants) ws. kolonne (icol). klart, for jeg = 2 - ubound (myarr) ws. rækkevidde (titel). autofilter område: = vcol, criteria1: = myarr (i) &. "" hvis ikke vurdere ("= isref (" & myarr (i) & ".A1)") Then Sheets.Add(after:=Worksheets(Worksheets.Count)).Name = myarr(i) & "" Else Sheets(myarr(i) & "").Move after:=Worksheets(Worksheets.Count) End If ws.Range("A" & titlerow & ":A" & lr).EntireRow.Copy Sheets(myarr(i) & "").Range("A1") Sheets(myarr(i) & "").Columns.AutoFit Next ws.AutoFilterMode = False ws.Activate End Sub ,,,Note,: In the above code:,,vcol =1, the number, 1, is the column number that you want to split the data based on.,Set ws = Sheets("Sheet1"),Sheet1, is the sheet name that you want to apply this code.,title = "A1:C1",A1:C1, is the range of the title.,,All of them are variables, you can change them as your need.,,,3,. så tryk, f5, nøglen til at løbe den kode, alle data i den aktive arbejdsplan er opdelt i flere opgaver i kolonnen værdi.og dele opgaverne er opkaldt med delt celle navne.se skærmbillede:,,,,,, note: dele opgaverne er anbragt i slutningen af arbejdsbog, hvor føreren arbejdsplan er i.,,,,, dele data i flere opgaver baseret på en kolonne med kutools for excel,,, som et excel - begynder, så længe vba kode er noget vanskeligt for os, og de fleste af os ved ikke hvordan til at ændre den kode, som vores behov.,,, jeg vil præsentere dig for et multifunktionelt instrument -, kutools for excel, dets dele data, anvendelighed, ikke kun kan hjælpe dig til at dele data i flere opgaver på grundlag af kolonne, men også kan dele oplysninger med rækker tæller.,,, kutools for excel. omfatter mere end 120 handy excel - regneark.gratis prøve uden begrænsning i 30 dage.få det nu,, hvis du har installeret kutools for excel, gør som følger:,,,.,.vælg den vifte af data, at du vil dele.,,,. 2.klik, enterprise >, kladde, > dele data (eller enterprise > dele data), se skærmbillede:,,,,,, 3.i deler data i flere papirer, dialog kasse, - - skal du:,, 1).udvælge særlige kolonne, mulighed for, opdelt på grundlag af afsnit og vælge den kolonne værdi, som du vil dele de oplysninger, der er baseret på den ud.(hvis data er personer, og du ønsker at indsætte dem i hver ny dele kladde, venligst, mine oplysninger er headers mulighed.) 2).så kan du præcisere delt kladde navne på de nye opgaver navn, afsnit, angives den arbejdsplan navne regler, regler, fald ned, du kan tilføje, præfiks eller suffiks,, for blad navne samt., 3).klik, okay, button.se skærmbillede:,,,,, nu data opdeles i flere opgaver i en ny dagbog.,,,,,, klik til at vide mere om denne opdelte data træk.,,,,