>>583
これでやったら912文字のところでエラーになった
Sub test()
　　For r = 1 To 1000
　　　　Cells(r, 1) = String(r, "あ")
　　　　Cells(r, 2) = Cells(r, 1)
　　Next
End Sub