Excel VBA删除隐藏的表格行

Question

我需要有关 VBA 宏的帮助。我正在尝试删除隐藏的表格行以及表格标题以合并多个表格的范围。它们作为单独的宏工作，但是当我将宏放在一起时，我得到运行时错误“1004”：Range 类的删除方法失败：

Sub delHR()

    ' Hide table header rows
    Rows("14:15").EntireRow.Hidden = True
    Rows("26:27").EntireRow.Hidden = True

    ' Delete unselected, i.e. hidden table rows
    Dim hR As Long
    Dim lastRow

    lastRow = 50
    For hR = lastRow To 1 Step -1
    If Rows(hR).Hidden = True Then Rows(hR).EntireRow.Delete
    Next

End Sub

我尝试将表格转换为范围（我只需要从表格中选择要使用的行），但这会取消隐藏未选择的行，我需要保持隐藏以便将它们删除。谢谢。

Answer 1

指定寻址的Rows，以便vba知道：

（根据需要更改“ActiveWorkbook”和工作表）

Sub delHR()
With ActiveWorkbook.Worksheets("Temp")
    ' Hide table header rows
    .Rows("14:15").EntireRow.Hidden = True
    .Rows("26:27").EntireRow.Hidden = True

    ' Delete unselected, i.e. hidden table rows
    Dim hR As Long
    Dim lastRow

    lastRow = 50
    For hR = lastRow To 1 Step -1
    If .Rows(hR).Hidden = True Then .Rows(hR).EntireRow.Delete
    Next
End With
End Sub