如何从一个工作簿复制数据并创建另一个工作簿？

Question

我想知道如何从一个工作簿中复制数据并将其粘贴到另一个工作簿中。注意 - “另一个工作簿”包含一种特定格式，其中应粘贴数据，第一个工作簿是大量数据源，因此我应该能够转到特定选项卡，取消隐藏隐藏列，应用日期过滤器，删除数据需要然后将剩余的字段和数据粘贴到第二个工作簿中。

Motor motor;

Answer 1

在上面的评论中，您似乎已经有了一些有用的答案，但这里有一些额外的提示： 您无需“选择”对象即可在VBA中使用它们。您拥有的行：

Columns("B:E").Select
Selection.Delete Shift:=xlToLeft

...可以简单地写成：

Columns("B:E").Delete Shift:=xlToLeft

此外，您不需要任何的ActiveWindow.ScrollColumn行。这些通常会由宏录制器添加到您的代码中，因为它会记录您所做的每一个更改。宏录制器是开始学习VBA的好方法，但下一步你要意识到生成的一半行是不必要的：）

您可能想要做的另一件事是在代码的开头和结尾添加以下内容：

Application.Screenupdating = False
Application.Calculation = xlCalculationManual
    ... your code here
Application.Calculation = xlCalculationAutomatic
Application.Screenupdating = True

如果没有这些行，您可能会注意到屏幕闪烁，因为它可视地向用户显示所有步骤;并且由于细胞被修改，因此在您的纸张上反复重新计算formulæ可能会有一些速度问题。上面的行将暂停这些活动在代码开头发生，然后在最后恢复它们。