无法使用Excel VBA取消合并单元格

Question

我在Excel工作表中有数据。其中四列具有合并的单元格。我必须解开两列("A“和"D")，并根据特定条件将数据放入未合并的单元格中。我尝试使用以下代码取消合并特定列，但没有取消合并单元格或返回任何错误消息

If sheet5.Range("A1", "A2783").MergeCells Then 
sheet5.Range("A1", "A2783").MergeCells.UnMerge

然后我试了一下

If ActiveSheet.Cells.MergeCells Then 
sht.Cells.UnMerge

但这也没有取消合并单元格或返回任何错误消息。

有什么建议吗？

Answer 1

您希望将MergeCells属性设置为False

sheet5.Range("A1", "A2783").MergeCells = False

Answer 2

应对由Range对象的MergeArea属性返回的Range对象调用UnMerge方法。

另外，

MergeArea属性仅适用于单个单元格区域。所以写下：

If sheet5.Range("A1").MergeCells Then 
sheet5.Range("A1").MergeArea.UnMerge

而不是。

参考：

• https://docs.microsoft.com/en-us/office/vba/api/excel.range.mergearea
• https://docs.microsoft.com/en-us/office/vba/api/excel.range.unmerge