- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 生成的EXCEL报表的相同单元的自动合并问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=57581)
-- 发布时间：2014/9/26 21:51:00
-- 生成的EXCEL报表的相同单元的自动合并问题
希望得到高手指点，在生成EXCEL 报表时，自动合并相同的单元格（也就是我上传周报中的红字部分），做的模板我也传上来了。谢谢
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:周报.rar |
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:周报模板.rar |
-- 发布时间：2014/9/27 8:45:00
--
http://www.foxtable.com/help/topics/1530.htm
-- 发布时间：2014/9/27 14:21:00
--
谢谢BIN 的回复，但是，例子说明的都是取数列的合并，我需要合并的是非取数列的合并，不知是否可以自动合并？
-- 发布时间：2014/9/27 20:16:00
--
是无法解决吗？
-- 发布时间：2014/9/28 9:50:00
--
可以做，但需要生成报表以后，用vba打开，然后合并
http://www.foxtable.com/help/topics/2121.htm
-- 发布时间：2014/9/28 10:59:00
--
谢谢甜版，我认真看了你推荐的VBA例子，可是例子中说明的是强制把某些单元格进行合并，可我的问题是，需要合并的单元格数量（即行数是不确定的），这样就无法设定Dim Rg As MSExcel.Range = Ws.Range("A1:D10")中的范围了，不知该怎么办？
-- 发布时间：2014/9/28 11:08:00
--
回复6楼，你循环每一个单元格，然后，判断是值是否一样，如果一样的话，你就合并即可。
-- 发布时间：2014/9/28 11:10:00
--
水平没有这么高，能给个循环判断的例子吗？
-- 发布时间：2014/9/28 11:13:00
--
甜版，能直接给我改一下这段代码吗？
Dim Book As New XLS.Book(ProjectPath & "Attachments\\监造周报.xls")
Dim fl As String = ProjectPath & "Reports\\监造周报.xls"
Dim Sheet As XLS.Sheet = Book.Sheets(0) \'引用工作簿的第一个工作表
\'Sheet.Locked = True \'禁止编辑
With Sheet.PrintSetting
\'页眉左边为日期,中间为时间,右边为表名
.Header = "&L&D &C&T &R&F"
\'在页脚右边打印页号和总页数
.Footer = "&R第&P页,总&N页"
End With
Book.Build() \'生成细节区
Book.Save(fl) \'保存工作簿
Dim Proc As New Process \'打开工作簿
Proc.File = fl
Proc.Start()
-- 发布时间：2014/9/28 11:18:00
--
请上传具体例子。
[此贴子已经被作者于2014-9-28 11:18:30编辑过]