もう一つ質問です。

質問

エクセルで特定の数字を別の数字に変えたいのですが
どのようにマクロを組めばいいかわかりません。
例えば
　　　　A　　　　B　　　　C　　　　　D
１　　　　　　10000
２　　　　　　15000
３　　　　　　10000
４　　　　　　6000

とあった場合、B欄の10000だけを500に変えるとかです。
オートフィルターをかけても良いのですがマクロでやりたいので
どなたかお教え願います。

回答No.1

noname#31658

シート1のB列が対象です。
Sub Test()
Dim WS As Worksheet
Dim myRng As Range
Dim Lrow As Long
Set WS = Worksheets("Sheet1")
Lrow = WS.Range("B" & CStr(Rows.Count)).End(xlUp).Row
Set myRng = WS.Range("B1:B" & CStr(Lrow))
With myRng
　　　.NumberFormatLocal = "@"
　　　.Replace "123", "500", lookat:=True
　　　.NumberFormatLocal = "G/標準"
End With
End Sub