excel做汇总工作簿，运行时错误1004应用程序定义或对象定义错误

xrow = sht.Range("a1").CurrentRegion.Rows.Count - 1 如果某个工作表里仅有一行数据，或者没有数据，这儿 xrow=0 然后，下面的 .resize(xrow,13) 就会出错 把上面的-1去掉，应该就可以了。