EXCEL批量修改工作表名称 VBA

Question

我在sheet1 有一个表格, 是改名字用的, 怎麼样可以用VBA批量修改工作表名称。
谢谢!
sheet1:

我想逹到的各页效果,在页的A1也写有代码:

Answer 1

VBA代码如下：

Sub å®1()
    For Each r In Sheet1.Range("B2:B100").Cells
        With ThisWorkBook.Sheets.Add
            .Name = r.Value
            .Cells(1,1) = r.Value
        End With
    Next r
End Sub
'如果执行中遇到问题请拷屏追问，如需代劳请百度云联系。

追问

直接400

追答

执行前代码和表：

执行后的代码和表：

程序绝对没有问题，至于你是哪里错了，需要你贴图并详细描述过程。



Answer 2

比如A列保存着你的表格名称：

Sub test()
Dim ws As Worksheet
i = 1
For Each ws In ThisWorkbook.Worksheets
ws.Name = Sheet1.Cells(i, 1)
i = i + 1
Next
End Sub

追问

只成功了2个, 其他的不知道为什麼不行

追答

原因你可以通过单步执行来调试啊

Answer 3

仪表图