主题：判断Excel表的合并单元格

老师好。调用Excel表时，需要判断是否合并单元格，如果是，单元格的合并区域是什么。如何操作呢？谢谢！

• Dim App As New MSExcel.Application
  Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\Report.xls")
  Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
  Dim Rg As MSExcel.Range = Ws.Range("A1")
  If Rg.MergeArea.Address = Rg.Address Then
      MessageBox.Show("该单元格区域并不是合并后的单元格! ")
  Else
      App.DisplayAlerts = False   '加上此行可禁止弹出合并前的提示
      Rg.UnMerge  '取消合并
      'Rg.MergeCells = False  '用这种方式也可以取消
  End If
  App.Visible = True