用vba选取符合条件的区域

用vba选取符合条件的区域

Sub s()
    Dim rg As Range
    n = Cells(Rows.Count, 4).End(3).Row
    For i = 1 To n
    If InStr(Cells(i, 4), "a") > 0 Then
    Set rg = Union(rg, Cells(i, 1).Resize(1, 4))
    Next
End Sub追问
追答Sub s()
Dim rg As Range
n = Cells(Rows.Count, 4).End(3).Row
For i = 1 To n
If InStr(Cells(i, 4), "a") > 0 Then
Set rg = Union(rg, Cells(i, 1).Resize(1, 4))
endif
Next
End Sub追问
还是不行

追答Sub s()
    Dim rg As Range
    n = Cells(Rows.Count, 4).End(3).Row
    For i = 1 To n
    If InStr(Cells(i, 4), "a") > 0 Then
    If rg Is Nothing Then
    Set rg = Cells(i, 1).Resize(1, 4)
    Else
    Set rg = Union(rg, Cells(i, 1).Resize(1, 4))
    End If
    End If
    Next
    rg.Select
End Sub