作者:乔山办公网日期:
返回目录: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)就出属错了