Microsoft Excel is vooral dol op aaneengesloten reeksen . Wanneer een bereik is gebroken door lege cellen , Excel voegt een laag van moeilijkheid om uw spreadsheet taken. Soms is de oplossing is om de spaties in te vullen , het kopiëren van rijen die gegevens bevatten en plakken van de waarden in de lege rijen eronder . Als u werkt met een groot werkblad , waarschijnlijk u niet wilt om dit te doen met de hand. Gebruik in plaats daarvan een Visual Basic for Applications ( VBA ) macro om de beschikbare rijen en plakken in de gegevens automatisch te vinden . Instructies
Open " Microsoft Excel " 1 versie 2002 of hoger . Kopen van 2 Maak een werkblad voor het testen van uw macro . Onder meer rijen met gegevens en rijen die leeg zijn . Voer de volgende : Cel B1
: test1
Cel C1 : test1 Cel A4
: test2 Cell
B4 : test2
cel C4 : test2
Cell D4 : test2
cel A5 : test3 cel B5
: test3 Cell
C5 : test3
cel A9 : test4
3 Druk op ' Alt + F11 "om de Visual Basic Editor te openen
4 Plaats een lege module om uw VBA- code te houden . . Kies " Invoegen " en vervolgens " Module " uit het menu .
5 Start een nieuwe subroutine genaamd " PasteAvail . " Typ het volgende in de code -module : " . Enter" Sub PasteAvail
( ) Press
Excel zal een " End Sub " verklaring toe te voegen .
6 Verklaar de variabelen die je gaat gebruiken . Typ het volgende tussen de " Sub " en " End Sub " uitspraken : Dim MaxRows
As Long , LastRow As Long , i As Long Dim MaxCols als Geheel , firstrow als Geheel
7 variabelen toewijzen aan het totale aantal rijen en kolommen op het werkblad te houden . De werkelijke waarde van deze variabelen zal afhangen van welke versie van Excel die u gebruikt . Typ het volgende : MaxRows
= Rows.Count MaxCols
= Columns.Count
8 toewijzen variabelen om rijnummers houden voor de eerste en laatste rijen bevatten gegevens . Dit voorkomt een lange lus door elke rij in het werkblad . Typ het volgende : . .
Firstrow = 1 LastRow
= Cells ( MaxRows , 1 ) End ( xlUp ) Rij
9 Voeg code om naar te kijken elke rij, van eerste tot de laatste , beslissen of de rij is leeg , en kopiëren of plakken als dat nodig is. Typ het volgende : .
Voor i = firstrow Om LastRow Rijen
( i ) Selecteer
Als WorksheetFunction.CountBlank ( Rijen ( i ) ) = MaxCols Dan
ActiveSheet.Paste
Else Selection.Copy End
Als
Next i
10 Laat de " End Sub " verklaring op zijn plaats .
11 Voer de macro . Selecteer " Run " en vervolgens " Uitvoeren Sub /UserForm " uit het menu .
12 Druk " Alt + F11 " om terug te keren naar het Excel-werkblad en bekijk de resultaten .
< br >
|
