Excel中取得合并单元格相关信息

　　示例代码：Dim R As Range For Each R In Selection Debug.Print "当前位置(" & R.Row & "," & R.Column & ")", R.MergeCells, Debug.Print "合并行*列(" & R.MergeArea.Rows.Count & "," & R.MergeArea.Columns.Count & ")", Debug.Print "左上角(" & R.MergeArea.Row & "," & R.MergeArea.Column & ")" Next R
　　以上针对R的五个操作，可在被合并的单元格中的任何一格中进行。合并单元格的内容等，只存放在其最左上角的单元格中，其余单元格为空。这也是为什么当多格有数据，进行合并时，会提示“选定区域包含多重数值。合并到一个单元格后只能保留最左上角的数据”的原因。Excel内部有可能利用这些空白，方便地进行一些必要的优化和有效性校验。
　　.MergeCells可以用来判断某格是否处在一个合并单元格区域内。
　　.MergeArea.Rows.Count和.MergeArea.Columns.Count分别返回合并单元格的行数与列数，如果它本身就不在一个合并单元格区域内，那么返回都为1。
　　.MergeArea.Row和.MergeArea.Column分别返回合并单元格左上角的行与列的坐标。如果某格的这两个坐标不完全等于该格的坐标，说明该格是一个合并单元格区域内非左上角的格。