VBA Excel：查找多個值並將匹配的值返回到下一個單元格

Question

此問題對應於此鏈接VBA Excel：從CSV文件中提取特定格式的數據

但是我這里有一個不同的問題。

在CVS文件中的完整C ，包含有關諸如Windows XP，Adobe，Office，.net Framework，vlc等應用程序軟件的信息。因此，在C我大約有1800行以上。

我想在每個＆每個col單元格或整個col中查找Windows XP，Adobe，IBM，VLC等（如果有匹配項），然后將匹配值粘貼到下一個列單元格中。

例如，如果找到“ Adob​​e”，則將“ Adob​​e”粘貼到下一個col單元格。

如何使用ìf或Lookup進行ìf或者有什么最佳方法？

if(FIND("Adobe",C:C),"TRUE","FALSE")

=Lookup(Windows XP, C:C) would return "Windows XP" =Lookup(Adobe, C:C) would return "Adobe" =Lookup(IBM, C:C) would return "IBM "

我已經在這里上傳了CVS文件！

http://uploadmb.com/freeuploadservice.php?uploadmbID=1324042163&srv=www&filename=5200.csv

Answer 1

您可以使用D列中的公式來檢查“ Windows XP”或您要查找的任何數據：

=IF(ISERROR(FIND("Windows XP",C2)),"","Windows XP")

傑西

Answer 2

Sub AddFormula()
    Dim lLR As Long
    lLR = Range("A" & Rows.Count).End(xlUp).Row
    Range("D2").FormulaArray = "=INDEX($E$2:$E$15,MATCH(1,--ISNUMBER(SEARCH($E$2:$E$15,$C2,1)),0),1)"
    Range("D2").AutoFill Destination:=Range("D2:D" & lLR)

此公式代碼可以正常工作。