[已解决][求助] 重命名工作表问题

刘985

我想把工作表名称自动重命名为特定单元格内容，比如：sheet1  B4单元格为“备件”，则sheet1自动重命名为“备件”，sheet2   B4单元格为“耗材”，则sheet2 自动重命名为“耗材”，sheet3  B4单元格为“金额”，则sheet3自动重命名为“金额”，……（所有工作表名字的引用位置一定，都是当前工作表的 B4 单元格内容），假如有10个工作表需要一次性完成上述操作，代码如何写？

[此贴子已经被作者于2008-12-23 17:58:32编辑过]

最佳答案

月排行榜 / 总排行榜

qinqh_yl

2008-12-24 11:33

Sub Macro1()
For i = 1 To 10
Sheets(i).Name = Sheets(i).Range("B4")
Next i
End Sub

跳转到最佳答案楼层

hingkk

sheet1的代码为：

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row > 1 Or Target.Column > 1 Then Exit Sub
Sheets(1).Name = Sheets(1).Range("A1")
End Sub

qinqh_yl

Sub Macro1()
For i = 1 To 10
Sheets(i).Name = Sheets(i).Range("B4")
Next i
End Sub