为什么我的VBA将工作簿的代码Worksheets(i).Name=出现问题，

更新时间2019-04-25 14:17:23

Sub 修改工作表名称为工作簿()

    Dim  i As Integer

    For i = 1 To Worksheets.Count

    Worksheets(i).Name = ThisWorkbook.Name&"-"i

    i = i + 1

    Next

End Sub

（1）Worksheets(i).Name = ThisWorkbook.Name&"-"i错误，缺少连接运算符&和空格，应改为：

         Worksheets(i).Name = ThisWorkbook.Name & "-" & i

（2）i = i + 1改变了for循环变量的值，实际上是修改的奇数工作表的名称。

这种情况设置for循环的步长就行，即去掉i = i + 1这一句，修改  For i = 1 To Worksheets.Count为：

 For i = 1 To Worksheets.Count Step 2

==========

Sub 修改奇数工作表名称为工作簿名称加序号()

    Dim i As Integer

    For i = 1 To Worksheets.Count Step 2

    Worksheets(i).Name = ThisWorkbook.Name & "-" & i

    i = i + 1

    Next

End Sub