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

Question

我在Excel工作表中有数据。其中四列已合并单元格。我必须合并两列（“ A”和“ D”），然后根据某些条件将数据放入未合并的单元格中。我尝试使用以下代码取消合并特定列的操作未取消合并单元格或返回任何错误消息

fvec

然后我尝试了

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

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

请问有指针吗？

Answer 1

您要将MergeCells属性设置为False：

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

Answer 2

以上两个建议均有效。但是我不得不将数据复制到新的工作簿中并运行代码。显然，原始工作簿上有一些限制

Answer 3

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

还

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