使用MergeArea检测VBA Excel中的合并单元格

我对此有很大的问题-我必须从excel表格中检测水平和垂直合并的单元格。我必须存储第一个单元格坐标和合并区域的长度。我用两个for循环逐行遍历表

如何使用MergeArea属性检测合并区域和未合并区域？ 如果单元格未合并，它可能会返回空范围，但是：

“如果currentRange为Nothing，则”

这根本不起作用。有什么想法吗？

---

非常感谢。

这里有一些有用的代码

将光标放在合并单元格中，并在immidate窗口中询问以下问题：

activecell是合并的单元格吗

? Activecell.Mergecells
 True

合并了多少个单元格

? Activecell.MergeArea.Cells.Count
 2

? Activecell.MergeArea.Columns.Count
 2

? Activecell.MergeArea.Rows.Count
  1

合并了多少列

? Activecell.MergeArea.Cells.Count
 2

? Activecell.MergeArea.Columns.Count
 2

? Activecell.MergeArea.Rows.Count
  1

合并了多少行

? Activecell.MergeArea.Cells.Count
 2

? Activecell.MergeArea.Columns.Count
 2

? Activecell.MergeArea.Rows.Count
  1

合并的范围地址是什么

? activecell.MergeArea.Address
  $F$2:$F$3

---

虽然使用@tbur所示的选定单元格可能很有用，但它也不是唯一可用的选项

您可以像这样使用范围（）

If Worksheets("Sheet1").Range("A1").MergeCells Then
  Do something
Else
  Do something else
End If

或：

或者，您可以使用单元格（）：

If Worksheets("Sheet1").Cells(1, 1).MergeCells Then
  Do something
Else
  Do something else
End If

---

首先，为什么不用您有疑问的实际代码更新您的问题？如果单元格未合并，则mergearea仍返回单个单元格范围，因此如果不是c，则不能仅检查

。mergearea为Nothing

。您需要检查行/列的数量，并且可以使用

c.MergeArea.Cells（1）

找到左上角的单元格。根据MergeArea属性，如果范围对象不在合并区域中，则返回范围对象本身。因此，您应该能够使用MergeArea，而不必首先检查MergeCells。在我的代码中工作。