セル内に連続して数字を入力するコード

質問

空白行に連続で数字を入れたくて次のようなコードを記述しましたが、入力できません。

sub()
Dim i As Integer
i = 1
Do While Cells(2 * i + 6, 1).Value = ""
Cells(2 * i + 6, "1").Value = i
i = i + 1
Loop
end sub

対象のセルは8行１列目からでセル自体は２行１列結合されています。

回答No.1

nagare · ベストアンサー

実行エラーのため、動かないのですよね？

Cells(2 * i + 6, "1").Value = i
↓
Cells(2 * i + 6, 1).Value = i

一応、動作確認しましたのでコードは正しいようです

お礼

動きました。
ありがとうございました。

回答No.2

myRange

>Cells(2 * i + 6, "1").Value = i

列の指定方法が間違ってます。

Cells(2 * i + 6, "A").Value = i

とか

Cells(2 * i + 6, 1).Value = i

など。
以上ここまで。

お礼

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