Excel Vba，仅选择列中单元格标记为“的行”；x"；

我正在寻找VBA代码，该代码将查看特定列（如a），并且仅选择具有标记为“x”的特定单元格的行。

使用

.自动过滤法

---

使用

.AutoFilter

范围对象方法。

Sub SelectRow()
Dim columnRange As Range
Dim c As Range
Set columnRange = Range("A:A")

For Each c In columnRange 'For every cell in column a
    If InStr(1, c, "x") Then 'If cell contains "x" then
        c.EntireRow.Select 'Select row
    End If
Next c

End Sub

Sub FilterTo1Criteria()
With Sheet1
        .AutoFilterMode = False
        .Range("A:D").AutoFilter
        .Range("A:z").AutoFilter Field:=1, Criteria1:=x
End With