, als je wilt dat de gegevens die zijn gebaseerd op de volgende waarden snel en automatisch, de code is een goede keuze.Doe dat alsjeblieft:,, 1.Op het Alt+F11, open de sleutel, Microsoft visuele toepassing, het raam, 2.,,,.Klik, de naam, de >, module, pasta, en van de volgende code in de module.,,, - parse_data (LR) as long as dim dim WS Werkblad dim vcol, I als geheel getal dim icol zoals lange dim myarr als variant dim title als touw dim titlerow als geheel getal vcol = 1 - nb = bladen ("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) = "unieke" voor i = 2 voor de LR fouten weer de volgende als ws.Cells (I, vcol) < >; "" en Application.WorksheetFunction.Match (ws.Cells (I, vcol), ws.Columns (icol) 0) = 0 dan ws.Cells (ws.Rows.Count, icol).End (xlUp).Offset (1) = ws.Cells (I, vcol) aan het einde van de volgende myarr = Application.Worksh alsEetfunction. Omzetting (WS. Kolom (interne koeler pomp). Specialcells (xlcelltypeconstants) de WS. Kolom (interne koeler pomp). Het is duidelijk dat ik = 2, UBound (myarr) de WS. Gebied (titel). Op het gebied van myarr: = = VCOL: (i) & "Als er geen beoordeling (" = isref ("& myarr (ik) &".1) ") - Sheets.Add (after:=Worksheets (Worksheets.Count)). (i) = myarr &" "anders bladen (myarr (i) &" ") (Worksheets.Count) aan het einde van.Move after:=Worksheets als ws.Range (" A "& titlerow &": A & LR).EntireRow.Copy bladen (myarr (i) & "").Range ("1") (myarr platen (i) & "").Columns.AutoFit volgende ws.AutoFilterMode = valse ws.Activate eind -,,,.,:. In het hierboven een,, vcol = 1, de nummer 1, is de Kolom nummer dat wil je de gegevens gebaseerd. WS = bladen (., - 'sheet1 "), is de eerste naam sheet1, dat wil je op deze code. A1:C1, title =", A1:C1 ", is het bereik van de title., alle van hen zijn, of je kan veranderen, maar als je need.,,, 3.En de pers F5, code, in de werkzaamheden van alle in de tabel vermelde gegevens in een kolom van de tabel in waarde.In de tabel met de delende cellen en de naam.Kijk 's:,,,,,, noot: Resolutie van de tabel in het werk in de eerste tabel aan het einde van het Werkboek.,,,,, dat gebaseerd is op de resolutie - gegevens van pluraliteit van de tabel, kutools als,, Excel beginners, deze lange VBA code is voor ons een beetje moeilijk, de meesten van ons weet niet eens hoe een wijziging van de code, die we nodig hebben. En hier, ik wil je voorstellen aan een veelzijdig instrument kutools Excel,,, gegevens uit niet alleen kan je helpen om de gegevens in de tabel op basis van het werk in een aantal lijnen, kan ook op De afscherming van de gegevens.,,, kutools Excel, met inbegrip van meer dan 120 gelegen goed gereedschap.Gratis 30 dagen zonder beperkingen.Tot nu,,,, als u geïnstalleerd kutools Excel, alsjeblieft, als volgt:,, 1.De keuze van de gegevens uit de werkingssfeer.Klik, de ondernemingen, de > >,, in de tabel, resolutie van gegevens (of ondernemingen, >, van delen van gegevens,), zie de schoten:,,,,,, 3.In de versplintering in een tabel, data, dialoog, moet je:,, 1).Op basis van de in de "resolutie", "specifieke", "resolutie", "resolutie", "" "", en de keuze van de gegevens uit een lijst van de waarden.Als je de gegevens van het eerste document, wil je ze in elke nieuwe resolutie in de tabel, controleer mijn gegevens, zijn hoofd, de selectie.), 2).Dan kan je de namen van de plaat die resolutie, in de nieuwe naam, en voor een deel op de regels van de regels, een naam, de lijst. Je kan nog een prefix of suffix,,,,,, voor de tafel ook. 3).Klik.Kijk 's:,,,,, nu de gegevens in een veelheid van werk een nieuwe tabel van de werkboeken.,,,,,, meer leren over deze verdeling van de kenmerken van de gegevens,.,,,