Question

我正在尝试查找单元格值“ Details”，并删除该行以及它下面的3行。

我当前拥有的代码有效，但是一旦不再有带有“ Details”的单元格，我就会收到错误框，要求我结束宏或调试。

如何修复当前代码并消除错误消息框的弹出窗口。

我当前的代码如下。

Dim StartRange As String
Dim EndRange As String
For Each Cell In ActiveSheet.Range("A1:A1000")
    Cells.Find(What:="Details").Select
    StartRange = ActiveCell.Address
    Selection.Offset(3, 75).Select
    EndRange = ActiveCell.Address
    ActiveSheet.Range(StartRange & ":" & EndRange).Select
    Selection.EntireRow.Delete
Next Cell

Answer 1

尝试一下-注意，最好用您的Range和Workbook的名字（即Worksheet）来完全限定Workbooks("MyWorkbook").Worksheets("MyWorksheet").Range()。

Option Compare Text
Sub Test()

Dim i As Long

For i = 10000 To 1 Step -1
    If Range("B" & i).Value = "details" Then
        Range("B" & i & ":B" & i + 3).EntireRow.Delete
    ElseIf Range("V" & i).Value = "pending renewal" Then
        Range("V" & i & ":V" & i + 7).EntireRow.Delete
    End If
Next i

End Sub

VBA代码完成后将停止运行当前代码

1 个答案: