EXCEL多筆文字資料取代問題? | 一次取代多筆
<範例檔>請試試:http://www.funp.net/697845[1]※先將要被取代工作表檔案放入〔A2001〕資料夾中。※開啟本範例檔(被取代檔不用開啟),輸入好要取代的文字, 一次可取代20個文字或字串,一個按鈕完成。2011-03-3013:41:20補充:使用VBA快速將EXCEL檔案中部份字串取代為新字串 .准提部林.---------------------------------■提供一次20個文字的取代,可為單字也可為連續字串。 若想增加取代文字的個數,可在最後一列上方插入需要的列數, 再更改下列的程式碼即可。 Fory=1To30 → 調整...
<範例檔>請試試:
http://www.funp.net/697845[1]
※先將要被取代工作表檔案放入〔A2001〕資料夾中。
※開啟本範例檔(被取代檔不用開啟),輸入好要取代的文字,
一次可取代20個文字或字串,一個按鈕完成。
2011-03-30 13:41:20 補充:
使用VBA快速將EXCEL檔案中部份字串取代為新字串 .准提部林.
---------------------------------
■提供一次 20 個文字的取代,可為單字也可為連續字串。
若想增加取代文字的個數,可在最後一列上方插入需要的列數,
再更改下列的程式碼即可。
For y = 1 To 30 → 調整後實際的列數
If uHead.Cells(y + 1, 2).Value <> "" Then
With LinkSht
.Cells.Replace uHead.Cells(y + 1, 2).Value, _
uHead.Cells(y + 1, 3).Value, Lookat:=xlPart
End With
End If
Next y
■可逐一處理單獨檔案的取代;也可一次將〔子資料夾〕中全部檔案的取代。
■可將自己的部份檔案〔複製一份〕放進來測試(務必保留原檔案)。
■檔案若有保護 或 工作表有保護,則無法使用。
■本檔案也可執行〔罕用〕〔特殊〕文字的取代。
原<範例檔>請參考:
http://www.funp.net/403717[2]
2011-03-30 19:09:51 補充:
只要將原來程式碼 For y = 1 To 20 改成 For y = 1 To 40,是 20 變 40,
不是將那整段抓進去,那是例子!
再試試!
2011-03-30 19:19:58 補充:
另外,原來表格插入 20 新空白列後,尾列會在第 ...