修改这个 n = Sheets(m).[a65536].End(xlUp).Row为n = She" />
乔山办公网我们一直在努力
您的位置:乔山办公网 > excel表格制作 > <em>excel</em>多个sheet数据合并到一个sheet中,<em>vba

<em>excel</em>多个sheet数据合并到一个sheet中,<em>vba

作者:乔山办公网日期:

返回目录:excel表格制作




修改这个 n = Sheets(m).[a65536].End(xlUp).Row
为n = Sheets(m).[a65536].End(xlUp).Row-1


问题出在这里
xrow = wt.Range("A1").CurrentRegion.Rows.Count - 1
每表A2为空时,xrow=0,那么wt.Range("A2").Resize(xrow, 7).Copy sht.Range("A1048576").End(xlUp).Offset(1, 0)就出错了

相关阅读

关键词不能为空
极力推荐

ppt怎么做_excel表格制作_office365_word文档_365办公网