-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

あなたがする必要があるのは、範囲を削除し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

2番目の範囲の表記にも注意してください。7B：7GではなくB7：G7です

于 2012-08-24T13:55:57.867 に答える