100行ずつの連番を取得するマクロを教えて下さい

こんにちは。簡単なマクロだと思うのですが、初心者なので困っています。
エクセルのA1からA100までに「1」A101からA200までに「2」その後、「3,4,5、、、」と順番に書いていく簡単な方法を教えて下さい。手でコピーして行ってもよいのですが、データが大量なので。。。よろしくお願いします！

No.5 回答者： Wendy02 回答日時： 2005/11/28 15:00

たぶん、こうすればよいのでは？

Sub CentiCountPutIn()
Const LASTROW As Long = 30000 '設定

If LASTROW > 65536 Then Exit Sub
With Range("A1").Resize(LASTROW)
　 .FormulaLocal = "=INT((ROW()-1)/100)+1"
　 .Value = .Value
End With
End Sub

No.4 回答者： jindon 回答日時： 2005/11/27 15:09

A列に表示

Sub test()
With Range("a1", Range("a" & Rows.Count))
.FormulaR1C1 = _
"=if(mod(row(),100)=0,100,mod(row(),100))"
.Value = .Value
End With
End Sub

No.3 回答者： masa_019 回答日時： 2005/11/27 14:17

Sheet1のA65500まで数値を入れるなら

こんな感じでどうでしょう？

Sub test()
Dim i As Long
For i = 0 To 654
Sheets("Sheet1").Range("A1").Resize(100).Offset(100 * i).Value = i + 1
Next
End Sub

No.2 回答者： hananosaki 回答日時： 2005/11/27 14:05

Rangeを使えば，複数のセルに一度に同じ値を設定することができます。

Range("A1:A100") = 1

あとは1とか100のところを変数にして，

x=1
y=100
v=1
Range("A" & x & ":A" & y) = v

という書き方もできるので，
FOR文を使って，繰り返してやればいいと思います。

No.1 回答者： bin-chan 回答日時： 2005/11/27 14:01

１．セルＡ１に式[=INT((ROW()-1)/100)+1]を入力。

２．必要なだけ、コピー。(列Ｂに何かデータがあるなら、セルＡ１選択時に右下の黒■をダブルクリックでもＯＫ）
３．列Ａにお望みの結果が出ますが、値にしたければコピーして、形式を選択して貼り付け-値、です。