Conas tábla mór a roinnt ina iliomad táblaí beaga in Excel?

Má tá bileog oibre mór agat ina bhfuil ilcholúin agus sonraí na céadta nó na mílte sraitheanna, anois, ba mhaith leat an tábla mór seo a roinnt ina iliomad táblaí beaga bunaithe ar luach an cholúin nó líon na sraitheanna chun na torthaí seo a leanas a fháil. Conas a d’fhéadfá déileáil leis an tasc seo in Excel?

Príomh Tábla		Roinn an tábla i dtáblaí iolracha de réir luach an cholúin	Roinn an tábla i dtáblaí iolracha de réir chomhaireamh na sraitheanna

Roinn tábla mór i dtáblaí iolracha bunaithe ar luach an cholúin le cód VBA

Roinn tábla mór i dtáblaí iolracha bunaithe ar líon sonrach na sraitheanna le cód VBA

Roinn tábla mór i dtáblaí iolracha bunaithe ar luach colún nó líon na sraitheanna le gné iontach

Roinn tábla mór i dtáblaí iolracha bunaithe ar luach an cholúin le cód VBA

Chun an tábla mór seo a roinnt ina tháblaí iolracha bunaithe ar luach colún ar leith, is féidir leis an gcód VBA seo a leanas fabhar a thabhairt duit. Déan mar seo le do thoil:

1. Coinnigh síos an ALT + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. Cliceáil Ionsáigh > Modúil, agus greamaigh an cód seo a leanas sa Modúil Fuinneog.

Cód VBA: Roinn tábla mór i dtáblaí iolracha de réir eochaircholún:

Sub Splitdatabycol()
'by 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
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. Tar éis an cód a ghreamú, brúigh F5 eochair chun an cód seo a rith, agus bosca pras popped amach, roghnaigh an tsraith ceanntásc ó do chuid sonraí, féach an scáileán:

4. Ansin, cliceáil OK, agus bosca dialóige eile popped amach, roghnaigh na sonraí colún ar mhaith leat an tábla a roinnt bunaithe orthu, féach an scáileán:

5. Cliceáil OK, roinneadh an tábla mór seo ina iliomad bileoga oibre de réir luach an cholúin atá suite i ndiaidh an mháistirbhileog. Agus ainmnítear na bileoga oibre nua le luach an cholúin. Féach an pictiúr:

Roinn tábla mór i dtáblaí iolracha bunaithe ar líon sonrach na sraitheanna le cód VBA

Más gá duit an tábla a roinnt ina tháblaí iolracha bunaithe ar líon na sraitheanna, is féidir leis an gcód VBA seo a leanas cabhrú leat.

1. Coinnigh síos an ALT + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. Cliceáil Ionsáigh > Modúil, agus greamaigh an cód seo a leanas sa Modúil Fuinneog.

Cód VBA: Roinn tábla mór i dtáblaí iolracha de réir líon na sraitheanna:

Sub Splitdatabyrows()
'Updated by Extendoffice 
Dim WorkRng As Range
Dim xRow As Range
Dim SplitRow As Integer
Dim xWs As Worksheet
Dim xTRg As Range
Dim xNTRg As Range
Dim xIER
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set xTRg = Application.InputBox("Please select the header row:", xTitleId, "", Type:=8)
If TypeName(xTRg) = "Nothing" Then Exit Sub
Set WorkRng = Application.InputBox("Please select the data range(exclude the header row):", xTitleId, WorkRng.Address, Type:=8)
If TypeName(WorkRng) = "Nothing" Then Exit Sub
SplitRow = Application.InputBox("Split Row Num", xTitleId, Type:=1)
If SplitRow = 0 Then Exit Sub
Set xWs = WorkRng.Parent
Set xRow = WorkRng.Rows(1)
xIER = WorkRng.Rows.Count
xIER = WorkRng.Row + xIER - 1
Application.ScreenUpdating = False
For i = 1 To WorkRng.Rows.Count Step SplitRow
    resizeCount = SplitRow
    If (xIER - xRow.Row + 1) < SplitRow Then
        resizeCount = (xIER - xRow.Row + 1)
    End If
    xRow.Resize(resizeCount).Copy
    Set xWs = Application.Worksheets.Add(after:=Application.Worksheets(Application.Worksheets.Count))
    If xIER > (xRow.Row + SplitRow - 1) Then
        xWs.Name = xRow.Row & " - " & (xRow.Row + SplitRow - 1)
    ElseIf xIER = xRow.Row Then
        xWs.Name = xRow.Row
    Else
        xWs.Name = xRow.Row & " - " & xIER
    End If
    Application.ActiveSheet.Range("A1").PasteSpecial
    Set xNTRg = Application.ActiveSheet.Range("A1")
    xTRg.Copy
    xNTRg.Insert
    Set xRow = xRow.Offset(SplitRow)
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

3. Ansin, brúigh F5 eochair, sa bhosca dialóige popped up, roghnaigh an tsraith ceanntásc, féach an scáileán:

4. Ansin, cliceáil OK, agus sa dara bosca pras, roghnaigh an raon sonraí a theastaíonn uait a roinnt de réir sraitheanna a chomhaireamh, féach an scáileán:

