应用程序定义或对象定义的错误合并单元格

我有下面的代码或者采取一个ActiveCell和MsgBox其MergeArea边界（工作正常），或采取预定的范围，并做同样的（失败）。 当我尝试后者时，我得到application defined or object-defined错误。

 Sub test2() Dim Titles As Range Set Titles = Range("E13:H13") Dim titlesMerge As Range ' Set titlesMerge = ActiveCell.MergeArea 'this works fine Set titlesMerge = Titles.MergeArea 'when use Range("E13:H13") it 'fails MsgBox (titlesMerge.Row & " and " & titlesMerge.Rows.Count) End Sub 

单元格"E13:H13"被合并。

这里有什么问题？

Answer 1

为了我对Siddharth Rout爵士的评论的好奇心，我尝试了这个代码。

 Sub caller() Dim rMergedCell As Range ' Let B3:C4 a merged cell Set rMergedCell = Range("B3:C4") Dim rTitlesCell As Range Set rTitlesCell = rMergedCell.Cells(1, 1).MergeArea MsgBox rTitlesCell.Row & " and " & rTitlesCell.Rows.Count ' Returns 3 and 2 End Sub 

他指出， MergeArea属性仅适用于单元引用。 那么为什么不能得到合并单元格的最左上angular的单元格呢？ 希望这有助于OP。