増やした列へ決められた文字を入力するには？

質問

いつもお世話になっております。

表があり、Ａ列の前に１列追加し、その新しいＡ列の３行目のセルから表の最終行に「□」（四角）を表示するようにしたいのですが、思うように行かず困っております。
「□」は印刷後に手でチェックを入れる為に使うのが目的です。

Sub test()

Columns("A").Select
Selection.Insert shift:=xlToRight
Dim myrow() As Variant
Dim i As Integer
For i = Cells(Rows.Count, 2).End(xlUp).Row To 2 Step -1
myrow(i, 3) = "□" & i
Next
End Sub

Ａ列は増えるんですが、その先が動きません。
よろしくお願いいたします。

環境はWindowsXP　Excel2003です。

回答No.1

hige_082 · ベストアンサー

こんな感じ？

Sub Macro1()
Dim i As Long
Columns("A:A").Insert Shift:=xlToRight
For i = 3 To Range("B65536").End(xlUp).Row
Cells(i, 1).Value = "□" & i
Next i
End Sub

お礼

深夜にご回答いただき、ありがとうございます。
こちらのやりたい動き通りに動かせる事が出来ました！
ありがとうございました！