VBA中怎么对单元格的数据进行组合和取消组合,求代码

VBA中如何对单元格的数据进行组合和取消组合,求代码
在VBA中我们通过调数据库得到数据放在EXCEL中,应该如何通过代码对这些数据进行组合和取消组合..
求代码,坐等高手...

[解决办法]
Sheet1.Range("A1:F5").Group
这个是行组合还是列组合呢？

组合分行列的，下面给一个连续行的任意分组层次的功能，供参考。

VB code

Public Sub GenerateOutline()    Dim objRow As Range       For Each objRow In Application.ActiveSheet.UsedRange.Rows        objRow.OutlineLevel = 组合层数 + 1    NextEnd SubPublic Sub ResetOutlines()    Application.ActiveSheet.UsedRange.Rows.OutlineLevel = 1End Sub
[解决办法]
range("a1:f" & i)

sheet1.usedrange.select


[解决办法]
sheet的usedrange属性，是选择所有使用过的单元格的最大矩形区域，即使只是设置了格式，也算使用过。