Excel宏增行，清除特定列的内容

Question

我已经添加了一个按钮，用于在所需的变量位置添加行，并希望保留新行中存在的公式，同时删除其他值。这就是我现在所拥有的：

    Private Sub CommandButton1_Click()
    Dim varUserInput As Variant
     varUserInput = InputBox("Enter Row Number where you want to add a row:", _
      "What Row?")
     If varUserInput = "" Then Exit Sub

    RowNum = varUserInput
    Rows(RowNum & ":" & RowNum).Insert Shift:=xlDown
    Rows(RowNum - 1 & ":" & RowNum - 1).Copy Range("A" & RowNum)
    Range(RowNum & ":" & RowNum).ClearContents

    End Sub

我希望只删除列A:B和I:AG中的内容，而不是将新行的所有内容作为最后一行代码命令清除。

先谢谢你，特雷弗

Answer 1

试着用下面这一行代替最后一行：

Dim x As String

x = "A" & varUserInput & ":" & "B" & varUserInput
Range(x).ClearContents

x = "I" & varUserInput & ":" & "AG" & varUserInput
Range(x).ClearContents