「do until ~」について、誤っている箇所をご教示願います。

Question

【やりたいこと】
エクセルシートのA4以下(A5,A6...An)について、
空白セルまでエクセル関数text(A4,"0000000")を適用するマクロを組みたい。

【作成した式】
Sub format関数()
Dim i As Long
i = 4
Do Until Cells(i, 1) = ""
Format(Cells(i, 1),"0000000")
i = i + 1
Loop
End Sub

【エラー文】
コンパイルエラー：構文エラー

・どこが間違っているのか
・どう組めば稼働するのか
上記2点についてご教示いただけると幸いです。
宜しくお願いいたします。

Answer 1

Format関数の結果をどうするかが記述されていないので、以下のように「Format関数の結果をCells(i,1)に入力する」としてあげてください。

Do Until Cells(i, 1) = ""

    Cells(i, 1) = Format(Cells(i, 1),"0000000")
    i = i + 1

Loop

Comments

[jinoji]

Format関数のことだけ考えるとそうだけど、
もしかしたら必要なのは
Cells(i, 1).NumberFormatLocal = "0000000"
かもしれない。

[Usirow]

確かにこの場合はそっちの方が正道っぽいですね。