
答案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