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

Posted 2023-02-23

【中文标题】使用 MergeArea 检测 VBA Excel 中的合并单元格

【英文标题】：Detect merged cells in VBA Excel with MergeArea

【发布时间】：2014-03-31 07:45:47

【问题描述】：

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

如何使用 MergeArea 属性来检测合并和非合并区域？ 如果单元格没有合并，它可能应该返回空范围，但是，这个：

"如果 currentRange 什么都没有，那么"

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

【问题讨论】：

首先，为什么不用您有疑问的实际代码更新您的问题呢？如果一个单元格未合并，则 mergearea 仍会返回单个单元格范围，因此您不能只检查If Not c.MergeArea Is Nothing。您需要检查行数/列数，您可以使用c.MergeArea.Cells(1)

找到左上角的单元格

【参考方案1】：

有几个有用的代码。

将光标置于合并单元格中，并在即时窗口中提出以下问题：

活动单元格是合并单元格吗？

? 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

【讨论】：

根据msdn，如果合并区域中不，则MergeArea 属性返回范围对象本身。因此，您应该能够使用 MergeArea 而无需先检查 MergeCells。在我的代码中工作。

【参考方案2】：

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

您可以像这样使用 Range()：

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