刪除單元格行，但不是整行

Question

我只需要刪除單元格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 

Answer 1

你需要做的是刪除向左或向上範圍B7:G7，轉移細胞（根據需要）：

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

或

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

Answer 2

使用With時，不應在中間兩行提及wsIMP。將您的代碼更改爲：

With wsIMP 

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

End With 

也會注意到第二範圍表示法。它是B7：G7不是7B：7G