Question

vba 如何判断单元格是否属于某合并单元格的首行

我目前判断方法是 Cells(i,j).MergeCells=True And Cells(i,j).Value<>""

这样判断是因为，合并单元格的值只存在左上角单元格
但是有个问题，如果有合并单元格的值本身就为空，那么我这个判断条件就不对了。

哪位大神有更好的判断方法？？求教！
找到方法了！ 原来 cells(i,j).MergeArea.Row 可以获取合并单元格行号！

Sub testMergeHeadRow() '判断是否为某合并单元格首行
For Each cc In Selection
If Cells(cc.Row, 2).MergeCells = True And cc.Row = Cells(cc.Row, 2).MergeArea.Row Then
Cells(cc.Row, 4).Value = "首行"
End If
Next
End Sub

Answer 1

代码应该可以简单一点

Sub testMergeHeadRow()
For Each cc In Selection
If cc.MergeCells = True And cc.Row = cc.MergeArea.Row Then
Cells(cc.Row, 4).Value = "首行"
End If
Next
End Sub