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

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

    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列中的内容，而不是将新行的所有内容清除为最后一行代码命令

提前感谢,，

---

特雷弗

试着用这个代替你的最后一行：

Dim x As String

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

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

---

这很好用——正是我所需要的。谢谢