[發問] 搜尋指定字串並以其他文字取代

帖子: 63
主題: 15
精華: 0
積分: 100
點名: 0
作業系統: WINXP
軟體版本: SP3
閱讀權限: 20
註冊時間: 2011-12-22
最後登錄: 2024-8-21

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2012-1-3 19:32 | 只看該作者

[發問] 搜尋指定字串並以其他文字取代

請問是否可以搜尋指定字串並以其他文字取代~~

在 A 工作表填入搜尋字串以及欲取代字串去修改 B 工作表內的資料

B 工作表修改前

B 工作表修改後

附件

QQ1.rar (1.82 KB)

感謝~~

樓主熱帖

　頭銜: 麻辣路人甲

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

2^#

發表於 2012-1-3 19:43 | 只看該作者

回復 1# marklos

1.輔助欄
I1=SUBSTITUTE(E1,A!$B$2,A!$B$4)
2.VBA

帖子: 63
主題: 15
精華: 0
積分: 100
點名: 0
作業系統: WINXP
軟體版本: SP3
閱讀權限: 20
註冊時間: 2011-12-22
最後登錄: 2024-8-21

3^#

發表於 2012-1-3 21:37 | 只看該作者

能否仔細說明~~感謝!

　頭銜: 麻辣路人甲

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

4^#

發表於 2012-1-3 22:45 | 只看該作者

回復 3# marklos

1.輔助欄
I1=SUBSTITUTE(E1,A!$B$2,A!$B$4) 往下複製
你已經在E欄輸入數值(搜尋字串) 所以不可能同時在E欄輸入公式來獲得取代字串
故另在I欄建立公式來獲得取代字串

2.VBA
直接把E欄的搜尋字串用取代字串來取代

Sub aa()
For A = 1 To Sheet2.Range("E65535").End(xlUp).Row
Cells(A, 5) = WorksheetFunction.Substitute(Cells(A, 5), Sheet1.[B2], Sheet1.[B4])
Next
End Sub

複製代碼

帖子: 63
主題: 15
精華: 0
積分: 100
點名: 0
作業系統: WINXP
軟體版本: SP3
閱讀權限: 20
註冊時間: 2011-12-22
最後登錄: 2024-8-21

5^#

發表於 2012-1-4 20:04 | 只看該作者

請問為甚麼只能使用一次 , 再次修改卻無法使用?

　頭銜: 麻辣路人甲

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

6^#

發表於 2012-1-4 20:07 | 只看該作者

回復 5# marklos

不會吧
附上檔案才能真正知道問題

帖子: 63
主題: 15
精華: 0
積分: 100
點名: 0
作業系統: WINXP
軟體版本: SP3
閱讀權限: 20
註冊時間: 2011-12-22
最後登錄: 2024-8-21

7^#

發表於 2012-1-6 13:58 | 只看該作者

原本的問題已解決~~
但是如果不是只有"E"欄要取代 , 而是等個"B"工作表, 只要符合資料者就要用新資料取代 , 那要如何修改?
謝謝!!!

　頭銜: 麻辣路人甲

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

8^#

發表於 2012-1-6 14:38 | 只看該作者

本帖最後由 register313 於 2012-1-6 14:40 編輯

回復 7# marklos

Sub aa()
For Each a In Sheet2.UsedRange
a.Value = WorksheetFunction.Substitute(a, Sheet1.[B2], Sheet1.[B4])
Next
End Sub

複製代碼

QQ1.rar (7 KB)

帖子: 63
主題: 15
精華: 0
積分: 100
點名: 0
作業系統: WINXP
軟體版本: SP3
閱讀權限: 20
註冊時間: 2011-12-22
最後登錄: 2024-8-21

9^#

發表於 2012-1-9 12:01 | 只看該作者

請幫忙在確認一下...
需要完全符合資料者才要用新資料取代~~
如附件例子 , 要將B工作表中所有完全符合"10"的字串都置換成"9999"
因為原本的巨集指令會將G欄位的"10010"也修改為"999909999"
感謝!

QQ2.rar (5.58 KB)

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

10^#

發表於 2012-1-9 12:16 | 只看該作者

回復 9# marklos

Sub Ex()
Sheets("B").Cells.Replace Sheets("A").[B2], Sheets("A").[B4], xlWhole
End Sub

複製代碼