返回列表 上一主題 發帖

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

mark15jill
　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生Rank: 3Rank: 3

帖子
852 
主題
79 
精華
0 
積分
918 
點名
0  
作業系統
Windows 7 , XP 
軟體版本
Office 2007, Office 2003,Office 2010,YoZo Office 
閱讀權限
50 
性別
男 
來自
宇宙 
註冊時間
2011-4-8 
最後登錄
2024-2-21 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-4-15 17:05 | 只看該作者

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

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

優點: 不用再一頁一頁 一筆一筆 慢慢更改
缺點:如果資料多 會造成電腦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
收藏 分享

        靜思自在 : 真正的愛心，是照顧好自己的這顆心。
返回列表 上一主題