请帮忙改下代码，汇总表生成明细表+生成目录链接，不删除其他想保留的表

ping200030

借用其他版主工作簿，增加一个功能
本工作簿有两个代码，一个是由总表数据生成明细表，另一个是自动生成目录+链接
现在的情况总说下标越界，删除生成目录的代码，只剩下生成明细表就没问题，但是想增加目录生成功能
1、总表生成明细表，会冲掉自制的“目录”工作表，如何修改下，不删除想保留的的工作表“目录”，
2、且生成的明细表名称按照拼音顺序排序

1. Private Sub CommandButton1_Click()
   
2.     tms = Timer
   
3.     Application.ScreenUpdating = False
   
4.     Application.DisplayAlerts = False
   
5.     For Each sht In Sheets
   
6.        If sht.Name <> ActiveSheet.Name Then sht.Delete
   
7.     Next
   
8.     Application.DisplayAlerts = True
   
9.     Set d = CreateObject("scripting.dictionary")
   
10.     arr = Range("a1").CurrentRegion
    
11.     For i = 1 To UBound(arr)
    
12.         If Not d.exists(arr(i, 27)) Then
    
13.             Set d(arr(i, 27)) = Range("a" & i).Resize(1, 66)
    
14.         Else
    
15.             Set d(arr(i, 27)) = Union(d(arr(i, 27)), Range("a" & i).Resize(1, 66))
    
16.         End If
    
17.     Next
    
18.     x = d.keys
    
19.     For k = 1 To UBound(x)
    
20.         Set Sh = ActiveWorkbook.Sheets.Add(, after:=ActiveSheet)
    
21.         Sh.Name = x(k)
    
22.         d.items()(k).Copy Sh.Range("a" & 2)
    
23.         Rows("1:1").Copy Sh.Range("a1")
    
24.     Next
    
25.     Application.ScreenUpdating = True
    
26.     MsgBox Format(Timer - tms, "拆分完成，共耗时：0.00秒"), 64, "时间统计"
    
27. End Sub

复制代码

1. Private Sub Workbook_Open()
   
2. 
   
3. End Sub
   
4. 
   
5. Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
   
6. If Sheets.Count < Sheets("目录").[a1].End(xlDown).Rows Then
   
7.    Call test
   
8. End If
   
9. End Sub
   
10. 
    

复制代码

1. Sub test()
   
2.     Sheets("目录").UsedRange.Offset(1, 0).ClearContents
   
3.     For i = 1 To ThisWorkbook.Worksheets.Count
   
4.         Sheets("目录").Cells(i + 1, 1) = i
   
5.         ActiveSheet.Hyperlinks.Add Anchor:=Sheets("目录").Cells(i + 1, 2), Address:="", SubAddress:=Sheets(i).Name & "!A1", TextToDisplay:=Sheets(i).Name
   
6.     Next
   
7. End Sub
   
8. 
   

复制代码

582766

没有附件，没法判断

zxsea_7426

就是没有附件，就看这代码，分解出来的分表也不全啊

zpy2

https://club.excelhome.net/forum.php?mod=viewthread&tid=1631947&page=1&mobile&_dsign=98f3a121

ykcbf1100

其实问题很简单，就是总表汇总时删除了目录表引起的。

解决的方法也简单，就是在汇总时，不删除目录表就行了。

ping200030

ykcbf1100 发表于 2022-12-1 09:34
其实问题很简单，就是总表汇总时删除了目录表引起的。

解决的方法也简单，就是在汇总时，不删除目录表就 ...

谢谢，那个生成明细的表能按照拼音顺序排吗？，现在是按照总表出现顺序排的

zpy2

ping200030 发表于 2022-12-1 09:44
谢谢，那个生成明细的表能按照拼音顺序排吗？，现在是按照总表出现顺序排的

select * from 总表拆分分表目录按拼音排序 limit 3;

select split_tbl('select * from 总表拆分分表目录按拼音排序 where 地市 like ?',地市) 地市名称  from 总表拆分分表目录按拼音排序 group by 地市 order  by 地市 COLLATE PY_CMP;

zpy2

zpy2 发表于 2022-12-1 14:02
select * from 总表拆分分表目录按拼音排序 limit 3;

select split_tbl('select * from 总表拆分分表 ...

测试网址

ping200030

zpy2 发表于 2022-12-1 14:02
select * from 总表拆分分表目录按拼音排序 limit 3;

select split_tbl('select * from 总表拆分分表 ...

小白不明白

zpy2

ping200030 发表于 2022-12-1 15:32
小白不明白

我发了个链接还在审核