Fråga : Hur man skapar en makro för att ta bort förbigår från den Excelarbetssedeln 2007

Hi all
I har en workshet med ungefärligt 100k ror i excel2007.  Jag behöver att ta bort tomma 4 ror, 1 fodrar av data, och ett annat tomt ror efter den.  Kunde någon behaga visar mig hur man skapar en makro till rengöringen upp min arbetssedel?

Please ser fäst för att avbilda.  Notera: Jag önskar att ta bort fodrar 8239 through 8244.

Thanks " klar "

Svar : Hur man skapar en makro för att ta bort förbigår från den Excelarbetssedeln 2007

Paul behar försök detta:

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

UnderBajanPaul ()
Dunkel lastRow så Long, I som Long
Application.ScreenUpdating = falskt
lastRow = ActiveSheet.UsedRange.Rows.Count
För I = lastRow till 6 kliver -1
    Om inte IsNull (ror (I). Text) och IsNull (ror (I - 1). Text) och inte IsNull (ror (I - 2). Text) och _,
        Inte IsNull (ror (I - 3). Text) och inte IsNull (ror (I - 4). Text) och inte IsNull (ror (I - 5). Text) därefter
                        Spänna (ror (I - 5), ror (I)). Borttagnings
            i = I - 5
    Avsluta om
Därefter
Application.ScreenUpdating = True
Avsluta suben
Andra lösningar  
 
programming4us programming4us