3820 |
Excel尋找並傳回被搜索到的欄位內容-VBA |
葉辰:請錦子老師幫忙,在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」項目,再點取「執行」鈕。
以上就是今天主要學習的知識點,希望對大家有所幫助~~有什麼問題歡迎留言,我會儘量及時的給大家答覆~~
更多相關影片教學:請點我
更多相關文章:請點我
留言列表