![vlookup 尋找逗號分隔的儲存格值以及另一張工作表的引用](https://rvso.com/image/1586909/vlookup%20%E5%B0%8B%E6%89%BE%E9%80%97%E8%99%9F%E5%88%86%E9%9A%94%E7%9A%84%E5%84%B2%E5%AD%98%E6%A0%BC%E5%80%BC%E4%BB%A5%E5%8F%8A%E5%8F%A6%E4%B8%80%E5%BC%B5%E5%B7%A5%E4%BD%9C%E8%A1%A8%E7%9A%84%E5%BC%95%E7%94%A8.png)
答案1
我會使用 VBA 來完成。
Alt使用+開啟 VBA 編輯器F11
插入 > 模組
貼上此代碼:
子查找_VBA() 調暗範圍 Dim arr() 作為字串 暗淡我只要 暗淡匹配只要 將 sResult 變暗為字串 出錯時轉到 errH 對於 Sheets("Sheet1").Range("A2:A10") 中的每個 c arr = 分割(c, ",") 對於 i = 0 至 UBound(arr) match = WorksheetFunction.match(Trim(arr(i)), Sheets("Sheet2").Cells(1).EntireColumn, 0) 如果匹配 = 0 那麼 sResult = sResult &“不適用,” 別的 sResult = sResult & Sheets("Sheet2").Cells(match, 2).Value & ", " 萬一 匹配 = 0 下一個 sResult = Left(sResult, Len(sResult) - 2) c.Offset(, 1).Value = sResult sResult = vbNullString 下一個 錯誤: 如果 Err.Number = 1004 那麼 繼續下一步 ElseIf Err.Number > 0 則 MsgBox Err.Number & " " & Err.Description, , "錯誤" 萬一 結束子
- 在程式碼中,變更
.Range("A2:A10")
為「組」列中資料的實際位址。 - 如果需要,請變更
Sheet1
和Sheet2
為您的實際工作表名稱。 - 打F5