Vba Excel宏,用于读取另一个电子表格中的行数并填写公式

Vba Excel宏,用于读取另一个电子表格中的行数并填写公式,vba,excel,Vba,Excel,所以我有两张电子表格。其中一个包含大量数据,每列都有几次标题,因此每列的实际数据都从第4行开始。在我的另一张表中(注意:它们在同一个excel文件中),我有一些列标题,第3行有一个公式,然后是第4行和第4行的公式输出。基本上,我已经制作了一些公式,用于检查某些列以及其中包含数据的每一行的信息。我想做的是有一个按钮宏,它查看从第4行开始的第一个电子表格中有多少行数据,然后自动将第二张表格中的公式填充到一定数量的行 我曾尝试编写宏,但最终得到一个运行时错误。代码如下: Range("A4:S4").

所以我有两张电子表格。其中一个包含大量数据,每列都有几次标题,因此每列的实际数据都从第4行开始。在我的另一张表中(注意:它们在同一个excel文件中),我有一些列标题,第3行有一个公式,然后是第4行和第4行的公式输出。基本上,我已经制作了一些公式,用于检查某些列以及其中包含数据的每一行的信息。我想做的是有一个按钮宏,它查看从第4行开始的第一个电子表格中有多少行数据,然后自动将第二张表格中的公式填充到一定数量的行

我曾尝试编写宏,但最终得到一个运行时错误。代码如下:

Range("A4:S4").AutoFill Destination:=Range("A4:S" & Cells(Row.Count, "Core Data2!A").End(xlUp).Row)
A-S是我在公式表中的列数。核心数据2是包含所有数据的电子表格


如果有人能告诉我如何使其工作,我将不胜感激。

请为A到S列使用以下代码:

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

在本例中,A是将“自动填充”到“Core Data2”工作表A列中数据填充行数的列

我尝试过这样做:Range(“A4:A”和Sheets(“Core Data2”).Range(“A”和Rows.Count).End(xlUp.Row).Formula=“=IF(EXACT('Core Data2'!E4,'Core Data'!E4),“True”,“预填充信息中的差异”)”,但当它碰到“True”时,它说我有一个预期的End语句在我的公式@user2696883中,你能详细说明出了什么问题吗?似乎您正在将字段中的字符串与完全相同的字段(核心数据2的单元格E4)进行比较。如果是这样的话,它肯定是真的。它是在两个不同的数据表中比较同一个单元格。这是一个公式,用于检查数据是否在一次发送到另一个源时进行了更新。如果仔细查看其核心数据2和核心数据。问题可能是在你的宏之后我在哪里输入了我的公式?当我在第一条注释中键入准确的代码时,它会给我一个编译错误,当我去调试时,它会突出显示“True”部分。抱歉,我错过了工作表名称的差异。在发布前信息的True和Difference中添加双倒逗号。例如“真的”而不仅仅是“真的”。非常感谢你,这么长时间以来一直坚持这一点。我知道这是一件很奇怪的事情,需要去做。