VBAの2行と2列を削除

Question

私のコードは以下の通りです。私は行81と82と列FとHを削除したい。以下の私のコードは、行を正常に削除しますが、2つの列を削除することはできません。これはブロックが大きいSub内にあります。

With Sheets("PDEL_Report 500K") 
    Rows("81:82").Select 
    Selection.ClearContents 
    Selection.Delete Shift:=xlUp 

    Columns("F:F,H:H").Select 
    Selection.ClearContents 
    Selection.EntireColumn.Delete Shift:=xlLeft 

End With 

Answer 1

With Sheets("PDEL_Report 500K") 
    .Rows("81:82").EntireRow.Delete Shift:=xlUp 
    .Columns("H:H").EntireColumn.Delete Shift:=xlLeft 'delete H first so shift does not affect current column F 
    .Columns("F:F").EntireColumn.Delete Shift:=xlLeft 
End With 

Answer 2

以下

With Sheets("PDEL_Report 500K") 
    .Rows("81:82").Delete Shift:=xlUp 
    .Columns("H:H").EntireColumn.Delete Shift:=xlToLeft 
    .Columns("F:F").EntireColumn.Delete Shift:=xlToLeft 
End With 

で試してみてください