[已解决][求助]如何用工作表中固定位置的单元格命名所在工作表？

BB2 · 发表于 2008-4-10 16:34

在工作中需要对较多的工作表进行重命名，过去全用手工操作，比较麻烦并且易出错。请教各位高手，帮俺实现附件中的条件。

在论坛中也找了一些类是的帖子来看，但对VB实在比较初级，没弄懂，尤其对第二个条件。如能解决第一个，俺的工作就算减轻95% 了。

再次谢谢各位！！！

HAGhdnSZ.rar (2 KB, 下载次数: 27)

wayy · 发表于 2008-4-10 17:20

XfcqHBqW.rar (7.72 KB, 下载次数: 120)

BB2 · 发表于 2008-4-10 17:34

太好了，比我想象的还完美！世界因你们存在而美好！

帖子下部是您的孩子吧，祝他/她比您还聪明！！！呵呵呵呵

yuzhu · 发表于 2010-2-5 09:42

太好了，

还有个问题，如果工作表已经被命名例如：名称为 1，3，4，5，8，等

怎么按照1楼的要求修改名称？谢谢

76huolong · 发表于 2010-2-5 13:21

上边的方法如果固定的单元格为空，不管该表有无数据都会把该表删除，所以需要改一下：

Sub rename()   '根据某个单元格的内容对所有的工作表重新命名
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim i%
For i = Sheets.Count To 1 Step -1
Sheets(i).Select
If [a1] <> "" Then   '确定表名称的来源
Sheets(i).Name = [a1]   '根据每个表的A1单元格内容重命名
Else
'Sheets(i).Delete   '此句前边加'号屏蔽掉，防止表被删除
End If
Next i
Application.ScreenUpdating = False
Application.DisplayAlerts = True
End Sub

yuzhu · 发表于 2010-3-2 18:55

谢谢您的帮助，非常感谢。

excel03 · 发表于 2010-3-2 22:48

看看

yuzhu · 发表于 2010-4-23 17:19

假设工作表名称A1

如果将此工作簿中工作表A1 的（a1:a10)中的内容分别给sheet1 到 sheet10 一一对应命名，且不删除其他表怎么办？

赋予的名称位置不再固定位置，在另一表内，有序的。

谢谢

shuailuntan0558 · 发表于 2013-9-23 12:14

下载看看有同样的需要谢谢

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

[已解决][求助]如何用工作表中固定位置的单元格命名所在工作表？

有个问题,请教。