Excel VBA隠しテーブル行を削除する

Question

私はVBAマクロで助けが必要です。私は隠しテーブルの行だけでなく、複数のテーブルの範囲をマージするテーブルのヘッダーを削除しようとしています。彼らは別のマクロとして働くが、私は一緒にマクロを置くとき、私は実行時エラー「1004」を得る：

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 

私は（これは私だけの範囲にテーブルを変換しようとしている：失敗したRangeクラスのメソッドを削除します。テーブルから使用する行を選択する必要がありますが、未選択の行は表示されません。ありがとう。

Answer 1

その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