在VBA中删除2行和2列

时间:2016-07-13 14:54:39

标签: excel vba excel-vba delete-row

我的代码如下。我想删除第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

2 个答案:

答案 0 :(得分:0)

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

答案 1 :(得分:0)

尝试使用以下

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