Vba只会选择列中单元格标记为＆＃34; x＆＃34;

Question

我正在寻找VBA代码，它会查看像A这样的特定列，并且只选择具有标记为＆＃34; x＆＃34;的某些单元格的行。

Answer 1

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

Answer 2

使用

.Autofilter 方法

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