【VBA】字串處理-擷取儲存格字串

以下範例為住家地址符合某些關鍵字時，將整個地址複製到另一儲存格的方法。

以下範例為當讀取住家地址字串時，若有符合"和"及"美"的字元，就把整個地址複製到另一儲存格。

在整個程式中，我們會用到InStr及Mid二個函數。

InStr函數:在本文用來回傳關鍵字的位置，若地址中有關鍵字則傳回1否則傳回0，故可用傳回值判斷地址是否有關鍵字。

Mid函數:在本文使用Mid函數把字串中的關鍵字("和"及"安")複製到另一儲存格。

Sub adress()
Dim keypos_A, keypos_B As Integer
Dim i As Integer

For i = 2 To 999

keypos_A = InStr(Cells(i, "A"), "和")
keypos_B = InStr(Cells(i, "A"), "安")

If keypos_A <> 0 And keypos_B <> 0 Then
Cells(i, "B") = Mid(Cells(i, "A"), keypos_A, 1)
Cells(i, "C") = Mid(Cells(i, "A"), keypos_B, 1)
Cells(i, "D") = Cells(i, "A")
End If

If Cells(i, "A") = "" Then
MsgBox "迴圈計算至" & i - 1 & "筆後結束"
Exit For
End If

Next

End Sub