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