如何使用VBA從字符串搜索中返回單元格引用

Question

如何從使用VBA的第1列中找到的字符串搜索中提取單元格引用的列表？例如，從下面附加的圖像中，我如何從第一行返回字符串「Apple」的單元格引用列表？優選地，單元格引用列表應列在第二列下。

Data

預先感謝您。

Answer 1

試試這個：

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 

測試：