廣告

網友您好,若是您覺得我寫的工具或文章對您有幫助,
而您或者您的朋友有在博客來購物,可以透過底下連結

如何在博客來購物贊助網站或是點選計數器下方的博客來圖示來讓網站可以永續經營。

2008年7月16日 星期三

如何在Excel一次取代多個字串

Excel有取代的功能,但是如果您要一次取代很多筆資料,就會覺得很不方便,所以我就寫了一個VBA,只要把要取代的內容一次寫完,按下開始整批取代,就會一次把您要取代的所有動作都作完。
練習檔案:
2009/9/30新增所有活頁都會取代
1.假設我要取代4種資料 2. 將batchReplace.xls跟您要取代的檔案放在同一個目錄, 只要執行batchReplace.xls(要取代的檔案會自動開啟) 3.設定您要批次取代的內容 4.執行取代完的對話框 5.程式碼一覽
Sub Macro1()

    Dim nowworkbook As String   '參數設定的檔案名稱
    Dim s   '要被取代的字串
    Dim d   '取代過的字串
  
    nowworkbook = Excel.ActiveWorkbook.Name

    Workbooks.Open Filename:=Excel.ActiveWorkbook.Path & "\" & Cells(2, 1) & ".xls"
  
    i = 2
  
    While Windows(nowworkbook).ActiveSheet.Cells(i, 2) <> ""
        s = Windows(nowworkbook).ActiveSheet.Cells(i, 2)
        d = Windows(nowworkbook).ActiveSheet.Cells(i, 3)
  
        Cells.Replace What:=s, Replacement:=d
        i = i + 1
    Wend
    Cells(1, 1).Select
    Windows(nowworkbook).Activate
    MsgBox "取代完成,請切視窗查看結果"
End Sub

贊助

彰化一整天粉絲團

About Me

我的相片

很多人問我為什麼叫"一整天",其實這是有原故的.有一天看一本書.就是說如何介紹自己.裡面說到如何讓別人對你的名字有印象.就要讓別人跟你的名字或是身體的一些特徵有關.比如很胖.就會被別人取小胖或是胖子.或是跟名字有關的諧音,那天看布袋戲中有一個叫”一頁書”的角色.所以我就想我的名字.可以想出什麼字出來.結果我把我的名字"明和",拆成日月和,日月和在一起,就代表白天晚上都在一起.就取名為"一整天",而這個"一整天"跟我的名字有關也方便別人記憶,後來發現"一整天"這個名詞太常被用,所以就在"一整天"前面加上"彰化"變成"彰化一整天",為什麼要加彰化.因為我老家在彰化,所以以後別人要找我的部落格的話.我都會跟他們說,請到yahoo或是google打"彰化一整天"第一筆出現的就是我的Blog. PS:現在只要輸入"一整天"可以找到.

Google+ Followers