Leideanna Excel: Roinn sonraí i mbileoga oibre / leabhair oibre iolracha bunaithe ar luach colún
Nuair a bhíonn tacair shonraí móra á mbainistiú in Excel, is féidir go mbeadh sé an-tairbheach sonraí a roinnt ina il-bhileoga oibre bunaithe ar luachanna colúin ar leith. Feabhsaíonn an modh seo ní hamháin eagrú sonraí ach feabhsaíonn sé inléiteacht agus éascaíonn sé anailís sonraí níos éasca.
Cuir i gcás go bhfuil taifead díolacháin mór agat ina bhfuil iliontrálacha cosúil le hainm an táirge, an chainníocht a díoladh sa chéad ráithe. Is é an sprioc ná na sonraí seo a roinnt i mbileoga oibre ar leith bunaithe ar gach ainm táirge ionas gur féidir anailís a dhéanamh ar fheidhmíocht díolacháin aonair ar leithligh.
Roinn sonraí i mbileoga oibre iolracha bunaithe ar luach colúin
Roinn sonraí i leabhair oibre iolracha bunaithe ar luach colún le cód VBA
Roinn sonraí i mbileoga oibre iolracha bunaithe ar luach colúin
De ghnáth, is féidir leat an liosta sonraí a shórtáil ar dtús, agus ansin iad a chóipeáil agus a ghreamú ceann ar cheann i mbileoga oibre nua eile. Ach beidh ort do foighne a chóipeáil agus a ghreamú arís agus arís eile. Sa chuid seo, tabharfaimid isteach dhá mhodh simplí chun dul i ngleic go héifeachtach leis an tasc seo in Excel, rud a shábháil am duit agus an fhéidearthacht earráidí a laghdú.
Roinn sonraí i mbileoga oibre iolracha bunaithe ar luach colún le cód VBA
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 i bhFuinneog an Mhodúil.
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 Sub3. Ansin, brúigh F5 eochair chun an cód a rith, agus cuirtear bosca leid amach chun a mheabhrú duit an tsraith ceanntásc a roghnú, agus ansin, cliceáil OK. Féach an pictiúr:
4. Sa dara bosca pras, roghnaigh na sonraí colún ar mhaith leat a scoilt bunaithe ar, ansin, cliceáil OK. Féach an pictiúr:
5. Tá na sonraí go léir sa bhileog oibre gníomhach roinnte ina il-bhileoga oibre bunaithe ar na luachanna colún. Ainmnítear na bileoga oibre a eascraíonn as seo de réir na luachanna sna cealla scoilte agus cuirtear iad ag deireadh an leabhair oibre. Féach ar an scáileán:
Roinn sonraí i mbileoga oibre iolracha bunaithe ar luach colún le Kutools le haghaidh Excel
Kutools le haghaidh Excel Tugann gné cliste - Scoilt Sonraí díreach isteach i do thimpeallacht Excel. Ní dúshlán a thuilleadh é sonraí a roinnt ina ilbhileoga oibre. Roinneann ár n-uirlis iomasach do thacair sonraí go huathoibríoch bunaithe ar luach an cholúin roghnaithe nó ar chomhaireamh na sraitheanna, ag cinntiú go bhfuil gach píosa faisnéise díreach san áit a dteastaíonn sé uait. Slán a fhágáil leis an tasc tedious a bhaineann le do scarbhileoga a eagrú de láimh agus glacadh le bealach níos tapúla, saor ó earráidí chun do shonraí a bhainistiú.
Tar éis a shuiteáil Kutools le haghaidh Excel, roghnaigh an raon sonraí, agus ansin cliceáil Kutools Plus > Scoilt Sonraí a oscailt Roinn na sonraí i mbileoga oibre iolracha dialóg.
- Roghnaigh Colún sonrach rogha sa Scoilt bunaithe ar alt seo, agus roghnaigh an luach colún ar mian leat na sonraí a roinnt bunaithe ar an liosta anuas.
- Má tá ceanntásca ag do shonraí agus gur mhaith leat iad a chur isteach i ngach bileog oibre scoilte nua, seiceáil le do thoil Tá ceanntásca ar mo chuid sonraí rogha. (Is féidir leat líon na sraitheanna ceanntásc a shonrú bunaithe ar do shonraí. Mar shampla, má tá dhá cheanntásc i do shonraí, clóscríobh 2 le do thoil.)
- Ansin is féidir leat ainmneacha na mbileog oibre scoilte a shonrú, faoin Ainm bileoga oibre nua alt, sonraigh an riail ainmneacha bileog oibre ón liosta anuas Rialacha, is féidir leat an Réimse or Iarmhír le haghaidh ainmneacha na mbileog freisin.
- Cliceáil ar an OK cnaipe. Féach an pictiúr:
Anois, roinntear na sonraí sa bhileog oibre i mbileoga oibre iolracha i leabhar oibre nua.
Roinn sonraí i leabhair oibre iolracha bunaithe ar luach colún le cód VBA
Ó am go chéile, seachas sonraí a roinnt i mbileoga oibre iolracha, b’fhéidir go mbeadh sé níos tairbhí na sonraí a roinnt ina leabhair oibre ar leith bunaithe ar eochaircholún. Seo treoir céim ar chéim ar conas cód VBA a úsáid chun an próiseas roinnte sonraí a uathoibriú i leabhair oibre iolracha bunaithe ar luach colún ar leith.
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 Fuinneog an Mhodúil.
Sub SplitDataByColToWorkbooks()
' Updateby Extendoffice
Dim lr As Long
Dim ws As Worksheet
Dim vcol, i As Integer
Dim myarr As Variant
Dim title As String
Dim titlerow As Integer
Dim xTRg As Range
Dim xVRg As Range
Dim xWS As Workbook
Dim savePath As String
' Set the directory to save new workbooks
savePath = "C:\Users\AddinsVM001\Desktop\multiple files\" ' Modify this path as needed
Application.DisplayAlerts = False
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.Address(False, False)
titlerow = xTRg.Row
ws.Columns(vcol).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=ws.Cells(1, ws.Columns.Count), Unique:=True
myarr = Application.Transpose(ws.Cells(1, ws.Columns.Count).Resize(ws.Cells(ws.Rows.Count, ws.Columns.Count).End(xlUp).Row).Value)
ws.Cells(1, ws.Columns.Count).Resize(ws.Cells(ws.Rows.Count, ws.Columns.Count).End(xlUp).Row).ClearContents
For i = 2 To UBound(myarr)
Set xWS = Workbooks.Add
ws.Range(title).AutoFilter Field:=vcol, Criteria1:=myarr(i)
ws.Range("A" & titlerow & ":A" & lr).SpecialCells(xlCellTypeVisible).EntireRow.Copy
xWS.Sheets(1).Cells(1, 1).PasteSpecial Paste:=xlPasteAll
xWS.SaveAs Filename:=savePath & myarr(i) & ".xlsx"
xWS.Close SaveChanges:=False
Next i
ws.AutoFilterMode = False
Application.DisplayAlerts = True
ws.Activate
End Sub
3. Ansin, brúigh F5 eochair chun an cód a rith, agus cuirtear bosca leid amach chun a mheabhrú duit an tsraith ceanntásc a roghnú, agus ansin, cliceáil OK. Féach an pictiúr:
4. Sa dara bosca pras, roghnaigh na sonraí colún ar mhaith leat a scoilt bunaithe ar, ansin, cliceáil OK. Féach an pictiúr:
5. Tar éis scoilteadh, roinntear na sonraí go léir sa bhileog oibre gníomhach i leabhair oibre iolracha bunaithe ar na luachanna colún. Sábháiltear na leabhair oibre scoilte go léir san fhillteán a shonraigh tú. Féach ar an scáileán:
Airteagail ghaolmhara:
- Roinn sonraí i mbileoga oibre iomadúla de réir chomhaireamh na sraitheanna
- Má dhéantar raon mór sonraí a roinnt go héifeachtach i mbileoga oibre iolracha Excel bunaithe ar chomhaireamh ró ar leith, is féidir bainistíocht sonraí a shruthlíniú. Mar shampla, má scartar tacar sonraí gach 5 shraith ina ilbhileoga is féidir é a dhéanamh níos soláimhsithe agus níos eagraithe. Tugann an treoir seo dhá mhodh praiticiúla chun an tasc seo a chur i gcrích go tapa agus go héasca.
- Cumaisc dhá thábla nó níos mó i gceann amháin bunaithe ar eochaircholúin
- Má cheaptar go bhfuil trí thábla agat i leabhar oibre, anois, ba mhaith leat na táblaí seo a chumasc in aon tábla amháin bunaithe ar na príomhcholúin chomhfhreagracha chun an toradh a fháil mar a thaispeántar thíos. B’fhéidir gur tasc trioblóideach é seo don chuid is mó dínn, ach, ná bíodh imní ort, san alt seo, tabharfaidh mé isteach roinnt modhanna chun an fhadhb seo a réiteach.
- Roinn Teaghráin Téacs de réir Teorainneora i Sraitheanna Iolracha
- De ghnáth, is féidir leat an ghné Téacs go Colún a úsáid chun inneachar cille a roinnt ina ilcholúin trí theorainneacha ar leith, mar shampla camóg, ponc, leathstad, slais, etc. agus na sonraí ó cholúin eile a athdhéanamh mar a thaispeántar an scáileán thíos. An bhfuil aon bhealaí maithe agat chun déileáil leis an tasc seo in Excel? Tabharfaidh an teagasc seo isteach roinnt modhanna éifeachtacha chun an post seo a chríochnú in Excel.
- Roinn inneachar na gceall illíne ina sraitheanna/colúin scartha
- Más rud é go bhfuil ábhar cille illíne agat atá scartha le Alt + Enter, agus anois is gá duit an t-ábhar illíne a roinnt go sraitheanna nó colúin scartha, cad is féidir leat a dhéanamh? San ealaín seo, foghlaimeoidh tú conas inneachar cille illíne a roinnt go tapa i sraitheanna nó i gcolúin scartha.
Uirlisí Táirgiúlachta Oifige is Fearr
Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am. Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...
Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair 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á!
