Question

VBA代码，到底哪里出错了，说是下标越界

Answer 1

1.这一句有错误：wb.sheet(i).activate，应该是：wb.sheets(i).activate。但是，即便你纠正了错误，但这一句就有可能“下标越界”，比如有一个工作薄只有3个表，你这样wb.sheet(4).activate就越界了。
2.这个arr1是个变体型，不一定就是数组。比如F列只有F2单元格有数据，下面没有了，那么arr1就不是一个二维数组，而是只包含一个值(F2的值)的变量；只有当F列从F2往下有超过1个的数据时，arr1才是一个二维数组。
3.当arr1不是数组的时候，你这样调用就越界了：arr1(j)。即便arr1是数组，你这样调用也会越界，因为arr1它是一个“二维数组”，不能像一维数组那样使用。也就是说不管arr1是不是数组，arr1(j)都是越界的。
4.因为arr1和arr2都是同样大小的，只是一个表示一列数据，另一个表示一行数据。所以resize的时候就这样就行：(ubound(arr1),1)，而不需要(ubound(arr1)+1,1)