以文本方式查看主题

-  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=73527)
--  作者：winwtj
--  发布时间：2015/8/20 17:22:00
--  [求助]关于excel报表的合并！！
excel可以通过模板中<m>来纵向合并相同内容的行，那么可不可以横向合并相同内容的列呢？
求教？？？
--  作者：大红袍
--  发布时间：2015/8/20 17:25:00
--  

横向的不能合并，不过你可以用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