Cookies nám pomáhajú poskytovať naše služby. Využitím našich služieb, súhlasíte s našimi používanie cookies.
Tip: Iné jazyky sú Google preložené. Môžete navštíviť English verziu tohto odkazu.
Prihlásiť sa
x
or
x
x
Registrovať
x

or

Ako rozdeliť údaje do viacerých hárkov na základe stĺpca v programe Excel?

Predpokladajme, že máte pracovný hárok s obrovskými riadkami údajov a teraz musíte rozdeliť údaje do viacerých pracovných hárkov na základe názov stĺpec (pozrite si nasledujúci obrázok obrazovky) a názvy sú zadané náhodne. Možno ich môžete najskôr zoradiť a potom ich skopírovať a vložiť jeden po druhom do ďalších pracovných hárkov. Toto však bude vyžadovať vašu trpezlivosť opakovane kopírovať a vkladať. Dnes budem hovoriť o niekoľkých rýchlych trikoch na vyriešenie tejto úlohy.

doc rozdeliť údaje podľa stĺpcov 1

Rozdeliť údaje do viacerých pracovných hárkov na základe stĺpca s kódom VBA

Rozdeliť údaje do viacerých pracovných hárkov na základe stĺpca s programom Kutools for Excel


Rozdeliť údaje do viacerých pracovných hárkov založených na konkrétnom stĺpci alebo riadkoch v pracovnom hárku:

Ak chcete rozdeliť veľký pracovný hárok na viacero hárkov na základe konkrétnych údajov stĺpcov alebo riadkov, zistíte, Kutools pre Excel's Split Data funkcia vám pomôže rýchlo a ľahko vyriešiť túto úlohu.

doc rozdeliť údaje podľa stĺpcov 6

Kutools pre Excel: s viac ako 200 šikovnými doplnkami programu Excel, môžete skúsiť bez obmedzenia v dňoch 60. Stiahnite si bezplatnú skúšobnú verziu teraz!


Rozdeliť údaje do viacerých pracovných hárkov na základe stĺpca s kódom VBA


Ak chcete rýchlo a automaticky rozdeliť údaje na základe hodnoty stĺpca, je dobrým výberom nasledujúci kód VBA. Postupujte takto:

1, Podržte stlačené tlačidlo ALT + F11 klávesy na otvorenie Microsoft Visual Basic pre aplikácie okno.

2, kliknite Vložiť > Modulya vložte nasledujúci kód do okna Modul.

Sub Splitdatabycol()
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
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
Sheets.Add(after:=Worksheets(Worksheets.Count)).Name = myarr(i) & ""
Else
Sheets(myarr(i) & "").Move after:=Worksheets(Worksheets.Count)
End If
xWSTRg.Range(title).Copy
Sheets(myarr(i) & "").Paste Destination:=Sheets(myarr(i) & "").Range("A1")
ws.Range("A" & (titlerow + xTRg.Rows.Count) & ":A" & lr).EntireRow.Copy Sheets(myarr(i) & "").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, Potom stlačte tlačidlo F5 kľúč na spustenie kódu a zobrazí sa výzva na pripomenutie výberu riadku hlavičky, pozri snímku obrazovky:

doc rozdeliť údaje podľa stĺpcov 7

4, A potom kliknite na tlačidlo OK a v druhej výzve vyberte údaje o stĺpcoch, ktoré chcete rozdeliť na základe obrázka:

doc rozdeliť údaje podľa stĺpcov 8

5, Potom kliknite na tlačidlo OK, a všetky údaje v aktívnom pracovnom hárku sú rozdelené do viacerých hárkov podľa hodnoty stĺpca. Rozdelené pracovné hárky sú pomenované názvami rozdelených buniek. Pozrite si snímku obrazovky:

doc rozdeliť údaje podľa stĺpcov 2

Poznámky: Rozdelené pracovné hárky sú umiestnené na konci pracovného zošitu, na ktorom je hlavný pracovný hárok.


Rozdeliť údaje do viacerých pracovných hárkov na základe stĺpca s programom Kutools for Excel

Ako začiatočník programu Excel je tento dlhý kód VBA pre nás trochu ťažký a väčšina z nás dokonca ani nevie, ako zmeniť kód ako našu potrebu.

