excel - Excel vb マクロ、2 行をコピーし、3 行目に変更番号を追加します。

Question

Excelで、等しい2行をコピーしたい。ただし、3 行目には数字 1 が必要で、次の 3 行目には数字 2 が必要で、3 行目には数字 3 が必要です。次のようになります。

文章

ブラ

1

文章

ブラ

2

文章

ブラ

3

100行を書く場合、明らかにこれを簡単に行う方法が必要です。どんな提案でも大歓迎です。

Answer 1

これを試して

Sub GenerateLines()
'
' GenerateLines Macro
' 2013/10/25
'
Dim i As Long
i = 1

Dim myLineNumber As Long
myLineNumber = 1

Do
    Range("A" & i).Select
    ActiveCell.FormulaR1C1 = "Text"
    Range("A" & i + 1).Select
    ActiveCell.FormulaR1C1 = "Bla"
    Range("A" & i + 2).Select
    ActiveCell.FormulaR1C1 = myLineNumber

    If myLineNumber = 100 Then Exit Do

    i = i + 3        
    myLineNumber = myLineNumber + 1
Loop

End Sub