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 

아래