无法使用 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