Question

我正在尝试使用VBA在Excel中自动执行月度报告，其中最终自动填充基于可变数量的行，这些行每月随着客户端数量的变化而变化。例如：如果这个月我有25个客户端，我可以轻松地硬编码，我想创建25行报告。但是在下个月我有30个客户端时，我的代码仍然会说25个，因此会错过5个客户端。

我正在尝试的一个解决方案是计算行数并将其应用于自动填充公式。试图找到如下所示的代码：自动填充范围A1到C“工作表X中的行数。”

现在我知道这显然不起作用，但这是我最糟糕的最佳尝试：

Sub FillReport()
Sheets("Sheet1").Select
Range("D1").Select
ActiveCell.FormulaR1C1 = "=COUNTA(A:A)"
Sheets("Sheet2").Select
Range("A1:C1").Select
Selection.Autofill Destination:=Range("A1:C(Sheets("Sheet1").Range("D1").Select)")

我没想到这项工作，但无论如何都想尝试一下。如你所见，我是VBA的新手...

如果有人有任何非常有帮助的洞察力，因为我觉得应该有办法实现这一目标，我自己就完全失踪了。

感谢。

Answer 1

我喜欢使用我手动创建的范围值来做到这一点，以使其更清晰。

类似于：

Dim myRngStr as string
myRngStr = "A1:D" & Sheets("Sheet1").Range("A1").end(xldown).row 'I don't know where you will find this actually
Range("A1").Autofill Destination:=Range(myRngStr)

具有可变行数的自动填充

1 个答案: