主题：[求助]合并单元格后再取消

写代码取消合并，参考

Dim t As Table = Tables("表a")

'取消合并
Dim ls As new List(of object)
For Each r As object In t.Grid.MergedRanges
        ls.add(r)
Next
For Each r As object In ls
    t.Grid.MergedRanges.Remove(r)
Next