Question

如果一列中包含12345，我想在下面插入一行

我的代码无法正常工作，因为未插入任何内容

Sub Macro 1()
    Dim i as Integer, inttofind as Integer, app as range, cell as   range
    inttofind=12345
    For i=10 to 6000
        If cells(I,137).Value = inttofind Then
            Cell.offset(1).insert
        End if
    Next I
End sub

Answer 1

您的功能有多个问题。

除了已经指出的内容外，我建议您使用工作簿和工作表完全限定您的范围。这样，如果宏在您位于其他书/页中时运行，则不会引起问题。

Sub Macro1()
    Dim RngToCheck As Range
    Set RngToCheck = ThisWorkbook.Sheets("Sheet1").Range("EG10:EG6000")
    Dim ValToFind As Long
    ValToFind = 12345

    Dim i As Long
    For i = RngToCheck.Rows.Count To 1 Step -1
        If RngToCheck(i).Value = ValToFind Then
            RngToCheck(i + 1).EntireRow.Insert
        End If
    Next i
End Sub

如果单元格包含值，如何在下面插入一行

1 个答案: