关于vba汇总问题

abc123281 · 发表于 2017-10-22 14:47

请哪位老师帮我纠正一下工作表中的汇总代码，我实在找不出错误原因，先谢过

abc123281 · 发表于 2017-10-22 14:51

多工作表的内容汇总.rar (24.85 KB, 下载次数: 27)

liulang0808 · 发表于 2017-10-22 15:22

Dim sht As Worksheet
cell.Offset(0, -1).Resize(.Rows.Count, 1).Merge
另外建议楼主尽可能不要使用容错语句

abc123281 · 发表于 2017-10-22 15:53

非常感谢老师的指导，我试试看

abc123281 · 发表于 2017-10-22 16:00

老师我把错误改好试了一下，好像不会复制分表中的内容，请老师帮忙看一下错误原因

liulang0808 · 发表于 2017-10-22 16:05

abc123281 发表于 2017-10-22 16:00
老师我把错误改好试了一下，好像不会复制分表中的内容，请老师帮忙看一下错误原因

除了上面提到的，还有其他问题
使用了with，就至于各部分的是否需要前置加“.”
请楼主细查一下吧

abc123281 · 发表于 2017-10-22 16:10

谢老师，我认真查看，前面代码中的错误是我粗心造成的，但调试时没有报错

jsgj2023 · 发表于 2017-10-22 17:11

请见附件!!!

abc123281 · 发表于 2017-10-22 17:42

感谢老师的帮助、关注，我试了，非常好。就是我想要的效果。我一定认真学习老师的代码

abc123281 · 发表于 2017-10-22 17:55

祝贺老师昨日申请担任版主成功

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

[求助] 关于vba汇总问题