【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