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

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

1 个答案: