搜尋指定字串並以其他文字取代 - Excelㄧ般區

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

　頭銜: 麻辣路人甲

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

1^# 跳轉到 »

發表於 2012-1-3 19:43 | 顯示全部帖子

回復 1# marklos

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

　頭銜: 麻辣路人甲

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

2^#

發表於 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

複製代碼

　頭銜: 麻辣路人甲

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

3^#

發表於 2012-1-4 20:07 | 顯示全部帖子

回復 5# marklos

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

　頭銜: 麻辣路人甲

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

4^#

發表於 2012-1-6 14:38 | 顯示全部帖子

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

回復 7# marklos

複製代碼

QQ1.rar (7 KB)

靜思自在 : 欣賞別人就是莊嚴自己。