錦子老師

葉辰：請錦子老師幫忙，在B欄內，搜尋E欄的資料，並回傳被搜尋到的內容如下圖所示。

需查找的內容字數不一、位置不一，也有可能在B欄中一個地址有兩個"需查找內容"在內(可二擇一顯示)。

例如列2、列6，各有關鍵字在"需查找內容"內，有找到則回傳被"需查找內容"搜索到的欄位，沒有則顯示"-"

請問這樣有辦法做到嗎？還是回傳欄位只能單純顯示"有找到"、"無找到"

錦子老師：辰，其實這個問題是可以透過VBA的程序解決。

步驟1：按ALT+F11開啟VBA視窗。

步驟2：點取「插入 > 模組」指令，開啟一個新的空白模組。

步驟3：輸入下面程序。

Sub test3820()

For i = 2 To Range("B2").End(xlDown).Row

  Cells(i, 3) = ""

  For k = 2 To Range("E2").End(xlDown).Row

    If RTrim(Cells(i, 2)) Like "*" & RTrim(Cells(k, 5)) & "*" Then

      If RTrim(Cells(i, 3)) <> "" Then

        Cells(i, 3) = RTrim(Cells(i, 3)) & ","

      End If

      Cells(i, 3) = RTrim(Cells(i, 3)) + RTrim(Cells(k, 5))

    End If

  Next k

  If Cells(i, 3) = "" Then

    Cells(i, 3) = "-"

  End If

Next i

End Sub

步驟4：按ALT+F4鍵關閉VBA視窗。

步驟5：點取「檢視 > 巨集▼鈕 > 檢視巨集」指令。

步驟6：在【巨集】對話方塊，點取「test3820」項目，再點取「執行」鈕。

以上就是今天主要學習的知識點，希望對大家有所幫助~~有什麼問題歡迎留言，我會儘量及時的給大家答覆~~

更多相關影片教學：請點我

更多相關文章：請點我