Löschen von Zeilen TOTAL außer ersten

Question

Ich habe Probleme mit Visual Basic in Excel, um alle Zeilen im Blatt mit Ausnahme der ersten sechs Zeilen vollständig zu löschen. Hier erläutern ich meinen Code mit einer Befehlsschaltfläche zugeordnet:

Dim i As Integer 
Dim tot_rows As Integer 

tot_rows = ThisWorkbook.Sheets("NAME").UsedRange.Rows.Count 
With Worksheets("NAME") 

For i = tot_rows To 6 Step -1 
     .Rows(i).ClearContents 
     .Rows(i).EntireRow.Delete 
Next i 

Wenn ich den Code ausführen es nicht eine einzelne Zeile nicht löschen, können Sie mir sagen, warum? tot_rows ist immer gleich 401 (und im Blatt kann ich 401 Zeilen sehen, also nehme ich an, es ist richtig). Könnte mehr als 401 Reihen sein, die ich visuell nicht sehen kann?

Vielen Dank für jede Hilfe, ich

Answer 1

.UsedRange schätzen squirrelly sein kann; insbesondere dann, wenn Ihre Daten von Zeile nicht in einem zusammenhängenden Block erweitert heraus ist 1.

dim lr as long, lc as long 

with worksheets("sheet1") 
    lr = .cells.Find(What:="*", After:=.Cells(1), LookIn:=xlFormulas, LookAt:=xlWhole, _ 
       SearchOrder:=xlByRows, SearchDirection:=xlPrevious).row 
    lc = .cells.Find(What:="*", After:=.Cells(1), LookIn:=xlFormulas, LookAt:=xlWhole, _ 
       SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).column 
    .range(.cells(7, 1), .cells(lr, lc)).clear 
end with 

Wenn Sie alle Zeilen sind ‚Löschen‘, dann müssen Sie sie nur als Block löschen. Keine Schleife; kein Löschen

Für alle Absichten und Zwecke gibt es keinen Grund, dass dies nicht tun wird, was Sie versuchen.

with worksheets("sheet1") 
    .range(.cells(7, 1), .cells(.rows.count, .columns.count)).clear 
end with