用mergearea检测VBA Excel中的合并细胞

Question

我有一个很多问题 - 我必须从Excel表中检测水平和垂直合并的单元格。我必须存放第一个细胞系，以及合并区域的长度。我通过两个循环迭代桌子，按线路。

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

“如果currentRange没有什么，那么”

根本没有工作。有任何想法吗？ 非常感谢。

Answer 1

有几个代码的代码。

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

是ActiveCell A合并的单元格？

? Activecell.Mergecells
 True

.

合并有多少个单元格？

? Activecell.MergeArea.Cells.Count
 2

.

合并有多少列？

? Activecell.MergeArea.Columns.Count
 2

.

合并有多少行？

? Activecell.MergeArea.Rows.Count
  1

.

合并范围地址是什么？

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

.

Answer 2

在使用所选单元格时，如@TBUR所示，它也是有用的，它也不是唯一可用的选项。

您可以使用范围（）如此：

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

.

或：

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

.

交替，您可以使用 cells（）：

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

.