[算表] VBA取代字串

看板Office作者 (賤王)時間11年前 (2015/02/04 22:14), 編輯推噓0(0019)
留言19則, 2人參與, 最新討論串1/1
軟體: Microsoft Excel 版本: 2010 問題: 小弟整理檔案時發現有先編碼有重複,故想錄製巨集用VBA來取代字串 例如:我想找到儲存格完全等於"Sales - Andy Collins" 然後在其對應的E36欄位,將字串取代為"ACA" 接著繼續找其他儲存格完全等於另一字串如"Marc Bull - Sales" 然後在其對應的E39欄位將字串取代為"MBA" 依此類推 由於錄製的巨集會只有取最後的欄位如E36,如下: Cells.Find(What:="Sales - Andy Collins", After:=ActiveCell, LookIn:= _ xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _ xlNext, MatchCase:=False, MatchByte:=False, SearchFormat:=False).Activate Cells.FindNext(After:=ActiveCell).Activate Range("E36").Select ActiveCell.FormulaR1C1 = "ACA" Range("E37").Select 但之後檔案若有改變欄位則無法使用 故想請教一下這邊要如何改才能是對應完"Sales - Andy Collins" 之後取代他對應那欄的字串 請高手指導一下 非常感謝各位的協助~~ 檔案如連結https://www.sendspace.com/file/7hg64d -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 114.24.176.60 ※ 文章網址: https://www.ptt.cc/bbs/Office/M.1423059286.A.79C.html

02/04 22:26, , 1F
文中有寫到[儲存格完全等於"Sales - Andy Collins"]
02/04 22:26, 1F

02/04 22:28, , 2F
但lookat卻為xlpart
02/04 22:28, 2F

02/04 22:29, , 3F
所以要問說是否檔案中儲存格A35及A100就不用處理嗎?
02/04 22:29, 3F

02/04 22:31, , 4F
sorry 都要處理 我只是用尋找的方式錄製巨集 再請大大
02/04 22:31, 4F

02/04 22:32, , 5F
指導一下
02/04 22:32, 5F

02/04 22:42, , 6F
02/04 22:42, 6F

02/04 23:13, , 7F
這個寫法似乎會連[Sales - Andy Collins - Riser Recl]
02/04 23:13, 7F

02/04 23:14, , 8F
只要有這個字串的都會變成"ACA" 不知道這有無辦法解決?
02/04 23:14, 8F

02/04 23:15, , 9F
soyoso非常感謝協助!!
02/04 23:15, 9F

02/04 23:19, , 10F
如上面所問A35及A100是否不用處理,而原po回覆都要處理來
02/04 23:19, 10F

02/04 23:20, , 11F
看,A35,A36,A100中都有字串"Sales - Andy Collins",因此
02/04 23:20, 11F

02/04 23:20, , 12F
這三格都會處理到
02/04 23:20, 12F

02/04 23:21, , 13F
那目前是否要完全符合的A36才要處理呢?
02/04 23:21, 13F

02/04 23:24, , 14F
是的 只有A36才需處理 我誤會你的意思 Sorry~~感謝解釋
02/04 23:24, 14F

02/04 23:25, , 15F
已修正,https://db.tt/YVT47SDo 請重下
02/04 23:25, 15F

02/04 23:32, , 16F
非常感謝! 程式碼差在Find(fStr(i), , xlValues, 1)
02/04 23:32, 16F

02/04 23:33, , 17F
是的,原本2(xlpart)改為1(xlwhole)
02/04 23:33, 17F

02/04 23:34, , 18F
1、2的差別是? 可以稍微跟我解說一下嗎? 感謝你的耐心!
02/04 23:34, 18F

02/04 23:35, , 19F
OK 我懂了!
02/04 23:35, 19F
文章代碼(AID): #1KqYbMUS (Office)
文章代碼(AID): #1KqYbMUS (Office)