EXCEL批量修改工作表名称 VBA

2024-11-24 06:22:13

推荐回答（3个）

回答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
'如果执行中遇到问题请拷屏追问，如需代劳请百度云联系。

回答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

回答3：

仪表图