选中一个工作表，及时将第一页的组界别调整到这个工作表某一个格子的值（级数）
Sub Macro9()'
' Macro9 Macro
' 宏由 王雷 录制，时间: 2013-12-30
'
'
Sheets("图-总建设投资对比").Select //注释：选中的一个表
Range("C48").Select //注释：选中工作簿第一个表，这个表是基础表，带组级的
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
ActiveSheet.Outline.ShowLevels RowLevels:=5 //注释：将这个组级数调整为5,5最好放到图1的c23格
Sheets("图-总建设投资对比").Select //注释：选中的一个表
End Sub
这是大体过程，但是不熟悉语法，请高手给予调试
页:
[1]