excel - 在 VBA 中循环合并单元格

Question

是否可以循环遍历 vba 中的合并单元格.

• 我在 B4:B40 范围内有 6 个合并单元格
• 我只需要这 6 个单元格中的值 6 次迭代。

Answer 1

上面的答案看起来已经让你排序了。

如果您不知道合并的单元格在哪里，那么您可以使用以下例程来快速检测它们。

当我构建Mappit!时我意识到，当我开发合并单元格报告时，合并单元格是 xlBlanks

的一部分

因此，您可以使用代码立即检测合并单元格，而不是循环遍历每个单元格测试 MergedCells 属性是否为 true。

Sub DetectMerged()
Dim rng1 As Range
Dim rng2 As Range
On Error Resume Next
Set rng1 = Intersect(Cells.SpecialCells(xlFormulas), Cells.SpecialCells(xlBlanks))
Set rng2 = Intersect(Cells.SpecialCells(xlConstants), Cells.SpecialCells(xlBlanks))
On Error GoTo 0
If Not rng1 Is Nothing Then MsgBox "Merged formulae cells in " & rng1.Address(0, 0)
If Not rng2 Is Nothing Then MsgBox "Merged constant cells in " & rng2.Address(0, 0)
End Sub