Conas bileoga nua a chruthú do gach ró in Excel?
Ag cur san áireamh go bhfuil tábla scórála agat le hainm an dalta ar fad i gcolún A. Anois, ba mhaith leat bileoga nua a chruthú bunaithe ar na hainmneacha seo i gcolún A, agus tá sonraí ar leith an mhic léinn i ndéanamh in aghaidh na bileoige. Nó cruthaigh bileog nua do gach ró amháin sa tábla gan na hainmneacha i gcolún A a mheas. Sa vedio seo, gheobhaidh tú modhanna chun é a bhaint amach.
Cruthaigh bileoga nua do gach ró le cód VBA
Cruthaigh bileoga nua do gach ró le fóntais Sonraí Scoilt Kutools le haghaidh Excel
Cruthaigh bileoga nua do gach ró le cód VBA
Leis na cóid seo a leanas, is féidir leat bileog nua a chruthú bunaithe ar luachanna na gcolún, nó díreach bileoga nua a chruthú do gach ró in Excel.
1. Brúigh Eile + F11 eochracha ag an am céanna chun an Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
2. Sa Microsoft Visual Basic d’Fheidhmchláir fuinneog, cliceáil Ionsáigh > Modúil. Agus ansin greamaigh an cód seo a leanas isteach sa Modúil fhuinneog.
Cód VBA: cruthaigh bileog nua do gach ró bunaithe ar cholún
Sub parse_data()
'Update by Extendoffice 2018/3/2
Dim xRCount As Long
Dim xSht As Worksheet
Dim xNSht As Worksheet
Dim I As Long
Dim xTRrow As Integer
Dim xCol As New Collection
Dim xTitle As String
Dim xSUpdate As Boolean
Set xSht = ActiveSheet
On Error Resume Next
xRCount = xSht.Cells(xSht.Rows.Count, 1).End(xlUp).Row
xTitle = "A1:C1"
xTRrow = xSht.Range(xTitle).Cells(1).Row
For I = 2 To xRCount
Call xCol.Add(xSht.Cells(I, 1).Text, xSht.Cells(I, 1).Text)
Next
xSUpdate = Application.ScreenUpdating
Application.ScreenUpdating = False
For I = 1 To xCol.Count
Call xSht.Range(xTitle).AutoFilter(1, CStr(xCol.Item(I)))
Set xNSht = Nothing
Set xNSht = Worksheets(CStr(xCol.Item(I)))
If xNSht Is Nothing Then
Set xNSht = Worksheets.Add(, Sheets(Sheets.Count))
xNSht.Name = CStr(xCol.Item(I))
Else
xNSht.Move , Sheets(Sheets.Count)
End If
xSht.Range("A" & xTRrow & ":A" & xRCount).EntireRow.Copy xNSht.Range("A1")
xNSht.Columns.AutoFit
Next
xSht.AutoFilterMode = False
xSht.Activate
Application.ScreenUpdating = xSUpdate
End Sub
nótaí: A1: Is é C1 raon teidil do thábla. Is féidir leat é a athrú bunaithe ar do chuid riachtanas.
3. Brúigh F5 eochair chun an cód a rith, ansin cruthaítear bileoga oibre nua tar éis gach bileog oibre den leabhar oibre reatha mar atá thíos ar an scáileán:
Más mian leat bileoga nua a chruthú go díreach do gach ró gan smaoineamh ar luach an cholúin, is féidir leat an cód seo a leanas a úsáid.
Cód VBA: Cruthaigh bileog nua go díreach do gach ró
Sub RowToSheet()
Dim xRow As Long
Dim I As Long
With ActiveSheet
xRow = .Range("A" & Rows.Count).End(xlUp).Row
For I = 1 To xRow
Worksheets.Add(, Sheets(Sheets.Count)).Name = "Row " & I
.Rows(I).Copy Sheets("Row " & I).Range("A1")
Next I
End With
End Sub
Tar éis an cód a rith, cuirfear gach ró i mbileog oibre gníomhach i mbileog oibre nua.
nótaí: Cuirfear an tsraith cheannteidil i mbileog nua leis an gcód VBA seo.
Cruthaigh bileoga nua do gach ró le fóntais Sonraí Scoilt Kutools le haghaidh Excel
I ndáiríre, tá an modh thuas casta agus deacair a thuiscint. Sa chuid seo, tugaimid an Scoilt Sonraí fóntais de Kutools le haghaidh Excel.
Roimh iarratas a dhéanamh Kutools le haghaidh Excel, Le do thoil é a íoslódáil agus a shuiteáil ar dtús.
1. Roghnaigh an tábla a chaithfidh tú a úsáid chun bileoga nua a chruthú, agus ansin cliceáil Kutools Plus> Sonraí Spit. Féach an pictiúr:
2. Sa Roinn Sonraí i mBileoga Oibre Il bosca dialóige, déan mar a leanas, le do thoil.
A. Chun bileoga nua a chruthú bunaithe ar luach an cholúin:
B. Chun bileoga nua a chruthú go díreach do gach ró:
cruthaítear leabhar oibre nua leis na bileoga nua go léir istigh ann. Féach na scáileáin scáileáin thíos.
Bileoga nua a chruthú do gach ró bunaithe ar luach an cholúin:
Bileog nua a chruthú do gach ró gan smaoineamh ar luach an cholúin:
Más mian leat triail saor in aisce (30 lá) a bheith agat ar an bhfóntas seo, cliceáil le do thoil chun é a íoslódáil, agus ansin téigh chun an oibríocht a chur i bhfeidhm de réir na gcéimeanna thuas.
Cruthaigh bileoga nua do gach ró le fóntais Sonraí Scoilt Kutools le haghaidh Excel
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á!