Conas lúb a dhéanamh trí shraitheanna go dtí go mbeidh tú bán sa cholún Excel?
Seo colún fada le sonraí atá ag áireamh roinnt cealla folmha, agus ba mhaith leat lúb a dhéanamh trí na sraitheanna go dtí go gcomhlíonfaidh tú cill bhán. In Excel, níl aon ghné ionsuite ann a fhéadann an post seo a láimhseáil, ach is féidir liom roinnt macraí a thabhairt isteach chun fabhar a thabhairt duit.
Lúb trí shraitheanna go dtí go mbeidh siad bán le VBA
Lúb trí shraitheanna go dtí go mbeidh siad bán le VBA
1. Brúigh Alt + F11 eochracha chun an Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
2. cliceáil Ionsáigh > Modúil, agus greamaigh thíos an cód leis an script bán.
VBA: Lúb go dtí go mbeidh sé bán
Sub Test1()
'UpdatebyExtendoffice20161222
Dim x As Integer
Application.ScreenUpdating = False
' Set numrows = number of rows of data.
NumRows = Range("A1", Range("A1").End(xlDown)).Rows.Count
' Select cell a1.
Range("A1").Select
' Establish "For" loop to loop "numrows" number of times.
For x = 1 To NumRows
' Insert your code here.
' Selects cell down 1 row from active cell.
ActiveCell.Offset(1, 0).Select
Next
Application.ScreenUpdating = True
End Sub
Sa chód, is é A1 an chéad chill ar mhaith leat lúb a dhéanamh uaidh, is féidir leat é a athrú de réir mar is gá duit.
3. Brúigh F5 eochair chun tús a chur leis an gcolún a lúbadh, stadfaidh an cúrsóir ag an gcéad chill bhán le chéile.
nótaí: Más mian leat lúb a dhéanamh trí shonraí go dtí go gcomhlíonfaidh tú cealla bána leanúnacha, is féidir leat an macra-chód seo a úsáid.
Sub LoopThroughUntilBlanks()
'UpdatebyExtendoffice20161222
' Select cell A2, *first line of data*.
Dim xrg As Range
On Error Resume Next
Set xrg = Application.InputBox _
(Prompt:="first cell select..", Title:="Kutools for Excel", Type:=8)
xrg.Cells(1, 1).Select
' Set Do loop to stop when two consecutive empty cells are reached.
Application.ScreenUpdating = False
Do Until IsEmpty(ActiveCell) And IsEmpty(ActiveCell.Offset(1, 0))
' Insert your code here.
'
' Step down 2 rows from present location.
ActiveCell.Offset(2, 0).Select
Loop
Application.ScreenUpdating = False
End Sub
Ansin ní mór duit an chéad chill is mian leat a lúbadh a roghnú sa Kutools for Excel dialóg, cliceáil OK, ansin stopann an cúrsóir sna chéad chealla bána leanúnacha.
![]() |
![]() |
Comhcheangail go héasca bileoga iolracha / Leabhar Oibre in aon bhileog amháin nó Leabhar Oibre
|
D’fhéadfadh go mbeadh bileoga nó leabhair oibre le chéile in aon bhileog amháin nó leabhar oibre in Excel, ach leis an Chomhcheangail feidhm i Kutools for Excel, is féidir leat an iliomad leathán/leabhrán oibre a chumasc isteach i mbileog amháin nó i leabhar oibre, freisin, is féidir leat na bileoga a chomhdhlúthú i gceann amháin trí roinnt cad a tharlaíonn. Cliceáil le haghaidh lán-feiceáil 30 lá triail saor in aisce! |
![]() |
Kutools for Excel: le níos mó ná 300 breiseán handy Excel, saor in aisce chun iarracht a dhéanamh gan aon teorainn i 30 lá. |
Uirlisí Táirgiúlachta Oifige is Fearr
Supercharge Do Scileanna Excel le Kutools for Excel, agus Éifeachtúlacht Taithí Cosúil Riamh Roimhe. Kutools for Excel Tairiscintí os cionn 300 Ardghné chun Táirgiúlacht a Mhéadú agus Am a Shábháil. Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...
Office Tab Tugann sé comhéadan Tabbed chuig Oifig, 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á!







