Excelmacros读取另一个电子表格中的行数并填充公式

所以我有两个电子表格。 其中之一包含大量的数据，每列标题为几次，所以每列的实际数据结束从第4行开始。 在我的其他工作表中（注意：他们在同一个excel文件中），我有一些列标题，第3行中的公式，然后是第4行和第4行中的公式输出。 从本质上讲，我已经制定了检查某些列的公式以及存在数据的每一行中的信息。 我想要做的是有一个buttonmacros，查看在第一行电子表格中从第4行开始有多less行数据，然后自动将第二张表格中的公式填充到一定数量的行中。

我试图写macros，但我最终得到一个运行时错误。 这里是代码：

Range("A4:S4").AutoFill Destination:=Range("A4:S" & Cells(Row.Count, "Core Data2!A").End(xlUp).Row) 

AS是我在配方表中列的数量。 核心数据2是包含所有数据的电子表格

如果有人可以请告诉我如何得到这个工作，这将不胜感激。

Answer 1

使用以下代码为每个列A到S：

 Range("A4:A" & Sheets("Core Data2").Range("A" & Rows.Count).End(xlUp).Row).Formula = "=[INSERT FORMULA HERE]" 

在这个例子中，A是“自动填充”到“核心数据2”表A列中填充了数据的行数的列。