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

我添加了一个button来添加所需的variables位置的行，并希望保留新行中的公式，同时消除其他值。 这是我现在所拥有的：

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