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

Question

我遇到了这个问题 - 我必须从excel表中检测水平和垂直合并的单元格。我必须存储第一个细胞系，以及合并区域的长度。我逐行遍历表格，一行一行。

如何使用MergeArea属性检测合并和非合并区域？ 如果单元格未合并，则应该返回空范围，但是，这样：

“如果currentRange没什么，那么”

根本不起作用。有任何想法吗？ 非常感谢。

Answer 1

为此提供了一些有用的代码。

将光标放在合并的单元格中，并在Immidiate Window中询问这些问题：

activecell是合并的单元吗？

? 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