マクロです。教えてください。

質問

セルAのデーターに連続番号をセルEに出すことはできましたが、連続番号が1,2,3・・・になっています。これを001,002、003としたいのですが命令文がわかりません。
どなたか教えてください。

Dim i As Long
For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
If Cells(i, "A") <> "" Then Cells(i, "E") = i
Next

回答No.2

keithin · ベストアンサー

Dim i As Long
range("E:E").numberformatlocal = "000"
For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
If Cells(i, "A") <> "" Then Cells(i, "E") = i
Next
のように。

お礼

苦労していたのがウソのようです。
ほんとうにありがとうございました。

回答No.3

tom04

こんにちは！
余計なお世話かもしれませんが・・・

＞If Cells(i, "A") <> "" Then
とありますので、
空白は飛ばして連番を表示！という解釈にしてみました。

Sub Sample1()
Dim i As Long, cnt As Long
For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
If Cells(i, "A") <> "" Then
cnt = cnt + 1
With Cells(i, "E")
.Value = cnt
.NumberFormatLocal = "000"
End With
End If
Next i
End Sub

こんな感じではどうでしょうか？m（_ _）m

お礼

ありがとうございました。できました。
ほんとうにありがとうございました。

回答No.1

MSZ006

＞If Cells(i, "A") <> "" Then Cells(i, "E") = i
を、
If Cells(i, "A") <> "" Then Cells(i, "E") = Format(i, "000")
とすればできます。

お礼

早速の回答ありがとうございました。