Cookies tgħinna jagħti servizzi tagħna. Bl-użu tas-servizzi tagħna, inti taqbel li l-użu tagħna ta 'cookies.
Tip: Lingwi oħra huma tradotti minn Google. Tista 'żżur il - English verżjoni ta 'din ir-rabta.
log in
x
or
x
x
reġistru
x

or

Kif tinqasam id-dejta f'folji ta 'ħidma multipli bbażati fuq kolonna f'Excel?

Ħalli jkollok folja b'ringieli enormi ta 'data, u issa, trid taqsam id-data f'fabbri multipli bbażati fuq isem kolonna (ara l-screenshot li ġej), u l-ismijiet jiddaħħlu bl-addoċċ. Forsi tista 'issolvihom l-ewwel, u mbagħad kopja u paste minnhom wieħed wieħed għal ieħor fuq worksheets ġodda. Iżda dan se jeħtieġ il-paċenzja tiegħek biex tikkopja u twaħħal diversi drabi. Illum, ser nitkellem dwar xi tricks ta 'malajr biex issolvi din il-ħidma.

Dok split data skond il-kolonni 1

Iddeskrivi dejta f'diversi worksheets bbażati fuq kolonna b'kodiċi VBA

Iddeskrivi dejta f'diversi worksheets bbażati fuq kolonna b'Kutools għal Excel


Id-data maqsuma f'diversi worksheets bbażati fuq għadd speċifiku ta 'kolonni jew ringieli fil-worksheet:

Jekk trid tqassam worksheet kbar f'folji multipli bbażati fuq dejta tal-kolonna speċifika jew numru ta 'ringieli, il-paġna Kutools għal Excel's Data maqsuma Il-karatteristika tista 'tgħinek issolvi din il-ħidma malajr u faċilment.

Dok split data skond il-kolonni 6

Kutools għal Excel: b'żieda ta 'aktar minn 200 handy Excel, ħielsa li tipprova mingħajr ebda limitazzjoni f'jiem 60. Tniżżel u tipprova b'xejn Now!


Iddeskrivi dejta f'diversi worksheets bbażati fuq kolonna b'kodiċi VBA


Jekk trid taqsam id-dejta bbażata fuq il-valur tal-kolonna malajr u awtomatikament, il-kodiċi VBA li ġej huwa għażla tajba. Jekk jogħġbok ħu hekk:

1. Żomm il-buttuna ALT + F11 ċwievet biex tiftaħ il - Microsoft Visual Basic għall-Applikazzjonijiet tieqa.

2. Ikklikkja Daħħal > Moduli, u paste tal-kodiċi li ġej fit-Tieqa tal-Modulu.

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. Imbagħad, agħfas F5 ċavetta biex tmexxi l-kodiċi, u tinfetaħ kaxxa fil-pront biex tfakkar li tagħżel ir-ringiela tal-intestaturi, ara l-iskrins:

Dok split data skond il-kolonni 7

4. U mbagħad, ikklikkja OK buttuna, u fit-tieni kaxxa tal-pront, jekk jogħġbok agħżel id-data tal-kolonna li trid tinqasam fuqha, ara l-iskrins:

Dok split data skond il-kolonni 8

5. Imbagħad, ikklikkja OK, u d-data kollha fil-worksheet attiva hija maqsuma f'diversi worksheets bil-valur tal-kolonna. U l-worksheets maqsuma huma msemmija bl-ismijiet taċ-ċelluli maqsuma. Ara l-iskrins:

Dok split data skond il-kolonni 2

Nota: Il-worksheets maqsuma huma mqiegħda fl-aħħar tal-ktieb tax-xogħol fejn il-master worksheet tinsab fi.


Iddeskrivi dejta f'diversi worksheets bbażati fuq kolonna b'Kutools għal Excel

Bħala Bidu ta 'Excel, dan il-kodiċi VBA twil huwa kemmxejn diffiċli għalina, u ħafna minna lanqas biss nafu kif timmodifika l-kodiċi bħala l-ħtieġa tagħna.

Hawnhekk, ser nintroduċi inti għodda multifunzjonali -Kutools għal Excel, Tagħha Data maqsuma L-utilità mhux biss tista 'tgħinek biex taqsam id-dejta f'diversi worksheets bbażati fuq il-kolonna, iżda tista' wkoll taqsam id-dejta skont l-għadd ta 'ringieli.

