如何使用目標范圍刪除 VBA 中的行

Question

我有一張工作表，我需要刪除從 A3:M3 開始的行。 他下面的所有行也應該被刪除。 我正在使用下面的代碼，現在整行都是空的。

任何提示和技巧如何做到這一點？

For i = 3 To 10
    rws = "A" & i & ":" & "M" & i
    Range(rws).EntireRow.Delete
Next

Answer 1

請嘗試下一個代碼：

Sub deleteRowsOver3()
   Dim sh As Worksheet, lastR As Long
   
   Set sh = ActiveSheet
   lastR = sh.Range("A" & sh.rows.Count).End(xlUp).row
   sh.Range("A3:A" & lastR).EntireRow.Delete
End Sub