如何在多個工作表中引用相同的用戶輸入范圍

Question

我正在嘗試刪除工作簿中所有工作表中的所有空行。 我已將以下代碼放在一起，但它似乎只適用於活動工作表。 我正在努力確定為什么它不適用於我的 for 循環的所有工作表。 任何建議表示贊賞

Sub deleteemptyrows()
  Dim r As Range, rows As Long, i As Long, ws As Worksheet
  Set r = Application.InputBox( _
  Title:="Macro Cell Range", _
  Prompt:="Select range you would like to delete", _
  Type:=8)



  On Error GoTo 0
    For Each ws In ThisWorkbook.Worksheets

        rows = r.rows.Count
        For i = rows To 1 Step (-1)
            If WorksheetFunction.CountA(r.rows(i)) = 0 Then r.rows(i).Delete

        Next
    Next ws

End Sub

Answer 1

Sub deleteemptyrows()
    Dim ws As Worksheet, rng As Range, strt As Long, stp As Long, i As Long
    On Error Resume Next
    Set rng = Application.InputBox("Select range you would like to delete", "Macro Cell Range", Type:=8)
    strt = rng(1).Row: stp = strt + rng.rows.Count
    For Each ws In ThisWorkbook.Worksheets
        For i = stp To strt Step (-1)
            If WorksheetFunction.CountA(ws.Cells(i, 1).EntireRow) = 0 Then ws.Cells(i, 1).EntireRow.Delete
        Next
    Next ws
End Sub