Question

这应该很简单。但有困难。我创建了一个变量调用numCountRows，它将计算一个范围内的行数，然后再添加13.我尝试了以下代码行，但这会导致运行时错误1004.您输入的文本不是有效的参考或定义的名称。

ActiveSheet.PageSetup.PrintArea = "ActiveSheet.Range(""" & "A14:O" & numCountRows & ")"

如果numCountRows = 1，代码行将如下所示：

ActiveSheet.PageSetup.PrintArea = ActiveSheet.Range("A14:O14")

我做错了什么？

Answer 1

仅包括细胞范围;不包括工作表名称。例如：

ActiveSheet.PageSetup.PrintArea = "A14:O" & numCountRows