vba脚本excel动态创建索引目录表

最新推荐文章于 2024-07-17 15:53:22 发布

tihi2

最新推荐文章于 2024-07-17 15:53:22 发布

阅读量3.2k

点赞数 1

分类专栏：脚本语言文章标签： vba创建索引 vba创建用例模板 vba

本文链接：https://blog.csdn.net/duantihi/article/details/50496680

版权

本文介绍如何通过VBA脚本在Excel中实现动态创建索引目录表。当Excel文件打开时，VBA代码会自动更新目录。详细代码和相关资源已上传至CSDN。

摘要由CSDN通过智能技术生成

上代码：

'''动态创建目录表：其他表内容的索引，从其他表的每行中拷贝指定的列，拷贝后第一个单元格超链接到所拷贝的行
Function makeContent()
   
   contentSheetName = "content"
   '清空content表内容
   Sheets(contentSheetName).Select
   Sheets(contentSheetName).Rows("2:65535").Delete   '一张表最多只能有65535行
   
   '需要从其他表中拷贝的列，如果用例表不同，则修改这个数组
   copyCol = Array(1, 2, 4, 8, 10)
   
   '循环遍历除"content"之外的其他表
    For Each sh In Worksheets
    If sh.Name <> contentSheetName Then
        '从第二行开始拷贝，因为第一行是表头
        For r = 2 To usedRowCnt(sh)
            If sh.Cells(r, 1).Value <> "" Then
                '计算“content”表中当前已使用的行数
                curTotalRows = usedRowCnt(Sheets(contentSheetName))
            
                '循环拷贝每一列的数据
                i = 0
                 For Each col In copyCol
                    i = i + 1
                    Shee