Kako se vrti skozi vrstice, dokler ni prazen v stolpcu Excel?
Tu je dolg stolpec s podatki, ki vključuje nekaj praznih celic, in želite vrteti skozi vrstice, dokler ne izpolnite prazne celice. V Excelu ni nobene vgrajene funkcije, ki bi lahko opravila to nalogo, lahko pa vam predstavim nekaj makrov, da vam naredim uslugo.
Preglejte vrstice, dokler niso prazne z VBA
Preglejte vrstice, dokler niso prazne z VBA
1. Pritisnite Alt + F11 tipke, da omogočite Microsoft Visual Basic za aplikacije okno.
2. klik Vstavi > Moduliin prilepite spodnjo kodo v prazen skript.
VBA: Zanka, dokler ni prazna
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
V kodi je A1 prva celica, iz katere želite zanko, lahko jo spremenite po potrebi.
3. Pritisnite F5 tipko za začetek zanke stolpca, nato se kazalka ustavi na prvi izpolnjeni prazni celici.
Opombe: Če želite podatke prehajati do neprekinjenih praznih celic, lahko uporabite to kodo makra.
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
Nato morate izbrati prvo celico, iz katere želite zanko Kutools za Excel dialog, kliknite OK, nato se kazalka ustavi v prvih neprekinjenih praznih celicah.
Preprosto združite več listov / delovni zvezek v en sam list ali delovni zvezek
|
Združevanje več listov ali delovnih zvezkov v en list ali delovni zvezek je lahko v Excelu resnično, vendar z Združite funkcijo v Kutools za Excel, lahko združite ducate listov / delovnih zvezkov v en list ali delovni zvezek, liste pa lahko združite v enega samo z več kliki. Kliknite za 30-dnevno brezplačno preskusno različico vseh funkcij! |
Kutools za Excel: z več kot 300 priročnimi dodatki za Excel lahko brezplačno preizkusite brez omejitev v 30 dneh. |
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!