估计是你工作簿没有17个工作表，所以下标越界。改一句：
For m = 2 To 16 改为：For m = 2 To sheets.count
另外代码写得不好，还应该简化。
For m = 2 To 16
n = Sheets(m).[a65536].End(xlUp).Row
o = Sheets(1).[a65536].End(xlUp).Row
Sheets(m).Select
sheet越界了，你的工作簿只有3个sheet1
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024