☰

设置数据，使得带有公式的单元格在粘贴后自动填充其余数据

tag-icon • tag-icon microsoft-excel vba microsoft-excel-2013
设置数据，使得带有公式的单元格在粘贴后自动填充其余数据

我正在运行一个宏，它将数据粘贴到另一个工作簿中。数据每月更新一次，并粘贴到下一个空白单元格中。新数据取决于目标工作簿中的公式，因此宏会重新选择以自动填充单元格。如何使自动填充在数据粘贴后立即发生，并从下一个空白处开始？

它看起来像这样：所以我希望范围从下一个空白点开始......现在它从宏中记录的数据中获取。

Range("B30289:E30289").Select
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("B30289:E40021")
Range("B30289:E40021").Select
Range("I30289:S30289").Select
Selection.AutoFill Destination:=Range("I30289:S40021")
Range("I30289:S40021").Select

答案1

使用代码

Sheets("Source").Range("<DataRange>").Copy Sheets("Target").Range("B1048576").End(XlUp).Offset(1,0)

您要复制的范围在哪里。例如：“B30289:E40021”。但您必须确保源范围始终相同。

现在如果您也希望它动态化，您可以使用例如：

Sheets("Source").Range("B2:E" & Sheets("Source").Range("E1048576").End(XlUp).Row).Copy Sheets("Target").Range("B1048576").End(XlUp).Offset(1,0)

这将复制源表从“B2”到“E”的所有数据，并将其复制到目标表的第一个空白行。

相关内容