如何粘贴数据一定次数

Question

我有2行：

L39 = DR
L40 = CR

我想将这两行代码向下复制一定次数，每次执行宏时都会改变。我已经使用变量Template_row

计算了数字

因此，如果Template_row = 128，我希望用DR和CR填充这128行。 Like this

我不确定还需要其他哪些信息。建议使用自动填充，但是如何使目标变为可变的行数呢？

我已经看到其他代码使用了count函数，但是由于我以前已经在代码中使用过count函数，并且将其设为变量`Template_row，使用变量会更容易/可行吗？

Answer 1

您可以将行数传递给range.autofill对象。

现在，如果您将行数作为变量，那么这个小代码

Sub Macro15()

Template_row = 128

   With ActiveSheet

        .Range("L39:L40").AutoFill .Range("L39:L" & Template_row + 39)

   End With

End Sub

将range("L39:L167")设置为DR和CR

现在您可以根据需要进行修改。

---

假设活动单元是两个单元中的第一个单元：

 rw = ActiveCell.Row

.Range("L" & rw & ":L" & rw + 1).AutoFill .Range("L" & rw & ":L" & Template_row + rw)