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这两个用法吧，
祝你成功！
具体需要看你的文件以及需求
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024