[已解决]多sheet合并保留一个表头并增加a列，我的错在哪了

france723

wanl01 发表于 2017-5-5 21:33
那为什么我会这样的呢，我已经是新建excel，再执行宏

弄完我传附件给你

france723

见附件, 不要增加任何工作表, 直接进入宏, 运行程序程序 (我的Excel不支持汉字, 可能个别汉字是乱码,不影响测试)

wanl01

france723 发表于 2017-5-5 21:44
见附件, 不要增加任何工作表, 直接进入宏, 运行程序程序 (我的Excel不支持汉字, 可能个别汉字是乱码,不影响 ...

宏损坏了，不能打开，，
呜呜呜，是我电脑问题么

france723

wanl01 发表于 2017-5-5 22:49
宏损坏了，不能打开，，
呜呜呜，是我电脑问题么

你EXCEL什么版本

wanl01

07版  。我现在改成这样就行了喔 。真奇怪，，
sh.Range("a1:x1").Copy Sheets("可配").[b1]

france723

wanl01 发表于 2017-5-5 23:32
07版  。我现在改成这样就行了喔 。真奇怪，，
sh.Range("a1:x1").Copy Sheets("可配").

对，你改的也行，我是整体右移动一个格子，你是直接写入B1，一样的

wanl01

france723 发表于 2017-5-5 23:38
对，你改的也行，我是整体右移动一个格子，你是直接写入B1，一样的

感谢,帮助啊，~~

jjmysjg

france723 发表于 2017-5-5 21:44
见附件, 不要增加任何工作表, 直接进入宏, 运行程序程序 (我的Excel不支持汉字, 可能个别汉字是乱码,不影响 ...

文件不能打开，我是2007版本。请教

kszcs

谢谢楼主，下来看看