[算表] VBA excel 取代文字
軟體: M$ OFFICE
版本: 2010
請教一下
Function ReplaceText(src As String, Rpl As String)
Cells.Replace What:=src, Replacement:=Rpl, LookAt:=xlWhole,
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False,
ReplaceFormat:=False
End Function
我用上面這個FUNCTION可以取代文字
不過，只能在該SHEET執行。
可以有辦法讓他執行的時後，去找每一個SHEET做取代文字的動作嗎?
謝謝了..
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 59.120.19.22
※ 文章網址: http://www.ptt.cc/bbs/Office/M.1411101302.A.451.html
→
09/19 12:39, , 1F
09/19 12:39, 1F
→
09/19 12:40, , 2F
09/19 12:40, 2F
您好
我的SUB主檔，寫成這個樣子，用FOR EACH把ReplaceText包起來
可是他還是沒有辦法執行每一個sheet..T_T
Sub LoopSheets()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
On Error Resume Next
Call ReplaceText("111", "你好")
Next ws
End Sub
※ 編輯: bernachom (59.120.19.22), 09/19/2014 12:51:14
→
09/19 13:02, , 3F
09/19 13:02, 3F
→
09/19 13:11, , 4F
09/19 13:11, 4F
您好，不好意思，想再詢問一下，
這個能做到部份取代嗎?
例如說，我的儲存格的值是 222111333
取代完之後就會變成222你好333
我找了好久還沒有個答案，希望您能再指導一下，謝謝您
※ 編輯: bernachom (59.120.19.22), 09/19/2014 17:02:16
→
09/19 17:14, , 5F
09/19 17:14, 5F
→
09/19 17:43, , 6F
09/19 17:43, 6F