QA@IT

excelのマクロについて教えてください。

1983 PV

excelのマクロについてわからないので教えてください。置換した数字の末に英数字のAを追加したいのですがどのようにすればよいでしょうか。
excelのマクロでこのように書きました。
Sub Sample4()
Dim i As Long
Dim n As Long
For i = 2 To 10
For n = 3000 To 4000
If Cells(i, 2) = n Then
Cells(i, 2) = Replace(Cells(i, 2), n, 3000 + (n - 3000 - 1) + "A")
End If
Next n
Next i
End Sub

うまくいかないので教えてくださいお願いします。

回答

VBA で文字列の連結は & です。

-Cells(i, 2) = Replace(Cells(i, 2), n, 3000 + (n - 3000 - 1) + "A")
+Cells(i, 2) = Replace(Cells(i, 2), n, 3000 + (n - 3000 - 1) & "A")
編集 履歴 (0)
  • ありがとうございます。参考になりました。
    -
ウォッチ

この質問への回答やコメントをメールでお知らせします。