5. Agus ansin, téigh ar cliceáil OK cnaipe, sa tríú bosca pras, iontráil líon na sraitheanna ar mhaith leat a roinnt leo, féach an scáileán:

6. Ansin, cliceáil OK cnaipe, tá an máistir-tábla roinnte ina iliomad bileoga oibre bunaithe ar líon na sraitheanna mar atá thíos ar an scáileán:

Roinn tábla mór i dtáblaí iolracha bunaithe ar luach colún nó líon na sraitheanna le gné iontach

B’fhéidir go bhfuil na cóid thuas deacair d’fhormhór na n-úsáideoirí, anseo, tabharfaidh mé gné iontach isteach-Scoilt Sonraí of Kutools le haghaidh Excel. Leis an bhfóntas seo, is féidir leat tábla mór a roinnt ina iliomad táblaí de réir eochaircholúin nó líon na sraitheanna go tapa agus go héasca.

Tar éis a shuiteáil Kutools le haghaidh Excel, déan mar seo le do thoil:

1. Roghnaigh an raon sonraí a theastaíonn uait a roinnt, agus ansin, cliceáil Kutools Plus > Scoilt Sonraí, féach ar an scáileán:

2. Sa an Roinn Sonraí i mBileoga Oibre Il bosca dialóige, sonraigh na socruithe de réir do riachtanas:

(1.) Roghnaigh Colún sonrach or Sraitheanna seasta ó na Scoilt bunaithe ar alt de réir mar is gá duit;

(2.) Sonraigh ainm na mbileog oibre nua ón Rialacha liosta anuas, is féidir leat an Réimse or Iarmhír le hainmneacha na mbileog freisin.

3. Ansin, cliceáil Ok cnaipe, agus anois, tá an tábla mór roinnte ina iliomad táblaí beaga i leabhar oibre nua. Féach screenshots:

Roinn an tábla i dtáblaí iolracha de réir luach an cholúin	Roinn an tábla i dtáblaí iolracha de réir chomhaireamh na sraitheanna

Cliceáil chun Íoslódáil Kutools le haghaidh Excel agus triail saor in aisce Anois!

Earraí níos coibhneasta:

---

Na hUirlisí Táirgiúlachta Oifige is Fearr

Réitíonn Kutools for Excel an chuid is mó de do chuid Fadhbanna, agus Méadaíonn sé do Tháirgiúlacht 80%

• Barra Foirmle Super (cuir línte iolracha téacs agus foirmle in eagar go héasca); Leagan Amach Léitheoireachta (líon mór cealla a léamh agus a chur in eagar go héasca); Greamaigh go dtí an Raon Scagtha...
• Cumaisc Cealla / Sraitheanna / Colúin agus Sonraí a Choinneáil; Ábhar Cealla Scoilt; Comhcheangail Sraitheanna Dúblacha agus Suim / Meán... Cill Dúblach a Chosc; Déan comparáid idir Ranganna...
• Roghnaigh Dúblach nó Uathúil Sraitheanna; Roghnaigh Blank Rows (tá na cealla uile folamh); Aimsigh Super agus Fuzzy Aimsigh i go leor Leabhar Oibre; Roghnaigh go randamach ...
• Cóip Díreach Cealla Il gan tagairt fhoirmle a athrú; Tagairtí Cruthaigh Auto chuig Bileoga Il; Cuir Urchair isteach, Boscaí Seiceála agus go leor eile ...
• Foirmlí is Fearr agus Cuir isteach go tapa, Ranganna, Cairteacha agus Pictiúir; Cealla a Chriptiú le pasfhocal; Cruthaigh Liosta Ríomhphoist agus seol ríomhphoist ...
• Sliocht Téacs, Cuir Téacs leis, Bain de réir Poist, Bain Spás; Subtotals Paging a chruthú agus a phriontáil; Tiontaigh Idir Ábhar Cealla agus Tráchtanna...
• Scagaire Super (scéimeanna scagaire a shábháil agus a chur i bhfeidhm ar bhileoga eile); Ard-Sórtáil de réir míosa / seachtaine / lae, minicíocht agus níos mó; Scagaire Speisialta le cló trom, iodálach ...
• Comhcheangail Leabhair Oibre agus Bileoga Oibre; Cumaisc Táblaí bunaithe ar eochaircholúin; Roinn Sonraí i Ilbhileoga; Baisc Tiontaigh xls, xlsx agus PDF...
• Grúpáil Tábla Pivot de réir uimhir na seachtaine, lá na seachtaine agus níos mó ... Taispeáin Cealla Díghlasáilte, Faoi Ghlas de réir dathanna éagsúla; Aibhsigh Cealla a bhfuil Foirmle / Ainm orthu...

Leigh Nios mo... Gnéithe Iomlán Triail In Aisce 30 Lá ... Ceannach ... 

---

Office Tab - tugann sé comhéadan tabbed chuig Office, agus déan do chuid oibre i bhfad níos éasca

• Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
• Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
• Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!

Leigh Nios mo... Gnéithe Iomlán Triail In Aisce 30 Lá ... Ceannach ...