0Alchemy

Sub 取代簡易()

Selection.Replace "AAA", "BBB"                                '將選取的欄位 AAA取代成BBB
ActiveSheet.UsedRange.Replace "AAA", "BBB"  '將整個頁面AAA取代成BBB

End Sub

P.S ActiveSheet.UsedRange也可以宣告儲存 EX:

Sub 取代簡易一()

Set AAA = ActiveSheet.UsedRange

AAA.Replace "AAA", "BBB"     '將整個頁面AAA取代成BBB

End Sub

Sub 取代()

Columns("A:A").Select                           '將A選取
S = Array(700, 1100, 1500, 2300)
R = Array("J07", "J11", "J15", "J23")

For i = 0 To UBound(S)                          '用UBound去搜尋陣列的大小
Selection.Replace S(i), R(i)                      '將S資料陣列取代成R陣列

End Sub