小白求助,批量重命名.

jjj7890 · 发表于 2018-6-8 14:18

本帖最后由 jjj7890 于 2018-6-8 16:07 编辑

在网上找到的方法,如图,求大神看一下,怎么改.

vbee · 发表于 2018-6-8 14:26

DIM i
就好了

jjj7890 · 发表于 2018-6-8 14:33

vbee 发表于 2018-6-8 14:26
DIM i
就好了

先谢谢了,但是要怎么写.我不会..........

jjj7890 · 发表于 2018-6-8 14:34

Sub 重命名()
Dim i&
For i = 2 To Sheets.Count
Sheets(i).Name = Sheets(1).Cells(i, 1)
Next
End Sub

谢谢

liulang0808 · 发表于 2018-6-8 14:45

Sub 重命名()
For i = 2 To Sheets.Count
Sheets(i).Name = Sheets(1).Cells(i, 1)
Next
End Sub

建议楼主上传附件说明具体问题，便于解答

zjdh · 发表于 2018-6-8 14:55

你必须上传附件，说明需要怎么改名，否则都不一定适合！

jjj7890 · 发表于 2018-6-8 15:49

谢谢各位的热心帮助,这是附件.

这个是昵称吗 · 发表于 2018-6-8 16:35

电脑差，打开这个含有200+个表的excel都卡
帮你改好了
按所有名字改的，但是有2个问题
1，所以名字有重复名字，所以我在单元格名字里加了一个数字
2，名字236个，工作表237个，但是工作表有2个表是名称是数据和名字的表所以改后最后一个名字没有工作表！

jjj7890 · 发表于 2018-6-8 16:35

已经上传附件请大神帮一下.

jjj7890 · 发表于 2018-6-9 17:05

这个是昵称吗发表于 2018-6-8 16:35
电脑差，打开这个含有200+个表的excel都卡
帮你改好了
按所有名字改的，但是有2个问题

谢谢兄弟的帮助，万分感谢

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

[求助] 小白求助,批量重命名.