Note: The other languages of the website are Google-translated. Back to English

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


puščica modri desni mehurček 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

doc zanka, dokler ni prazna 1

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.
doc zanka, dokler ni prazna 2

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.

doc zanka, dokler ni prazna 3 doc zanka, dokler ni prazna 4

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 vse funkcije 30 dni brezplačnega preizkusa!
kombinirajte liste
 
Kutools za Excel: z več kot 300 priročnimi dodatki za Excel, ki jih lahko brezplačno preizkusite brez omejitev 30 dni.

Najboljša orodja za pisarniško produktivnost

Kutools za Excel rešuje večino vaših težav in poveča vašo produktivnost za 80%

  • Ponovna uporaba: Hitro vstavite zapletene formule, grafikoni in vse, kar ste že uporabljali; Šifriraj celice z geslom; Ustvari poštni seznam in pošiljanje e-pošte ...
  • Vrstica Super Formula (enostavno urejanje več vrstic besedila in formule); Bralna postavitev (enostavno branje in urejanje velikega števila celic); Prilepite v filtrirani obseg...
  • Združi celice / vrstice / stolpce brez izgube podatkov; Vsebina razdeljenih celic; Združi podvojene vrstice / stolpce... prepreči podvojene celice; Primerjaj obsege...
  • Izberite Duplicate ali Unique Vrstice; Izberite prazne vrstice (vse celice so prazne); Super Find in Fuzzy Find v mnogih delovnih zvezkih; Naključna izbira ...
  • Natančna kopija Več celic brez spreminjanja sklica formule; Samodejno ustvarjanje referenc na več listov; Vstavi oznake, Potrditvena polja in še več ...
  • Izvleček besedila, Dodaj besedilo, Odstrani po položaju, Odstrani presledek; Ustvari in natisni vmesne seštevke strani Pretvarjanje med vsebino celic in komentarji...
  • Super filter (shranite in uporabite sheme filtrov za druge liste); Napredno razvrščanje glede na mesec / teden / dan, pogostost in drugo; Poseben filter s krepko, ležeče ...
  • Združite delovne zvezke in delovne liste; Spoji tabele na podlagi ključnih stolpcev; Razdelite podatke na več listov; Paketna pretvorba xls, xlsx in PDF...
  • Več kot 300 zmogljivih funkcij. Podpira Office / Excel 2007-2021 in 365. Podpira vse jezike. Enostavna uvedba v vašem podjetju ali organizaciji. 30-dnevna brezplačna preizkusna različica vseh funkcij. 60-dnevna garancija vračila denarja.
zavihek kte 201905

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!
dno pisarniške mize
Komentarji (7)
Ocene še ni. Bodite prvi in ​​ocenite!
Ta komentar je moderator na spletnem mestu minimiziral
Njegova zanka je stolpec ne vrstica
Ta komentar je moderator na spletnem mestu minimiziral
Če želite prečkati stolpec, morate iti po številki vrstice.
Ta komentar je moderator na spletnem mestu minimiziral
Ali lahko prosim razložite, kakšen je pogoj za prenehanje zanke? Kaj vas pripelje iz zanke v Test1()?
Ta komentar je moderator na spletnem mestu minimiziral
Ustavil se bo, ko se bo srečal s prvim praznim mestom v stolpcu
Ta komentar je moderator na spletnem mestu minimiziral
Recimo, da imam veliko vrstic...kakšen trik, da bi to potekalo hitreje?
Ta komentar je moderator na spletnem mestu minimiziral
Zanka deluje zame, razen da zanke skozi vsako posamezno vrstico, ne glede na to, ali je prazna ali ne.
Ta komentar je moderator na spletnem mestu minimiziral
Prvi VBA proizvede napačen rezultat v primerih, ko je ena ali nič vrstic podatkov.

Verjetno potrebujete nekaj takega

Če je obseg("A1").Vrednost = "" Potem
Število vrstic = 0
ElseIf Range("A1").Offset(1, 0).Value = "" Nato
Število vrstic = 1
Else
Število vrstic = Obseg("A1", Obseg("A1").Konec(xlDown)).Vrstice.Število
Konec Če
Tu še ni objavljenih komentarjev
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije

Sledi nam

Copyright © 2009 - www.extendoffice.com. | Vse pravice pridržane. Poganja ga ExtendOffice. | Kazalo
Microsoft in logotip Office sta blagovni znamki ali registrirani blagovni znamki družbe Microsoft Corporation v ZDA in / ali drugih državah.
Zaščiteno s Sectigo SSL