以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  判断Excel表的合并单元格  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=165333)

--  作者：tld --  发布时间：2021/5/14 8:41:00 --  判断Excel表的合并单元格 老师好。调用Excel表时，需要判断是否合并单元格，如果是，单元格的合并区域是什么。如何操作呢？谢谢！

--  作者：YDS --  发布时间：2021/5/14 8:52:00 --   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