Frage : Wie man ein Makro verursacht, um freie Räume von Excel-Arbeitsblatt 2007 zu entfernen

Hallo haben all
I ein workshet mit Reihen ungefähr 100k in excel2007.  Ich muss 4 leere Reihen, 1 Linie von Daten und eine andere unbelegte Reihe nach ihr entfernen.  Könnte jemand mir bitte zeigen, wie man ein Makro verursacht, um mein Arbeitsblatt aufzuräumen?

Please sehen angebrachtes Bild.  Anmerkung: Ich möchte Linien löschen 8239 durchgehende 8244.

Thanks

Antwort : Wie man ein Makro verursacht, um freie Räume von Excel-Arbeitsblatt 2007 zu entfernen

Paul, versuchen bitte dieses:

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

VorBajanPaul ()
Schwaches lastRow so lang, i wie lang
Application.ScreenUpdating = falsch
lastRow = ActiveSheet.UsedRange.Rows.Count
Für i = lastRow zu 6 Schritt -1
    Wenn nicht IsNull (Reihen (i). Text) und IsNull (Reihen (i - 1).Text) und nicht IsNull (Reihen (i - 2).Text) und _
        Nicht IsNull (Reihen (i - 3).Text) und nicht IsNull (Reihen (i - 4).Text) und nicht IsNull (Reihen (i - 5).Text) dann
                        Strecke (Reihen (i - 5), Reihen (i)). Löschung
            I = i - 5
    Beenden wenn
Zunächst
Application.ScreenUpdating = ausrichten en
Enden-Unterseeboot
Weitere Lösungen  
 
programming4us programming4us