在新建工作簿里面运行也是一样的问题,能创建三个新的sheet,但是后面的重命名只有工作簿原有的第一个sheet1能改成111,其他新建的会报错,忽略错误继续运行也没反应。
测试1:手动创建的sheet2能重命名成功
测试2:运行第一次没反应再运行第二次,再新建三个sheet的同时第一次运行新建的3个sheet重命名成功
测试3:把sheet2.name改成sheets("sheet2").name重命名能成功
总之就是不能一次成功,请问有解决办法吗
Sub 重命名()
Dim n As Long, i As Long
n = 3
For i = 1 To n
Works