Tu vám predstavím multifunkčný nástroj -Kutools pre Excel, jeho Split Data pomôcka nielenže vám môže pomôcť rozdeliť dáta do viacerých pracovných hárkov na základe stĺpca, ale tiež rozdeliť dáta podľa počtu riadkov.

Kutools pre Excel : s viac ako 300 šikovnými doplnkami programu Excel, môžete skúsiť bez obmedzenia v dňoch 60.

Ak ste nainštalovali Kutools pre Excel, prosím, postupujte takto:

1, Vyberte rozsah údajov, ktoré chcete rozdeliť.

2, kliknite Kutools Plus > Pracovný list > Split Data, pozri snímku obrazovky:

doc rozdeliť údaje podľa stĺpcov 3

3. V Rozdeliť údaje do viacerých pracovných hárkov dialógové okno, musíte:

1). vybrať Špecifický stĺpec možnosť v Rozdelenie na základe a vyberte hodnotu stĺpca, ktorú chcete rozdeliť podľa rozbaľovacieho zoznamu. (Ak majú vaše dáta hlavičky a chcete ich vložiť do každého nového rozdeleného pracovného hárka, skontrolujte ich Moje údaje majú hlavičky voľba).

2). Potom môžete zadať názvy rozdelených hárkov pod Názov nového pracovného hárka , zadajte pravidlá názvov pracovných hárkov z Pravidlá rozbaľovací zoznam, môžete pridať Predpona or prípona pre názvy tabuliek.

3). Kliknite na tlačidlo OK Tlačidlo. Pozri snímku obrazovky:

doc rozdeliť údaje podľa stĺpcov 4

4, Teraz sú údaje rozdelené do viacerých pracovných hárkov v novom zošite.

doc rozdeliť údaje podľa stĺpcov 5

Kliknite pre stiahnutie Kutools pre Excel a bezplatné skúšanie Teraz!


Rozdeliť údaje do viacerých pracovných hárkov na základe stĺpca s programom Kutools for Excel

Kutools pre Excel obsahuje viac ako 300 užitočné nástroje Excel. Bezplatne vyskúšať bez obmedzenia v dňoch 60. Prevezmite bezplatnú skúšobnú verziu teraz!


Súvisiaci článok:

Ako rozdeliť údaje do viacerých pracovných hárkov pomocou riadkov?



Odporúčané nástroje produktivity

Karta Office

zlatá hviezdička1 Prinášajte užitočné karty do programu Excel a iného softvéru balíka Office, rovnako ako Chrome, Firefox a nový Internet Explorer.

Kutools pre Excel

zlatá hviezdička1 Úžasný! Zvýšte svoju produktivitu za minúty 5. Nepotrebujú žiadne špeciálne schopnosti, okrem dvoch hodín denne!

zlatá hviezdička1 300 Nové funkcie pre program Excel, robiť Excel veľmi ľahké a výkonné:

  • Zlúčiť bunky / riadky / stĺpce bez straty dát.
  • Kombinácia a konsolidácia viacerých hárkov a pracovných kníh.
  • Porovnanie rozsahov, kopírovanie viacerých rozsahov, prevod textu na dátum, konverzia jednotiek a mien.
  • Počet podľa farieb, Medzisúčty stránkovania, Rozšírené triedenie a Super filter,
  • Viac Vyberte / Vložiť / Odstrániť / Text / Formát / Odkaz / Komentár / Pracovné zošity / pracovné listy Nástroje ...

Obraz obrazovky Kutools pre Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    RiggaToni · 1 years ago
    Thank you! Saved me a ton of time!
  • To post as a guest, your comment is unpublished.
    Shwetha · 1 years ago
    Thank you for the code. It works good. It saved me lot of time from recreating the whole thing.
  • To post as a guest, your comment is unpublished.
    Anshul Gupta · 1 years ago
    Hi, My files doesn't have titles, how can i tweak the code such that it won't contain first row as title
  • To post as a guest, your comment is unpublished.
    RC-S · 1 years ago
    You are quite frankly amazing. This macro saved my bacon in more ways than one :lol:
  • To post as a guest, your comment is unpublished.
    D C · 2 years ago
    VBA code is very good .It saves a lot of time thank your for this code thank you very much........................................................