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

セル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 回答日時： 2013/07/08 10:26

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
のように。

この回答へのお礼

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

お礼日時：2013/07/08 10:44

No.3 回答者： tom04 回答日時： 2013/07/08 10:32

こんにちは！

余計なお世話かもしれませんが・・・

＞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

この回答へのお礼

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

お礼日時：2013/07/08 10:41

No.1 回答者： MSZ006 回答日時： 2013/07/08 10:21

＞If Cells(i, "A") <> "" Then Cells(i, "E") = i

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

この回答へのお礼

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

お礼日時：2013/07/08 10:46