Excel VBA マクロ 繰り返し処理について

質問

初めて、ご質問させて頂きます。excel2003で、VBAによる連続繰り返し処理をしたいのですが、プログラムの知識が全くありませんので、どなたかご教授頂けませんでしょうか。
VBAによる連続繰り返し処理の内容は、excelの1つの列に上から順番に、IPアドレスを4つずつ同じ値で、入力したいのです。
例：10.30.118.1、10.30.118.1、10.30.118.1、10.30.118.1、10.30.118.2、10.30.118.2、10.30.118.2、10.30.118.2、10.30.118.3、10.30.118.3、10.30.118.3、10.30.118.3、、、
上記の例の様に、1つの列上で上のセルから順番に、4つずつ同じ値を順番に、4000行程度入力したいのですが、手で入力するのは、大変時間がかかる為、自動で入力させたいと思っています。
恐らくfor文を使うのでしょうが、その構文がわかりません。
初心者で大変申し訳ないのですが、どなたかご教授下さい。

回答No.2

hana-hana3 · ベストアンサー

下記でいかがでしょうか？
Ａ列にＩＰアドレスが入ります。

Sub IP()

Dim IP1 As Integer
Dim IP2 As Integer
Dim IP3 As Integer
Dim IP4 As Integer

Dim i As Integer
Dim Count As Long

Count = 1

IP1 = 10
IP2 = 30

For IP3 = 118 To 121
For IP4 = 1 To 255
For i = 1 To 4
Cells(Count, 1) = IP1 & "." & IP2 & "." & IP3 & "." & IP4
Count = Count + 1
Next
Next
Next

End Sub

お礼

早速のご回答有難う御座います。
早速実行してみたところ、思い通りの連続処理が自動でできました。
本当に感謝しています！有難う御座います。
後は、適確数値を変えて実行したいと思います。
有難う御座いました。

回答No.3

zap35

＃０１です。ＶＢＡがご希望かもしれませんが関数でもいけると思います。Ａ１セルに以下の式をペーストして、４０００行までコピーしてください。

="10.30."&INT((ROW()-1)/(255*4))+118&"."&MOD(INT((ROW()-1)/4),255)+1

関数で求められた４０００行のデータをコピーし、「編集」→「形式を選択して貼り付け」→「値」にすれば文字列に変換できます。

回答No.1

zap35

IPアドレスの第４オクッテドは255までです。すると1020行目までで255に達してしまいます。4000行ということはIPアドレスは1000個あるはずですね。

1021行目以降はどのようなアドレスになるのですか？

補足

早速のご回答大変感謝しております。
1021行目は、第3オクテットが1つ繰り上がります。
ですので、hanahana-3様の構文の通りです。
本当に有難う御座います。