| |
▼hrk_power03 さん：
サンプルです。
もちろん、このコードで質問内容は実現できません＾＾；；
（質問が漠然としてるので具体的なものは書けません）
コードの意味をヘルプ等で調べ、理解できると、
自分のやりたい事に応用できるかと思います。
逆に、調べられない、調べても分からない、
という場合は、ＶＢＡでのマクロ化を諦めるか、
まず、お近くのスクールに通われることをお勧めします。
（初歩的なもの数個しか使ってませんので＾＾；；）
Sub sample()
Dim myLoop As Long
Dim myRow As Long
For myLoop = 1 To 5000 Step 5
Range("A" & myLoop) = "１番目のデータ"
Range("A" & myLoop + 1) = "２番目のデータ"
Range("A" & myLoop + 2) = "３番目のデータ"
Range("A" & myLoop + 3) = "４番目のデータ"
Range("A" & myLoop + 4) = "５番目のデータ"
myRow = Int(myLoop / 5) + 1
Range("D" & myRow) = "新データ１"
Range("E" & myRow) = "新データ２"
Next myLoop
End Sub
参考までに。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
