帮忙看看这个重命名的代码哪里不对

zgdlong · 发表于 2018-11-19 10:16

Sub 重命名()
Dim i As Long
For i = 1 To Sheets.Count
Sheets(i).Name = Sheets("目录").Cells(i, 1).Value
Next

End Sub

file:///C:\Users\NCJX-CBHC-01\AppData\Roaming\Tencent\Users\1159871260\QQ\WinTemp\RichOle\@DQIYWX52Y5}_L2T)WUXHKM.png

小石头936 · 发表于 2018-11-19 11:51

If Sheets(i).Name <> "目录" Then
Sheets(i).Name = Sheets("目录").Cells(i, 1).Value
End If
不能修改目录表单名。

小石头936 · 发表于 2018-11-19 11:57

如果确定要修改目录表单名，就把目录表挪到第一的位置。
Sheets(i).Name = Sheets(1).Cells(i, 1).Value

		自动登录	找回密码
密码			免费注册