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