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

marklos

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

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

下載 (8.65 KB)

2012-1-3 19:25

B 工作表 修改前

下載 (50.26 KB)

2012-1-3 19:28

B 工作表 修改後

下載 (48.57 KB)

2012-1-3 19:30

附件
QQ1.rar (1.82 KB)

下載次數: 8

2012-1-3 19:31

感謝~~

register313

回復 1# marklos

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

marklos

能否仔細說明~~感謝!

register313

回復 3# marklos

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

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

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

複製代碼

marklos

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

register313

回復 5# marklos


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

marklos

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

register313

回復 7# marklos

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

複製代碼

QQ1.rar (7 KB)

下載次數: 6

2012-1-6 14:38

marklos

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

GBKEE

回復 9# marklos

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

複製代碼