VBA特定セルの条件で同じ個数ずつ文字入力

質問

Excel VBAの初心者です。
　 　A　　　B　　　C
1　 011 　　　　　 0.5
2 　012
3 　013
4

行の総数は下に向かって700行くらいありますが、64行ごとにひとかたまりであることが分かって
いるデータがあります。隙間はありません。またB列は空白です。
このB列にC１の数値を元に64行ごとに一定のステップで数値入力できるコードを作りたく思って
います。例として、B列はB1から0,0～と同じ数字が縦に64個つながり、B65からは0.5,0.5～と縦に
同じ数字が64個つながり、A列がなくなるまで繰り返し自動で入力したいのです。

何分初めてなものでよく分かりません。どなたかサンプルコードを教えて頂けないでしょうか。
よろしくお願いします。

回答No.4

tom04 · ベストアンサー

No.3です！

＞C１の数値を元に

を見逃していました。
↓のコードに変更してください。

Sub Sample()
Dim i As Long, cnt As Long
For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row Step 64
Cells(i, "B").Resize(64, 1) = cnt * Range("C1")
cnt = cnt + 1
Next i
End Sub

何度もごめんなさいね。m（_ _）m

お礼

素早く回答頂きありがとうございます。
非常にうまくいきました。

VBAの書籍等を読んでみてもよく分からず、質問しましたが
まさかこんな早くに解決できるとは思いませんでした。
とても勉強になりました。

回答No.3

tom04

こんにちは！
すでに回答は出ていますので、参考程度で・・・

Sub Sample()
Dim i As Long, cnt As Long
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row Step 64
Cells(i, 2).Resize(64, 1) = cnt * 0.5
cnt = cnt + 1
Next i
End Sub

こんな感じではどうでしょうか？m（_ _）m

回答No.2

kagakusuki

一部変更して以下の様なVBAでも同じ事が出来ます。

Sub Macro2()

Dim lr As Long
Dim i As Long
If WorksheetFunction.Count(Columns("A:A")) > 0 Then
lr = WorksheetFunction.Match(9E+307, Columns("A:A"))
If TypeName(Range("C1").Value) = "Double" Then
For i = 1 To lr
Range("B" & i).Value = Int((i - 1) / 64) * Range("C1").Value
Next i
End If
End If

End Sub

お礼

お礼が遅くなり失礼しました。朝早くにありがとうございました。
教えて頂いた方法、こちらもうまくいきました。

VBAの書籍等を読んでみてもよく分からず、質問しましたが
まさかこんな早くに解決できるとは思いませんでした。

お二方ともベストアンサーにしたいところですが、初心者ゆえより
シンプルなコードの方が理解しやすかったため申し訳ありません。

いろいろなやり方があるんだと思い、とても勉強になりました。

回答No.1

kagakusuki

まず、

　 　A　　　B　　　C
1　 011 　　　　　 0.5
2 　012
3 　013
4

と入力されているシートを開いてから、次のマクロを実行して下さい。

Sub Macro1()

Dim lr As Long
Dim i As Long
If WorksheetFunction.Count(Columns("A:A")) > 0 Then
lr = WorksheetFunction.Match(9E+307, Columns("A:A"))
If WorksheetFunction.IsNumber(Range("C1").Value) Then
For i = 1 To lr
Range("B" & i).Value = Int((i - 1) / 64) * Range("C1").Value
Next i
End If
End If

End Sub