excel - Excel vb宏，复制两行，在第三行添加一个变化的数字

Question

在excel中，我想复制两行相等的行。但是在第三行我想要数字 1，接下来的第三行我想要数字 2，在第三行我想要数字 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