VBA 在两个范围内搜索

Question

我对此还很陌生，而且我在整理 For...Next 循环时遇到了麻烦。

我想跟踪两列中的两个文本变量，这样当在一行中找到这两个变量时，文本就会添加到该行的不同列中。

这是我到目前为止所拥有的:

Sub AB()
Dim Rng1 As Range
Dim Rng2 As Range
Set Rng1 = Range("B1:B100")
Set Rng2 = Range("A1:A100")
For Each cel In Rng1
    If InStr(1, cel.Value, "A") > 0 Then
    For Each cel In Rng2
        If InStr(1, cel.Value, "B") > 0 Then
            cel.Offset(0, 5).Value = "AB"
        End If
    Next
    End If
Next cel

End Sub

Answer 1

您甚至可以这样做吗？

Sub AB()

With ActiveSheet

For I = 1 To 100

    If InStr(1, .Cells(I, 2), "A") > 0 And InStr(1, .Cells(I, 1), "B") > 0 Then
        .Cells(I, 6).Value = "AB" 'i think offset 5 is column F?
    End If

Next

End With

End Sub