第十二章 尋找、取代

第十二章　尋找、取代
12-01　尋找資料

應用範例
Sub 尋找資料()
moji = “台北”
MsgBox “從使用中儲存格後開始尋找含有” & moji & “文字的儲存格”
Set iti = Cells.Find(What:=moji, After:=ActiveCell)
If iti Is Nothing Then
MsgBox “找不到您想要找的資料”
Exit Sub
Else
iti.Activate
End If
End Sub

12-02　使用InStr函數尋找字串

應用範例
Sub 使用InStr函數搜尋字串()
MsgBox “從使用中儲存格內取得姓名中的姓氏”
seimei = ActiveCell.Value
jisuu = InStr(1, seimei, “ ”, 1)
sei = Left(seimei, jisuu – 1)
MsgBox sei
End Sub

12-03　將字串中指定的字串字元以其他字串字元取代

應用範例
Sub Replace函數的應用()
f = “鼓山”
r = “旗津”
MsgBox “將使用中儲存格內的 ” & f & “ 置換為 ” & r
moji = ActiveCell.Value
moji2 = Replace(moji, f, r, 1, , 1)
ActiveCell.Value = moji2
End Sub

12-04　將變數(Variant或String)中某部份的字串(字元)以其他字串(字元)取代

應用範例
Sub Mid函數的應用()
moji = ActiveCell.Value
MsgBox “將使用中儲存格內字串的前三個字以空白字取代，再刪除空白字”
Mid(moji,1 ,3) = “　　　”
moji = LTrim(moji)
ActiveCell.Value = moji
End Sub