作者：绿色风
分类：
时间：2022-08-18
浏览：137
楼主
lrlxxqxa |
Q：如何批量新建工作表并建立5行10列的超链接目录？
问题描述：我现在要新建50个工作表，在一页要有这50个工作表的目录。我通过调整字体大写觉得一排10个分5排；
在这种情况下由于表太多一张张新建再链接太麻烦，所以想批量实现，希望坛子里的各位大哥大姐解惑，最好能简单写下必要的步骤，以便我和后来的新人学习！
 ；
A：
第一步：实现批量新建和删除工作表；- Sub add()
- Dim i As Integer, count As Integer
- Application.ScreenUpdating = False
- count = Range("b1").Value
- For i = 1 To count
- Sheets.add.Name = "第" & (count - i + 1) & "张表"
- Next
- Application.ScreenUpdating = True
- End Sub
- Sub del()
- Dim s As Worksheet
- Application.DisplayAlerts = False
- For Each s In Sheets
- If s.Name <> "目录" Then
- s.Delete
- End If
- Next
- Application.DisplayAlerts = True
- End Sub
第二步：定义名称sht- =REPLACE(GET.WORKBOOK(1),1,FIND("]",GET.WORKBOOK(1)),)
第三步：利用Lookup构建5行10列的矩阵
数组- =LOOKUP((ROW(1:5)-1)*10+TRANSPOSE(ROW(1:10)),ROW(A1:A50),sht)
第四步：利用Hyperlink函数进行超链接- =HYPERLINK("#"&C6&"!a1",C6)
右拖下拉
操作过程如下动画所示：
 批量新建并矩阵目录.rar
|
2楼
lrlxxqxa |
补充一下：其中第三步中的矩阵可以根据需求灵活变动，比如要3行4列的话就改成下面这个
- =LOOKUP((ROW(1:3)-1)*10+TRANSPOSE(ROW(1:4)),ROW(A1:A12),sht)
只要相应修改其中的参数就可以了。 |
3楼
liuguansky |
直接VBA全程生成应该比用VBA+函表+LOOKUP要来的容易吧。
 |
4楼
王炎焱 |
如果要得到自定义的工作表名称，而不是统一的“第几张表”样式，该如何修改呢，请老鹰不吝赐教。谢谢
 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一