我已经录制了一个宏来在我想使用的表中创建列,现在我想在每一行中输入内容。我发现这段代码会询问输入的行数并显示许多空白行:
Dim j As Long, r As Range
j = InputBox("type the number of rows to be insered")
Set r = Range("A2")
Do
Range(r.Offset(1, 0), r.Offset(j, 0)).EntireRow.Insert
Set r = Cells(r.Row + j + 1, 1)
MsgBox r.Address
If r.Offset(1, 0) = "" Then Exit Do
Loop
我想知道如何根据我拥有的列将内容插入到这些行中(在循环中的哪个位置?)?哪个功能可以让我这样做?