DeepSeek办公自动化：一秒生成工作表目录

文章预览

内事不决问百度，外事不决问谷歌，工作难题就问DeepSeek。 如下图，当前文档中有多个工作表，今天咱们就让DeepSeek来创建带链接的工作表目录。 打开deepseek官网，输入咱们的要求： Excel文档中有多个工作表，希望生成带超链接的目录，请提供一段VBA代码，并对代码进行注释，同时说明代码的使用方法。 思索片刻， deepseek就给出了解决方法： Sub CreateTableOfContents() ' 定义变量 Dim ws As Worksheet ' 用于循环遍历工作簿中的每个工作表 Dim tocSheet As Worksheet ' 用于引用目录工作表 Dim rowIndex As Integer ' 用于跟踪目录中的行号 ' 设置目录工作表和初始行号 Set tocSheet = ThisWorkbook.Sheets(1) ' 假设目录放在第一个工作表 rowIndex = 1 ' 从第一行开始 ' 清除目录工作表中的所有内容 tocSheet.Cells.Clear ' 添加目录标题 ………………………………