VBA 判断Excel 是否已经设定组合，并取消多重组合

Sub test() ‘以下是以Sheet3.Rows("1:10")为例来做的 If Sheet3.Rows("1:10").OutlineLevel 2 Then ’判断是不是多重组合,1为无组合，

Sheet3.Rows("1:10").ClearOutline ‘一次清除所有组合

End If

End Sub

通过验证了，可以实现

估计你是不清楚OutlineLevel和ClearOutline这两个用法吧，

祝你成功！