求助各位前辈高手修改代码，执行VBA代码达不到设计效果？

lxs66666 · 发表于 2018-9-8 22:03

求助各位前辈高手修改代码，执行代码时为什么表头不能复制到新工作簿？想把同一文件夹下面的工作簿（N个）中第一个工作表的数据复制到同一文件夹新工作簿第一个工作表里（多个工作簿合并到一个工作表，并保留表头），想达到的效果如附件“查询结果（汇总效果）”，附件

不知道为什么 · 发表于 2018-9-8 22:06

你代码里没有复制标题啊

可以 A3 改为 A2

lxs66666 · 发表于 2018-9-8 22:13

不知道为什么发表于 2018-9-8 22:06
你代码里没有复制标题啊

可以 A3 改为 A2

谢谢，改为A2后，每次复制时就会把表头复制过去，想达到的效果如附件“查询结果（汇总效果）”！！

不知道为什么 · 发表于 2018-9-8 22:21

lxs66666 发表于 2018-9-8 22:13
谢谢，改为A2后，每次复制时就会把表头复制过去，想达到的效果如附件“查询结果（汇总效果）”！！

那你开始定义个 bt
dim bt as range

再下面增加

set bt =rows(1)
bt.copy [a1]

手机打字

lxs66666 · 发表于 2018-9-8 23:06

不知道为什么发表于 2018-9-8 22:21
那你开始定义个 bt
dim bt as range

好象还是有点问题，不能复制表头，复制数据重复？（不好意思，我调试了两次，未能成功）

		自动登录	找回密码
密码			免费注册

[求助] 求助各位前辈高手修改代码，执行VBA代码达不到设计效果？