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 le haghaidh 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 le haghaidh Excel, is féidir leat an iliomad bileoga / leabhar oibre a chumasc i mbileog amháin nó i leabhar oibre, freisin, is féidir leat na bileoga a chomhdhlúthú i gceann amháin le cúpla cad a tharlaíonn. Cliceáil le haghaidh trialach saor in aisce 30 lá le feiceáil go hiomlán! |
Kutools for Excel: le níos mó ná 300 breiseán áisiúil Excel, saor in aisce le triail gan aon teorannú i 30 lá. |
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á!