vba - 将某些单元格复制到新的工作簿/工作表

Question

我已经对以前的问题进行了彻底的搜索，但我找不到我正在寻找的东西。

每天我必须从互联网上下载一个文件，其中的列总是相同的，但值（除了标题行）是不同的。有很多专栏我不需要关注。

我希望能够创建一个宏，我将链接到 Excel 中的一个按钮，该按钮将： 从一张工作表中获取某些列，并将它们粘贴到新的空白工作表或工作簿中。

我在搜索时发现的大多数结果似乎都包含规则：“if something”或“when ...”等 - 我不需要这个。

我只是想制作一些需要：列：C、N、AC、AG、AZ 等并将它们粘贴到另一张空白纸中的 A、B、C、D 等列。

Answer 1

幸运的是，为此编写代码非常简单。只需创建一个按钮和一个单击方法，然后将类似这样的内容放入方法的主体中：

Sheets("Sheet3").Select
Columns("A:A").Select
Selection.Copy
Sheets("Sheet4").Select
Range("A1").Select
ActiveSheet.Paste

你需要为每一列做这件事，但如果你为用户创建一个漂亮的 UI，这一切都可以在代码中完成。