在上一篇文章中,实现了使用VBA对Excel进行自动分组的功能。但在运行时发现部分字分组无法进行独立的操作。
通过调整展开号的位置,可以解决该问题。实现代码如下:
Collapse Detail is Located Below the Total Row (Summary Row Above)
Sub CollapseRowsAbove()
ActiveSheet.Outline.SummaryRow = xlAbove
End Sub
在上一篇文章中,实现了使用VBA对Excel进行自动分组的功能。但在运行时发现部分字分组无法进行独立的操作。
通过调整展开号的位置,可以解决该问题。实现代码如下:
Sub CollapseRowsAbove()
ActiveSheet.Outline.SummaryRow = xlAbove
End Sub