Excel VBAについて

数字が1桁の時に０を付けたいのですが、うまくできないです。

Sub aaa()
Dim i As Long

For i = 2 To 7

If Len(Cells(i, 1) = 1) Then
Cells(i, 2) = "0" & Cells(i, 1)
Else
End If
Next i

End Sub

このコードですと、　10は、010になります。

どこわ悪いのか、お手数ですが、ご教示お願いします。

No.2 ベストアンサー 回答者： satoumasaru 回答日時： 2019/09/04 20:09

If Len(Cells(i, 1) = 1) Then

を
If Len(Cells(i, 1)) = 1 Then
に変えれば良いのではないでしょうか？

この回答へのお礼

回答ありがとうございました。できました。

お礼日時：2019/09/04 20:23

No.1 回答者： くんこば 回答日時： 2019/09/04 20:03

書式設定使いましょう。

format関数
format(数値,”00”)