Kutools għal Excel : b'aktar minn 300 handy Excel add-ins, ħielsa li tipprova mingħajr limitazzjoni fil-ġranet 60.

Jekk għandek installat Kutools għal Excel, jekk jogħġbok agħmel kif ġej:

1. Agħżel il-firxa tad-data li trid taqsam.

2. Ikklikkja Kutools Aktar > Worksheet > Data maqsuma, ara screenshot:

Dok split data skond il-kolonni 3

3. Ġol Iddeskrivi d-Data f'Fajls ta 'Ħidma Multipla dialog box, għandek bżonn li:

1). Agħżel Kolonna speċifika għażla fil - Split ibbażat fuq sezzjoni, u agħżel il-valur tal-kolonna li trid taqsam id-dejta bbażata fuq fil-lista li tinżel. (Jekk id-data tiegħek ikollha headers u trid iddaħħalhom f'kull skeda ta 'xogħol ġdida, agħmel kontroll Id-data tiegħi għandha headers għażla).

2). Imbagħad tista 'tispeċifika l - ismijiet tal - worksheet maqsuma, taħt il - Isem ta 'worksheets ġodda taqsima, speċifika r-regoli ta 'l-ismijiet tal-worksheet mir-Regolament Regoli drop down list, tista 'żżid il - Prefix or suffiss għall-ismijiet tal-karta wkoll.

3). Ikklikkja fuq il - OK buttuna. Ara l-screenshot:

Dok split data skond il-kolonni 4

4. Issa d-data hija maqsuma f'diversi worksheets f'karta ta 'ħidma ġdida.

Dok split data skond il-kolonni 5

Ikklikkja biex Tniżżel Kutools għal Excel u Prova Ħielsa Now!


Iddeskrivi dejta f'diversi worksheets bbażati fuq kolonna b'Kutools għal Excel

Kutools għal Excel Tinkludi aktar għodda 300 handy Excel. Ħieles biex tipprova mingħajr limitazzjoni fil-jiem 60. Niżżel il-prova ħielsa issa!


Oġġett relatat:

Kif tinqasam id-dejta f'diversi worksheets skond għadd ta 'ringieli?



Għodda tal-Produttività Rakkomandata

Uffiċċju Tab

star tad-deheb 1 Ġib tabs handy għal Excel u softwer ieħor tal-Uffiċċju, bħal Chrome, Firefox u Internet Explorer ġdid.

Kutools għal Excel

star tad-deheb 1 Amazing! Żid il-produttività tiegħek f'minuti 5. M'għandekx bżonn xi ħiliet speċjali, ħlief sagħtejn kuljum!

star tad-deheb 1 300 Karatteristiċi Ġodda għall-Excel, Għamla Excel Ħafna Faċli u Qawwija:

  • Merge Cell / Ringieli / Kolonni mingħajr ma titlef id-Data.
  • Għaqqad u Tikkonsolida Folji Multipli u Kotba tax-Xogħol.
  • Qabbel ir-Ranges, Kopja Multipla Ranges, Ikkonverti Test sa Data, Unità u l-Konverżjoni Munita.
  • Għadd bil-Kuluri, Subtotali tal-Pejġing, Sort Avvanzat u Iffiltra Super,
  • Iktar Agħżel / Daħħal / Ħassar / Test / Format / Rabta / Kumment / Kotba tax-Xogħol / Worksheets Għodda ...

Screenshot ta &#39;Kutools għal 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.
    rajesh t · 4 years ago
    Working Perfect, Need know how copy only the few columns?
  • To post as a guest, your comment is unpublished.
    cheryle · 4 years ago
    Do you have a code for splitting by row header instead of column?
  • To post as a guest, your comment is unpublished.
    Andrew Hope · 4 years ago
    Works perfect! But what if I want to add totals to each of the newly created sheets, given that each sheet has a different amount of rows.
  • To post as a guest, your comment is unpublished.
    dnyaga · 4 years ago
    Great stuff,Have been doing this manually.Will save alot of time
  • To post as a guest, your comment is unpublished.
    Patrick S · 4 years ago
    I cannot get this to transfer more that one row for the header.
    I need the first 10 rows transferred to each sheet. I have tried changing title = "A1:C1" to: title = "A1:L10" and title = "1:10" but it still just transfers the first row.
    Please help. Thank you