Fyll Excel Blank Rows Macro - Excel Tips

Innholdsfortegnelse

Takk til Mike som ga ukens Excel-spørsmål:

Jeg prøver å skrive en makro og er ny på dette. Jeg har et Excel-regneark som er hundrevis av sider langt og mange kolonner bredt. Jeg vil at makroen bare skal søke i "A" -kolonnen etter "" (ingen data) og deretter bruke dataene fra forrige rad, velge fra kolonnene "A" gjennom "CB" og deretter fylle ned til den registrerer data i en celle i "A" -kolonnen. Deretter må den gjenta til alt er gjort.

Makroen nedenfor vil gjøre susen:

Public Sub CopyDown() LastRow = Range("A65536").End(xlUp).Row For i = 1 To LastRow If Range("A" & i).Value = "" Then Range("A" & i - 1 & ":CB" & i - 1).Copy Destination:=Range("A" & i) End if Next i End Sub

Men du trenger kanskje ikke å bruke en makro for å gjøre det du vil. En raskere måte er å bruke triksene introdusert i tipset fra 12/12/98 for å oppnå det samme uten en makro.

Det første trikset er å velge alle de tomme cellene i valget ditt. Fremhev fra A1 til CB i den siste raden med dataene dine. Velg Rediger> Gå til> Spesial> Blanke> OK.

Deretter vil du skrive inn den samme formelen i alle de tomme cellene. For å gjøre dette, trykk på liketasten, trykk på pil opp, hold nede Ctrl og trykk Enter. Dette vil gjenskape formelen til alle de tomme cellene.

Endelig endrer du formlene til verdier. Marker hele dataområdet, velg Rediger> Kopier, Rediger> Lim inn spesial> Verdier> OK.

Merk at hvis Mikes originale data inneholdt formler eller inneholdt noen rader som var delvis tomme, vil denne prosedyren ikke fungere, det ville være bedre å holde fast ved makroen vist ovenfor.

Interessante artikler...