VBA复制工作表并重命名报错：仅复制两次且命名异常

我来帮你定位并解决这个VBA宏的问题，你的代码里有两个核心问题导致了命名冲突和复制次数不符合预期的情况：

问题根源 #

1. 命名变量不匹配，导致重复命名 #

你在循环中使用的变量是numtimes，但给新工作表命名时却用了未定义、未递增的变量i。这个i没有在循环过程中更新值，导致每次尝试用同一个名字去命名新工作表——比如如果i的默认值是2，第一次复制后新表被命名为Sheet2，第二次复制时依然尝试用Sheet2命名，而这个名字已经存在，Excel就会自动将新表命名为Sheet (2)，同时弹出“名称已被占用”的报错。

2. 复制位置逻辑易引发混乱 #

你设置的复制位置是After:=ActiveWorkbook.Sheets("Sheet")，这意味着每次新表都会被插入到原Sheet的后面。当第一次复制完成后，原Sheet后已经有了Sheet2，第二次复制的表会被插入到原Sheet和Sheet2之间，这种位置逻辑不仅不符合“依次创建副本”的预期，还会增加命名冲突的概率。

修正后的代码 #

' 确保LastRow已被正确赋值（例如从某列获取有效行数）
Dim numtimes As Integer
' 循环从2到LastRow，创建LastRow-1个副本
For numtimes = 2 To LastRow
    ' 将新表复制到工作簿的最后位置，避免位置混乱
    ActiveWorkbook.Sheets("Sheet").Copy After:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count)
    ' 使用循环变量命名，保证名字唯一且递增
    ActiveSheet.Name = "Sheet" & numtimes
Next numtimes

关键修正说明 #

• 统一命名变量：用循环变量numtimes来命名新工作表，它会从2开始递增到LastRow，生成Sheet2、Sheet3……SheetLastRow的唯一名称，彻底避免命名冲突。
• 优化复制位置：将复制目标改为After:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count)，让每次新表都被放在工作簿的最后，符合“依次创建副本”的直观逻辑。
• 显式声明变量：添加Dim numtimes As Integer显式声明变量，避免VBA隐式变量带来的意外问题（比如变量值异常）。

额外提醒：请确保LastRow已经被正确赋值（例如通过LastRow = Range("A" & Rows.Count).End(xlUp).Row获取某列的最后有效行数），否则循环次数会不符合预期。

内容的提问来源于stack exchange，提问作者perbrethil