Ako kopírovať a vložiť do Dostupné riadkov v makro

Microsoft Excel je obzvlášť zamilovaný do súvislých radov . Ak je rozsah rozdelený podľa prázdnych buniek , Excel pridáva vrstvu obtiažnosti vašich tabuľkových úlohy . Niekedy riešením je vyplniť prázdne miesta , kopírovanie riadky , ktoré obsahujú dáta a vkladanie hodnôt do prázdnych riadkov pod ním . Ak pracujete s veľkým tabuľky , pravdepodobne nebudete chcieť urobiť to ručne . Namiesto toho použite Visual Basic for Applications ( VBA ) makro nájsť dostupné riadky a automaticky vložiť v dátach . Pokyny dovolená 1

Otvorte " Microsoft Excel " , verzia 2002 alebo neskôr .
2

Vytvoriť list pre testovanie makrá . Zahrnúť riadky s dátami a riadkov , ktoré sú prázdne . Zadajte nasledujúce : klipart

bunky B1 : test1

bunky C1 : test1

Mobilné A4 : test2

Mobilné B4 : test2

mobilné C4 : test2

mobilné D4 : test2

mobilné A5 : test3

mobilné B5 : test3

mobilné C5 : test3

mobilné A9 : . test4
3

Stlačte tlačidlo " Alt + F11 " otvorte Editor jazyka Visual Basic
4

Vložte prázdny modul držať váš kód jazyka VBA . Vyberte " Vložiť " a potom " Modul " z menu .
5

Spustenie nového podprogram s názvom " PasteAvail . " Zadajte nasledujúce v module kódu:

Sub PasteAvail ( )

Stlačte tlačidlo " Enter " . Excel pridať " End Sub " vyhlásenie .
6

deklarovať premenné , ktoré budete používať . Zadajte nasledujúci príkaz medzi " Sub " a " End Sub " vyhlásenie :

Dim MaxRows As Long , LastRow tak dlho , aj ako dlho

Dim MaxCols As Integer , FirstRow As Integer

7

Priradenie premennej držať celkový počet riadkov a stĺpcov na liste . Skutočná hodnota týchto veličín bude závisieť na tom , ktorá verzia programu Excel , ktorú používate . Zadajte nasledujúci príkaz :

MaxRows = Rows.Count

MaxCols = Columns.Count
8

Priradenie premennej držať čísla riadkov pre prvé a posledné riadky , ktoré obsahujú údaje . Tým sa zabráni zdĺhavým slučku cez každý riadok v liste . Zadajte nasledujúci príkaz : ..

FirstRow = 1

LastRow = Cells ( MaxRows , 1 ) End ( xlUp ) Riadok
9

Pridať kódu pozrieť sa na seba rad , od prvého do posledného , či je riadok prázdny , a kopírovať a vložiť podľa potreby . Zadajte nasledujúci príkaz : .

I = FirstRow Pre LastRow

riadky ( i ) Vyberte

Ak WorksheetFunction.CountBlank ( Rows ( i ) ) = MaxCols Potom

ActiveSheet.Paste

Else

Selection.Copy

End If

Next i
10

Dovolenka " End Sub " vyhlásenie na mieste .
11.

Spustiť makro . Zvoľte " Run " , potom " Run Sub /UserForm " z menu .
12

Stlačte tlačidlo " Alt + F11 " pre návrat do hárku programu Excel a zobrazenie výsledkov .

• Predchádzajúca strana: Ako previesť riadky tabuľky do stĺpcov 
• Ďalšia strana: Ako Stop kontingenčnej tabuľky pred prepísaním riadkov