EXCEL VBA で列の数字のみを修正したい

質問

EXCEL VBA で列の数字のみを修正したいのですが
内容としては
(1)カッコ内文字はそのまま維持
(2)添付資料のＮ００１から始まっているある機械加工プログラムに
　　Ｎ０５２，Ｎ０５３を挿入しプログラム内容はそのまま変更なく使用

今まで数値を一つずつ変更していて非常に大変で困っています。

ここでＮ001から始まる数値のみ順番にマクロで変換したいのですが
おすすめのコードを教えてください。

（※Ａ列に記載されているとして）

回答No.1

MSZ006 · ベストアンサー

こういうことでしょうか？

Sub test()

Dim i As Long
Dim j As Long
Dim str As String

i = 1
j = 1
str = Worksheets("sheet1").Range("A" & i).Value
Do While str <> ""
If Left(str, 1) = "N" Then
str = "N" & Format(j, "000") & Mid(str, 5, Len(str) - 4)
Worksheets("sheet1").Range("A" & i).Value = str
j = j + 1
End If
i = i + 1
str = Worksheets("sheet1").Range("A" & i).Value
Loop
End Sub

N？？？の？？？の数字を001～振り直します。

お礼

早速マクロ実行してみました。
ばっちりできました。
カッコ内の文字はそのままでＮナンバーのみ書き換えできました。
これで無駄な時間が無くなりました。
ありがとうございました。