Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

Kako zankaj po vrsticah do praznega v stolpcu Excel?

Tukaj je dolg stolpec s podatki, ki vključujejo nekaj praznih celic, in želite, da se zanke skozi vrstice, dokler ne izpolnjujejo prazno celico. V Excelu ni nobene vgrajene funkcije, ki bi lahko opravljala to delo, vendar lahko vnesem nekaj makrov, da vam naredim uslugo.

Z lupino skozi vrstice, dokler ni prazen z VBA

Preprosto združite več listov / delovni zvezek v en sam list ali delovni zvezek

Če želite združiti večkratne liste ali delovni zvezek v en list ali delovni zvezek, se lahko v Excelu obnašate, vendar z Combine funkcijo v Kutools za Excel, lahko združite več deset listov / delovnih zvez v en list ali delovni zvezek, prav tako lahko liste konsolidirate v eno samo z več kliki. Klikni za brezplačno 60 dnevno brezplačno preizkusno obdobje!
združite liste
Kutools za Excel: z več kot 300 priročnimi dodatki Excel, lahko brezplačno poskusite brez omejitev v dnevih 60.

puščica modra desno mehurček Z lupino skozi vrstice, dokler ni prazen z VBA

1. Pritisnite Alt + F11 tipke, ki omogočajo Microsoft Visual Basic za aplikacije okno.

2. klik Vstavi > Moduliin prilepite spodnjo kodo v prazen skript.

VBA: Loop do praznega

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

dokler ni prazen 1

V kodi je A1 prva celica, iz katere želite zaničiti, lahko jo spremenite, ko jo potrebujete.

3. Pritisnite F5 ključ za začetek zanke stolpca, se bo kurzor ustavil na prvi izpolnjeni prazno celico.
dokler ni prazen 2

Opombe: Če želite prekopirati podatke, dokler ne dosežete neprekinjenih praznih celic, lahko to kodo uporabite.

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

Potem morate najprej izbrati prvo celico, iz katere želite zanič Kutools za Excel dialog, kliknite OK, se kazalka ustavi v prvih neprekinjenih praznih celicah.

dokler ni prazen 3 dokler ni prazen 4

Brskanje z zavihki in urejanje več delovnih skupin Excel / Word dokumentov kot Firefox, Chrome, Internet Raziščite 10!

Morda ste pozabljeni, da si ogledate več spletnih strani v Firefoxu / Chrome / IE in preklopite med njimi tako, da preprosto kliknete ustrezne jezičke. Tu tabla Office podpira podobno obdelavo, ki vam omogoča, da brskate po več Excelovih delovnih zvezkih ali Wordovih dokumentih v enem oknu programa Excel ali oknu Worda in preprosto preklapljate med njimi tako, da kliknete njihove zavihke. Kliknite brezplačno 45 dnevno preizkusno različico zavihka Office!

od excel


Priporočena orodja za produktivnost za Excel

Kutools za Excel vam pomaga, da vedno končate delo pred časom in izstopite iz množice

  • Več kot zmogljive napredne funkcije 300, zasnovane za 1500 delovne scenarije, ki povečujejo produktivnost z 70%, vam dajejo več časa za skrb za družino in uživanje v življenju.
  • Ne potrebujete več pomnilniških formul in VBA kod, od zdaj naprej pa dajate svojim možganom počitek.
  • Postanite strokovnjak za Excel v minutah 3, zapletene in ponavljajoče se operacije lahko opravite v nekaj sekundah,
  • Vsak dan zmanjšajte število operacij tipkovnice in miške, zdaj se poslovite od poklicnih bolezni.
  • 110,000 visoko učinkovite ljudi in 300 + svetovno priznanih podjetij izbiro.
  • Brezplačna preizkusna različica 60 dneva. 60-dnevno jamstvo vračila denarja. 2 let brezplačne nadgradnje in podpore.

Prinaša kartično brskanje in urejanje za Microsoft Office, veliko močnejši od zavihkov brskalnika

  • Office Tab je namenjen za Word, Excel, PowerPoint in druge Office aplikacije: Založnik, Dostop, Visio in Projekt.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Z 50% poveča vašo produktivnost in vsak dan zmanjša na stotine klikov z miško!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Robert · 4 months ago
    The loop works for me except it loops through every single row regardless of it being blank or not.
  • To post as a guest, your comment is unpublished.
    Shane · 9 months ago
    Lets say I have a ton of rows...any tricks on making this run faster?
  • To post as a guest, your comment is unpublished.
    Marija · 11 months ago
    Can you please explain what is the condition to stop looping? What makes you break out of the loop in Test1()?
    • To post as a guest, your comment is unpublished.
      Sunny · 10 months ago
      It will stop while meeting the first blank in the column
  • To post as a guest, your comment is unpublished.
    J · 1 years ago
    Its looping a column not a row
    • To post as a guest, your comment is unpublished.
      SomeGuest · 11 months ago
      In order to loop through a column, you must go by row number.