Cum să parcurgeți rândurile până la gol în coloana Excel?
Iată o coloană lungă cu date care include câteva celule goale și doriți să faceți o buclă prin rânduri până când întâlniți celula goală. În Excel, nu există nicio funcție încorporată care să poată face față acestei sarcini, dar pot introduce câteva macrocomenzi pentru a vă face o favoare.
Buclați rândurile până când este gol cu VBA
Buclați rândurile până când este gol cu VBA
1. presa Alt + F11 tastele pentru a activa Microsoft Visual Basic pentru aplicații fereastră.
2. clic Insera > Moduleși lipiți codul de mai jos pe scriptul gol.
VBA: Buclați până când este gol
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
În cod, A1 este prima celulă din care doriți să faceți o buclă, o puteți schimba după cum aveți nevoie.
3. presa F5 tasta pentru a începe buclarea coloanei, apoi cursorul se va opri la prima celulă necompletată.
notițe: Dacă doriți să parcurgeți datele până când întâlniți celule goale continue, puteți utiliza acest cod macro.
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
Apoi, trebuie să selectați prima celulă din care doriți să faceți o buclă în Kutools pentru Excel dialog, faceți clic pe OK, apoi cursorul se oprește în primele celule goale continue.
Combinați cu ușurință mai multe foi / registru de lucru într-o singură coală sau registru de lucru
|
Pentru a combina mai multe foi sau registre de lucru într-o singură foaie sau registru de lucru poate fi dificil în Excel, dar cu Combina funcție în Kutools pentru Excel, puteți combina fuzionarea a zeci de foi / registre de lucru într-o singură foaie sau registru de lucru, de asemenea, puteți consolida foile într-una numai cu câteva clicuri. Faceți clic pentru o versiune de încercare gratuită de 30 de zile! |
Kutools pentru Excel: cu peste 300 de programe de completare la îndemână Excel, gratuit pentru a încerca fără limitări în 30 de zile. |
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!