Question

您好！

我正在尝试构建一个循环遍历C8范围内每个单元格的代码：C3276，如果单元格值为“Total”，则在下面插入一个新行。

这是我到目前为止的代码：

super()

执行代码时没有任何反应。我假设代码是在宏运行时错误构建的（我没有收到任何错误消息），但没有做任何事情。

非常感谢任何帮助！：）

Answer 1

我认为有两个问题。 1）你应该向后循环，否则你会在添加更多行时跳过行，2）在循环中你应该引用cell而不是从未设置的ActiveCell。

Sub Create_new_rows()

Dim rng As Range, r As Long

Set rng = Range("C8:C3276")

For r = rng.Count To 1 Step -1
    If rng(r).Value = "Total" Then
        rng(r + 1).EntireRow.Insert
    End If
Next r

End Sub

Excel VBA循环遍历列并根据单元格值插入行

1 个答案: