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

时间:2012-04-24 20:36:36

标签: excel vba excel-vba excel-2003

我已经彻底搜索过以前的问题,但我找不到我想要的东西。

每天我必须从互联网上下载一个文件,其中的列总是相同的,但是值(除标题行之外的所有值)都不同。有许多专栏我不需要注意。

我希望能够创建一个宏,我将链接到Excel中的按钮,该按钮将: 从一张纸上取下某些列,然后将它们粘贴到新的空白纸或工作簿中。

我在搜索时发现的大多数结果似乎都包含规则:“如果有什么”,或“当...”等等 - 我不需要这个。

我只是想做一些事情:柱子:C,N,AC,AG,AZ等,然后将它们粘贴到另一张空白纸上的A,B,C,D等列。< / p>

1 个答案:

答案 0 :(得分:0)

幸运的是,编写代码来做到这一点非常简单。只需创建一个按钮和一个单击方法,然后将类似的东西放入方法体中:

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

你需要为每一列做这件事,但如果你为用户创建一个漂亮的用户界面,它可以用代码完成。