Microsoft Excel ist besonders gern zusammenhängende Bereiche . Wenn ein Bereich bis durch leere Zellen kaputt, fügt Excel eine Schicht von Schwierigkeiten , um Ihre Tabellenkalkulation Aufgaben . Manchmal ist die Lösung , um die Lücken zu füllen , Kopieren von Zeilen , die Daten enthalten und Einfügen der Werte in die leeren Zeilen darunter. Wenn Sie mit einer großen Tabellenkalkulation arbeiten, werden Sie wahrscheinlich nicht wollen, dies von Hand machen . Verwenden Sie stattdessen eine Visual Basic für Applikationen ( VBA)-Makro , um die verfügbaren Zeilen und Paste in den Daten automatisch zu finden. Anleitung
1

Öffnen " Microsoft Excel ", Version 2002 oder höher .
2

Erstellen Sie ein Arbeitsblatt zum Testen Makro. Fügen Sie Zeilen mit Daten und Zeilen, die leer sind. Geben Sie den folgenden :

Zelle B1: test1

Zelle C1: test1

Zelle A4: test2

Zelle B4: test2

Zelle C4: test2

Zelle D4: test2

Zelle A5: test3

Zelle B5: test3

Handy C5: test3

Zelle A9: test4
3

Presse "Alt + F11 ", um den Visual Basic -Editor zu öffnen
4

Legen Sie eine leere Modul , um Ihre VBA-Code zu halten. . Wählen Sie "Einfügen " und dann " Module" aus dem Menü.
5

Starten Sie ein neues Unterprogramm namens " PasteAvail . " Geben Sie den folgenden Code in das Modul : " . Geben Sie "

Sub PasteAvail ()

Press Excel fügt ein "End Sub "-Anweisung.
6

Deklarieren Sie die Variablen , die Sie verwenden . Geben Sie den folgenden zwischen der "Sub" und "End Sub " Aussagen :

Dim MaxRows As Long , LastRow As Long , i As Long Dim

MaxCols As Integer , FirstRow As Integer
Seite 7

Weisen Variablen, um die Gesamtzahl der Zeilen und Spalten auf dem Arbeitsblatt zu halten. Der tatsächliche Wert dieser Variablen wird , welche Version von Excel Sie verwenden . Geben Sie den folgenden :

MaxRows = Rows.Count

MaxCols = Columns.Count
8

zuweisen Variablen Zeile Zahlen für den ersten und letzten Reihen zu halten , die enthalten Daten . Dies vermeidet eine lange Schleife durch jede Zeile in der Tabelle. Geben Sie den folgenden : . .

FirstRow = 1

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

Code hinzufügen bei jedem aussehen Reihe, von Anfang bis Ende , entscheiden , ob die Zeile leer ist, und kopieren oder Einfügen nach Bedarf. Geben Sie den folgenden : .

Für i = FirstRow Um LastRow

Rows ( i) Wählen

Wenn WorksheetFunction.CountBlank (Rows (i)) = MaxCols Dann

ActiveSheet.Paste

Else

Selection.Copy

End If Next i

10

Lassen Sie das "End Sub "-Anweisung im Ort.
11

Führen Sie das Makro. Wählen Sie "Ausführen ", dann " Ausführen auf Sub /UserForm " aus dem Menü.
12

Presse "Alt + F11 ", um das Excel-Arbeitsblatt zurückzukehren und die Ergebnisse anzuzeigen.