Sut i rannu data yn daflenni gwaith lluosog yn seiliedig ar golofn yn Excel?
Gan dybio bod gennych daflen waith gyda rhesi enfawr o ddata, ac yn awr, mae angen i chi rannu'r data yn daflenni gwaith lluosog yn seiliedig ar y Enw colofn (gweler y screenshot canlynol), a chaiff yr enwau eu nodi ar hap. Efallai y gallwch chi eu didoli yn gyntaf, ac yna eu copïo a'u pastio fesul un i daflenni gwaith newydd eraill. Ond bydd hyn angen eich amynedd i gopïo a gludo dro ar ôl tro. Heddiw, byddaf yn siarad am rai triciau cyflym i ddatrys y dasg hon.
Rhannwch ddata yn daflenni gwaith lluosog yn seiliedig ar golofn gyda chod VBA
Rhannwch ddata i mewn i daflenni gwaith lluosog yn seiliedig ar golofn gyda Kutools ar gyfer Excel
Rhannwch ddata yn daflenni gwaith lluosog yn seiliedig ar golofn gyda chod VBA
Os ydych chi am rannu'r data yn seiliedig ar werth colofn yn gyflym ac yn awtomatig, mae'r cod VBA canlynol yn ddewis da. Gwnewch fel hyn:
1. Daliwch 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()
'updateby Extendoffice
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
Dim xWS 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
Set xWS = Sheets.Add(after:=Worksheets(Worksheets.Count))
xWS.Name = myarr(i) & ""
Else
xWS.Move after:=Worksheets(Worksheets.Count)
End If
xWSTRg.Range(title).Copy
xWS.Paste Destination:=xWS.Range("A1")
ws.Range("A" & (titlerow + xTRg.Rows.Count) & ":A" & lr).EntireRow.Copy xWS.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 yn cael ei popio allan i'ch atgoffa i ddewis y rhes pennawd, gweler y screenshot:
4. Ac yna, cliciwch OK botwm, ac yn yr ail flwch prydlon, dewiswch y data colofn rydych chi am ei rannu yn seiliedig arno, gweler y screenshot:
5. Yna, cliciwch OK, ac mae'r holl ddata yn y daflen waith weithredol wedi'i rannu'n daflenni gwaith lluosog yn ôl gwerth y golofn. Ac mae'r taflenni gwaith rhanedig wedi'u henwi gyda'r enwau celloedd hollt. Gweler y screenshot:
Nodyn: Rhoddir y taflenni gwaith rhanedig ar ddiwedd y llyfr gwaith lle mae'r brif daflen waith.
Rhannwch ddata i mewn i daflenni gwaith lluosog yn seiliedig ar golofn gyda Kutools ar gyfer Excel
Fel dechreuwr Excel, mae'r cod VBA hir hwn ychydig yn anodd i ni, ac nid yw'r mwyafrif ohonom hyd yn oed yn gwybod sut i addasu'r cod fel ein hangen. Yma, byddaf yn cyflwyno teclyn amlswyddogaethol i chi -Kutools ar gyfer Excel, ei Data Hollti gall cyfleustodau nid yn unig eich helpu i rannu data yn daflenni gwaith lluosog yn seiliedig ar golofn, ond gall hefyd rannu data yn ôl cyfrif rhesi.
Nodyn:I gymhwyso hyn Data Hollti, yn gyntaf, dylech lawrlwytho'r Kutools ar gyfer Excel, ac yna cymhwyswch y nodwedd yn gyflym ac yn hawdd.
Ar ôl gosod Kutools ar gyfer Excel, gwnewch fel hyn:
1. Dewiswch yr ystod o ddata rydych chi am ei rannu.
2. Cliciwch Kutools Byd Gwaith > Taflen Waith > Data Hollti, gweler y screenshot:
3. Yn y Rhannwch Ddata yn Daflenni Gwaith Lluosog blwch deialog, mae angen i chi:
1). Dewiswch Colofn benodol opsiwn yn y Hollti yn seiliedig ar adran, a dewiswch y gwerth colofn rydych chi am rannu'r data yn seiliedig arno yn y gwymplen. (Os oes penawdau i'ch data a'ch bod am eu mewnosod ym mhob taflen waith rhaniad newydd, gwiriwch Mae penawdau yn fy data opsiwn.)
2). Yna gallwch chi nodi'r enwau taflen waith rhanedig, o dan y Enw taflenni gwaith newydd adran, nodwch reolau enwau'r daflen waith o'r Rheolau rhestr ostwng, gallwch ychwanegu'r Rhagolwg or Ôl-ddodiad ar gyfer yr enwau dalen hefyd.
3). Cliciwch y OK botwm. Gweler y screenshot:
4. Nawr mae'r data wedi'u rhannu'n daflenni gwaith lluosog mewn llyfr gwaith newydd.
Cliciwch i Lawrlwytho Kutools ar gyfer Excel a threial am ddim Nawr!
Rhannwch ddata i mewn i daflenni gwaith lluosog yn seiliedig ar golofn gyda Kutools ar gyfer Excel
Kutools ar gyfer Excel yn cynnwys mwy na 300 o offer Excel defnyddiol. Am ddim i geisio heb unrhyw gyfyngiad mewn 30 diwrnod. Dadlwythwch y treial am ddim nawr!
Erthygl gysylltiedig:
Sut i rannu data yn daflenni gwaith lluosog yn ôl rhesi cyfrif?
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer
- Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
- Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
- Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!