[原創] 多筆活頁簿 多筆關鍵字 一鍵更換巨集

mark15jill

如題...
使用方法
只要將該關鍵字替換 再按快捷建即可..

優點: 不用再一頁一頁 一筆一筆 慢慢更改
缺點:如果資料多 會造成電腦LAG ....
PS 可搭配EXCEL其他相關 例如:將資料複製於其他活頁簿 或自動更改其他活頁簿的名稱 等等之類的 <但是小弟還沒研究出這個 ...>

以下是該程式碼
Sub Macro1()
'
' Macro1 Macro
'
' 快速鍵: Ctrl+j
'
    Sheets("要更換的活頁簿1").Select
    Cells.Replace What:="原始關鍵字1", Replacement:="更換後的關鍵字1", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Cells.Replace What:="原始關鍵字2", Replacement:="更換後的關鍵字2", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

    Sheets("要更換的活頁簿2").Select
    Cells.Replace What:="原始關鍵字1", Replacement:="更換後的關鍵字1", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Cells.Replace What:="原始關鍵字2", Replacement:="更換後的關鍵字2", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False


End Sub