如何用vba对行列单元格区域进行组合和取消组合？

在excel中可以对行或者列区域进行组合和取消组合。在【数据】选项卡下的【分级显示】中的【组合】中可以手动操作。

在vba中，可以使用range对象的group方法或者ungroup方法实现组合和取消组合，其中Range对象一定要是单元格

其中ungroup方法的range要和group方法的range要一致才能生效。

如果想要一次性取消所有的组合，可以使用Range对象的ClearOutline方法。

这里要注意的是，要组合的单元格range对象至少要包含2个单元格。

如下代码所示：

Sub QQ1722187970()
Dim oRng As Range
Dim oWK As Worksheet
Set oWK = Sheet2
Set oRng = oWK.Range(“b1:b5”)
oRng.Group
oRng.ClearOutline
End Sub