VBAを使って色々なセルに同じ文言を入力したいのですが・・・

質問

VBA超初心者です。

sheet2（A2）に日付（平成○年○月○日）を入力したのですが、
これをsheet1の色々なセルに反映させたいのです。

反映さえたいセルは規則性があって、
D、H、L列の3行目、28行目、53行目・・・と25行置きに反映させたいのですが、どうすればいいでしょうか？？

回答No.1

merlionXX · ベストアンサー

A2にはすでに入力されているのですね？
ならばとりあえず253行目まで

Sub test01()
x = Sheets("Sheet2").Range("A2").Value
For i = 3 To 253 Step (25)
With Sheets("Sheet1")
.Range("D" & i).Value = x
.Range("H" & i).Value = x
.Range("L" & i).Value = x
End With
Next
End Sub

お礼

ありがとうございました。
行数はもっとあったのですが、数字を変えたら一発でできました！
大変助かりました。

回答No.4

n-jun

Sub try()
Dim i As Long

For i = 3 To 300 Step 25 '３００行まで

With Worksheets("Sheet1").Cells(i, 4).Range("A1,E1,I1")
.NumberFormat = Worksheets("Sheet2").Range("A2").NumberFormat
.Value = Worksheets("Sheet2").Range("A2").Value
End With

Next
End Sub

３００行までの限定版。（300を適宜変更されてもＯＫ）
ご参考程度に。

回答No.3

hige_082

一例です

Sub test()
Dim i As Long, ii As Integer
Dim a As Variant
a = Worksheets("sheet2").Range("a2").Text
With Worksheets("sheet1")
For i = 3 To 1000 Step 25
For ii = 0 To 8 Step 4
.Cells(i, 4 + ii).Value = a
Next ii
Next i
End With
End Sub

回答No.2

hallo-2007

参考までに
Sub Macro1()
Range("A2").Copy
For j = 3 To InputBox("何行目まで") Step 25
Range("A" & j).PasteSpecial
Next
End Sub