工作簿的标签名怎样才能一下子导入到本工作簿指定工作表的的一串单元格里

yangrongguan · 发表于 2009-4-11 18:07

我有一工 EXCEL 工作簿，我想把这个工作簿中的各个工作表的名称一下填充到工作表名为“目录”的C1：C16单元格里，该怎么操作，请老师们指教？

wshcw · 发表于 2009-4-11 18:22

定义"工作表"
工作表=MID(GET.WORKBOOK(1),FIND("]",GET.WORKBOOK(1))+1,LEN(GET.WORKBOOK(1)))
或者:
工作表=RIGHT(GET.WORKBOOK(1),LEN(GET.WORKBOOK(1))-FIND("]",GET.WORKBOOK(1)))
输出全部工作表,公式为:
=INDEX(工作表,ROW(1:1))
输出全部工作表并建立链接,公式为:
=HYPERLINK("#"&INDEX(工作表,ROW(1:1))&"!a1",INDEX(工作表,ROW(1:1)))

wshcw · 发表于 2009-4-11 18:24

另参考:

excel各页名

yangrongguan · 发表于 2009-4-11 18:30

确实有用，成功了，谢谢！

jackiepilot · 发表于 2009-4-19 22:20

Sub 引用工作表命名()
For i = 1 To Sheets.Count
Cells(i, 1) = Sheets(i).Name
Next
End Sub
其中，更改代码“For i = 1 To Sheets.Count”中的i值为2，可从第二个工作表开始引用工作表命名，如同时将代码“Cells(i, 1) = Sheets(i).Name”更改为“Cells(i－1, 1) = Sheets(i).Name”，则从A1开始引用工作表命名。

jackiepilot · 发表于 2009-4-19 22:21

Sub 引用单元格数据命名工作表()
On Error Resume Next    'ignore
Application.Calculation = xlCalculationManual    'Manual
Dim i%
For i = 1 To Sheets.Count
Sheets(i).Name = Cells(i, 1).Text
Next
Application.Calculation = xlCalculationAutomatic  'Auto
End Sub

其中，更改代码“For i = 1 To Sheets.Count”中的1的值为2，可从第二个工作表开始重命名；更改代码“Sheets(i).Name = Cells(i, 1).Text”中1的值为2，可从B列中提取单元格数值。

yangrongguan · 发表于 2009-4-20 07:42

原来学问大着呢............

dengjq2000 · 发表于 2009-4-21 13:01

不错的东东！很实用，谢！我也学会了

yangrongguan · 发表于 2009-4-21 13:05

学了这些东西,可以触类旁通,解决不少大问题呢.比如,多表汇总问题,如果删除或插入工作表,有了这些功能就好解决啦.

ZDYCTD · 发表于 2009-5-22 21:57

好东东，终于给我找出来了

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

[求助] 工作簿的标签名怎样才能一下子导入到本工作簿指定工作表的的一串单元格里

用代码

用工作表中的值命名工作表

不错的东东！