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