请帮忙看看这个小程序哪里出错了，谢谢！

gzminge

需要把几个工作表的最后一列数据（包括单元格里的公式）复制到下一列，结果出错了。请大家帮忙看看哪里需要改一下，谢谢！


Sub 复制最后一列到下一列()

For Each sh In Worksheets(Array("Sheet2", "  ALL  ", "  ALL1  ", "  20  ", "  40  ", "  60  ", "  80  ", "  100  ", "  201  ", "  401  ", "  601  ", "  801  ", "  101  "))
c = sh.UsedRange.Columns.Count
sh.Columns(c).Copy sh.Columns(c + 1)

Next
End Sub

lcluck2002

我照着你的代码试了下，没有问题。出错有两种可能：
1、如果引用的工作表名中有空格，会导致找不到工作表，出现下标越界错误。
2、你引用的是Usedrange,如果在使用区域前有若干列空白列，那么结果应该不是你想要的。

gzminge

lcluck2002 发表于 2024-10-29 22:14
我照着你的代码试了下，没有问题。出错有两种可能：
1、如果引用的工作表名中有空格，会导致找不到工作表 ...

听君一席话，如灌甘露