-2

我只需要删除单元格 7B:7G,而单独留下 7A。如何使用 excel VBA 执行此操作?

这是我现在拥有的代码:

Option Explicit

Sub Import()

    Dim lastrow As Long
    Dim wsIMP As Worksheet 'Import
    Dim wsTOT As Worksheet 'Total
    Dim wsSHI As Worksheet 'Shipped
    Dim wsEST As Worksheet 'Estimate
    Dim wsISS As Worksheet 'Issued
    Dim cel As Range

    Set wsIMP = Sheets("Import")
    Set wsTOT = Sheets("Total")
    Set wsSHI = Sheets("Shipped")
    Set wsEST = Sheets("Estimate")
    Set wsISS = Sheets("Issued")

    With wsIMP

        wsIMP.Range("E6").Cut wsIMP.Range("E5")
        wsIMP.Range("B7:G7").Delete (xlShiftUp)

    End With

End Sub
4

2 回答 2

4

您需要做的是删除 range B7:G7,向左或向上移动单元格(取决于要求):

range("B7:G7").delete(xlShiftToLeft)

或者

range("B7:G7").delete(xlShiftUp)
于 2012-08-24T13:32:27.833 回答
2

使用 With 时,不应在 2 条中间行中提及 wsIMP。将您的代码更改为:

With wsIMP

    .Range("E6").Cut .Range("E5")
    .Range("B7:G7").Delete (xlShiftUp)

End With

还要注意第二范围符号。这是 B7:G7 不是 7B:7G

于 2012-08-24T13:55:57.867 回答