[已解决]如何实现单击创建按钮，自动创建与模板格式一致的表格

hwc2ycy

在第一张工作表内生成目录，从A1单元格开始

1. Sub 生成目录()
   
2.     Dim i%, shtname$
   
3.     Dim rg As Range
   
4.     Set rg = Range("a1")
   
5.     rg = "目录"
   
6.     For i = 2 To Worksheets.Count
   
7.         Set rg = rg.Offset(1)
   
8.         shtname = Worksheets(i).Name
   
9.         rg.Hyperlinks.Add rg, "#" & Worksheets(i).Name & "!A1", , shtname, shtname
   
10.     Next
    
11. End Sub

复制代码

waternew

hwc2ycy 发表于 2013-1-24 12:57
在第一张工作表内生成目录，从A1单元格开始

佩服！学习，用功学习。

还有个问题请教。汇总不同表格的有数据的最后一行的数据。

wydqs6803

太强大了。学习。

arabiannights

我也要学习