主题：[求助]关于excel报表的合并！！

横向的不能合并，不过你可以用vba处理，参考

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:D10")
App.DisplayAlerts = False '加上此行可禁止弹出合并前的提示
Rg.Merge  '合并指定区域的单元格
'Rg.MergeCells = True '用这种方式也可以合并
App.Visible = True