使用 InStr 删除列中不包含子字符串的所有行答案

【问题标题】：Delete all rows not containing substring in column using InStr使用 InStr 删除列中不包含子字符串的所有行
【发布时间】：2020-02-04 21:19:05
【问题描述】：

我想将我的表格减少到第二列中所有以“X”作为子字符串的行。为此，我写了以下内容：

Sub reduce()
   Dim lngRow As Long

    With ActiveWorkbook.ActiveSheet
        lngRow = .Cells(65536, 1).End(xlUp).Row

        Do
            pos = InStr(.Cells(lngRow, 2), "X")

            If Not pos > 0 Then

                .Rows(lngRow).Delete

            End If


            lngRow = lngRow - 1
        Loop Until lngRow = 1
    End With
End Sub

不幸的是，我收到了这个错误： https://docs.microsoft.com/en-us/office/vba/Language/Reference/User-Interface-Help/application-defined-or-object-defined-error

【问题讨论】：

For Each 循环加上 Union 删除可能有助于加快速度。您的范围越大，由于删除行的收益，此解决方案就越好
为什么不在这里使用过滤器呢？文本过滤器 - 不包含“X” - 删除所有可见单元格。效率更高。

标签： excel vba

【解决方案1】：

如何在循环中执行此操作。它的代码更多，但比当前方法更有效。 @BigBen 是正确的，给定当前问题陈述，过滤器是最佳的

Sub Reduce()


'Declare variables
Dim ws As Worksheet: Set ws = ThisWorkbook.Sheets("Sheet1") '<-- Update Sheet
Dim LR As Long
Dim xCell As Range, xRange As Range
Dim DeleteMe As Range


'Assign/Set necessarry variables
LR = ws.Range("A" & ws.Rows.Count).End(xlUp).Row
Set xRange = ws.Range("A2:A" & LR)


'Create Union (Collection Of Rows) to Delete
For Each xCell In xRange
    If Not InStr(xCell.Offset(0, 1), "X") Then
        If Not DeleteMe Is Nothing Then
            Set DeleteMe = Union(xCell, DeleteMe)
        Else
            Set DeleteMe = xCell
        End If
    End If
Next xCell


'Delete the Union
If Not DeleteMe Is Nothing Then
    DeleteMe.EntireRow.Delete
End If

End Sub

【讨论】：