删除 VBA 中的 2 行和 2 列

Question

我的代码如下。我想删除第 81 行和第 82 行以及 F 和 H 列。我下面的代码成功删除了这些行，但未能删除 2 列。这个 with 块在一个更大的 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

删除 VBA 中的 2 行和 2 列

Delete 2 Rows and 2 Columns in VBA

excel

vba

delete-row