Sut i rannu data mewn taflenni gwaith lluosog yn seiliedig ar golofn yn Excel?

Gan dybio bod gennych daflen waith gyda rhesi enfawr o ddata, a nawr, mae angen i chi rannu'r data yn nifer o daflenni gwaith yn seiliedig ar y enw colofn (gweler y sgrin ganlynol), ac mae'r enwau yn cael eu cofnodi ar hap. Efallai y gallwch chi eu datrys yn gyntaf, ac wedyn eu copïo a'u gludio un i un i mewn i daflenni gwaith newydd eraill. Ond bydd angen amynedd arnoch i gopïo a gludo dro ar ôl tro. Heddiw, siaradaf am rai driciau cyflym i ddatrys y dasg hon.

Rhannwch ddata i daflenni gwaith lluosog yn seiliedig ar golofn gyda chod VBA

Rhannwch ddata mewn taflenni gwaith lluosog yn seiliedig ar golofn gyda Kutools ar gyfer Excel

Rhannwch ddata i daflenni gwaith lluosog yn seiliedig ar golofn gyda chod VBA

Yn rhyfeddol! Defnyddio Tabiau Effeithlon yn Excel Fel Chrome, Firefox a Safari!

Os ydych chi eisiau rhannu'r data yn seiliedig ar werth y golofn yn gyflym ac yn awtomatig, mae'r cod VBA canlynol yn ddewis da. Gwnewch fel hyn:

1. Dal i lawr y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Ffenestr Modiwl.

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. Yna, pwyswch F5 allwedd i redeg y cod, ac mae blwch prydlon wedi'i datgelu i'ch atgoffa yn dewis y rhes pennawd, gweler y sgrin:

4. Ac yna, cliciwch OK botwm, ac yn yr ail blwch prydlon, dewiswch y data colofn yr ydych am ei rannu yn seiliedig ar, gweler y sgrin:

5. Yna, cliciwch OK, ac mae'r holl ddata yn y daflen waith weithredol wedi'i rhannu'n sawl taflen waith gan werth y golofn. Ac mae'r taflenni gwaith rhanedig wedi'u henwi gyda'r enwau celloedd rhannol. Gweler y sgrin:

Nodyn: Rhoddir y taflenni gwaith ar ddiwedd y llyfr gwaith lle mae'r daflen waith feistr.

Rhannwch ddata mewn taflenni gwaith lluosog yn seiliedig ar golofn gyda Kutools ar gyfer Excel

Fel dechreuwr Excel, mae'r cod VBA hir hwn braidd yn anodd i ni, ac nid yw'r rhan fwyaf ohonom hyd yn oed yn gwybod sut i addasu'r cod fel ein hangen.

Yma, byddaf yn cyflwyno offeryn amlswyddogaethol i chi -Kutools ar gyfer Excel, ei Rhannu Data gall cyfleustodau nid yn unig eich helpu chi i rannu data mewn taflenni gwaith lluosog yn seiliedig ar golofn, ond gall hefyd rannu data yn ôl cyfrifon rhesi.

Os ydych chi wedi gosod Kutools ar gyfer Excel, gwnewch fel a ganlyn:

1. Dewiswch yr ystod o ddata rydych chi am ei rannu.

2. Cliciwch Kutools Mwy > Taflen waith > Rhannu Data, gweler y sgrin:

3. Yn y Rhannwch y Data i Daflenni Gwaith Lluosog blwch deialog, mae angen i chi:

1). Dewiswch Colofn benodol opsiwn yn y Rhannwch yn seiliedig ar , a dewiswch y gwerth golofn yr ydych am rannu'r data yn seiliedig ar y rhestr ostwng. (Os oes gan eich data benawdau a'ch bod am eu mewnosod i bob taflen waith newydd, gwiriwch Mae gan fy data benawdau opsiwn.)

2). Yna gallwch chi nodi enwau rhannau'r daflen waith, o dan y Enw taflenni gwaith newydd adran, nodwch reolau enwau'r daflen waith oddi wrth y Rheolau rhestr alw heibio, gallwch ychwanegu'r Rhagolwg or Ôl-ddodiad ar gyfer yr enwau taflenni hefyd.

3). Cliciwch y OK botwm. Gweler y sgrin:

4. Nawr mae'r data wedi'i rannu'n daflenni gwaith lluosog mewn llyfr gwaith newydd.

Cliciwch i Lawrlwythwch Kutools for Excel a threial am ddim Nawr!

Rhannwch ddata mewn taflenni gwaith lluosog yn seiliedig ar golofn gyda Kutools ar gyfer Excel

Kutools ar gyfer Excel yn cynnwys mwy na 300 offer llaw defnyddiol. Am ddim i geisio heb gyfyngiad mewn dyddiau 60. Lawrlwythwch y treial am ddim nawr!

Erthygl gysylltiedig:

Sut i rannu data i nifer o daflenni gwaith gan y rhesi yn cyfrif?

Offer Cynhyrchiant a Argymhellir

Tab Swyddfa

Dewch â thafiau defnyddiol i Excel a meddalwedd Swyddfa eraill, yn union fel Chrome, Firefox a Internet Explorer newydd.

Kutools ar gyfer Excel