Question

有人请帮忙。我正在尝试编写一个搜索特定单词的VBA代码＆＃34; K00101＆＃34;在我的Excel工作表＆＃34;销售专栏＆＃34; c＆＃34;然后删除整行。工作表中出现了很多特定单词，但我只想删除从下到上的一个单词。我的问题是代码正在删除所有行，我想在1次删除后停止..

With Sheets("Sales")
        Firstrow = .UsedRange.Cells(1).row
        Lastrow = .UsedRange.Rows(.UsedRange.Rows.Count).row

        For Lrow = Lastrow To Firstrow Step -1
            With .Cells(Lrow, "C")
                If Not IsError(.Value) Then
                    If .Value = "T00106DSG5K95" Then .EntireRow.Clear              
            End If
          End With
        Next Lrow
     End With

Answer 1

如果您想在任何时候退出循环，可以使用Exit For

With Sheets("Sales")
    Firstrow = .UsedRange.Cells(1).row
    Lastrow = .UsedRange.Rows(.UsedRange.Rows.Count).row

    For Lrow = Lastrow To Firstrow Step -1
        With .Cells(Lrow, "C")
            If Not IsError(.Value) Then
                If .Value = "T00106DSG5K95" Then
                    .EntireRow.Clear
                    Exit For
                End If
            End If
        End With
    Next Lrow
End With

如何在excel中搜索单词并删除整行但只删除一次

1 个答案: