如何用VBA将多个Excel 同一列内容复制到另一个Excel里面自动排成列，求完整详细代码

Question

在线等 谢谢

Answer 1

这样就行了,在"订单"的D2010面页上画一个文本框,输入"执行".然后在当前工作表内录制一个"执行"宏,如下:

Sub 执行()

Workbooks.Open Filename:="X:\\报告.xls"

Windows("D2010").Activate

Columns("C:G").Select

Application.CutCopyMode = False

Selection.Copy

Windows("报告.xls").Activate

Sheets("D2010").Select

Columns("A:E").Select

ActiveSheet.Paste

Range("A1").Select

Application.CutCopyMode = False

ActiveWorkbook.Save

ActiveWindow.Close

Range("A1").Select
End Sub

选中画好的文本框,右键,指定宏,选刚录好的上面那个"执行"宏,这样就完全实现你的要求.

说明:宏内第一行的的"X:\\报告.xls"请把它改为你的报告.XLS文件实际路径即可.

建议:能够用宏来做的,不需要用VB按钮.如果一定要用,把宏内的代码复制到按钮代码内,稍作修改即行.追问

谢谢大神。。。我有200个表格 只要每个表格里面的相同列的内容 到一个表格里面 ，有点没看懂。。

Answer 2

这个对系统的占用率太高了，效率太低。追问

我有200个表格 只要每个表格里面的相同列的内容 到一个表格里面 很难实现么？

追答

代码实现完全没有问题，主要是打开-关闭操作201次，发我范本我给你做。