String 如何使用VBA从字符串搜索返回单元格引用

如何使用VBA从第1列下的字符串搜索中提取单元格引用列表？例如，从下面附带的图像中，如何从第一行返回字符串“Apple”的单元格引用列表？最好在第2列下列出单元格参考列表

提前谢谢。

试试这个：

Option Compare Text 'to remove case sensitivity

Sub test()
    Dim S1$, S2$, Fruits As Range, x As Range
    Set Fruits = Range("A2:A" & Cells(Rows.Count, "A").End(xlUp).Row)
    For Each x In Fruits
        If x.Value2 = "Apple" Then
            S1 = S1 & " " & x.Address(0, 0)
        ElseIf x.Value2 = "Kiwi" Then
            S2 = S2 & " " & x.Address(0, 0)
        End If
    Next
    S1 = Mid(S1, 2, Len(S1)): S2 = Mid(S2, 2, Len(S2))
    Range([B2], Cells(UBound(Split(S1)) + 2, "B")) = Application.Transpose(Split(S1))
    Range([C2], Cells(UBound(Split(S2)) + 2, "C")) = Application.Transpose(Split(S2))
End Sub

测试：

您可以使用

Find（）

进行此操作。如果遇到特定问题，请尝试使用in Instr（）函数进行字符串搜索，然后发回（使用代码！）。