- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 自动行高加自由合并 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=172692)
-- 发布时间：2021/10/26 14:27:00
-- 自动行高加自由合并
如实例，选择单行的时候是可以自动行高的，但是多行就不行。现在希望能够选多行的时候可以自由行高并且自由合并，应如何改进？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:自动行高加自由合并.rar |
-- 发布时间：2021/10/26 14:46:00
--
自动行高不支持合并单元格，有点麻烦，参考：http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=70571
-- 发布时间：2021/10/26 16:50:00
--
我试了下，有两个问题：第四列没实现合并，另外就是单选一行的候没有自动行高，这个两个问题可否解决下？
-- 发布时间：2021/10/26 17:18:00
--
只有一行，不存在合并单元格，代码是偶读了是否合并的。
可以先调用1楼原来的方式处理一下，然后再使用3楼的方法，2合一
try
Dim Wb As MSExcel.WorkBook = app.WorkBooks.open(fl)
Dim rg As MSExcel.Range
Dim Ws = wb.WorkSheets(1)
rg = Ws.Cells
Rg.WrapText = True
Rg.EntireRow.AutoFit \'自动调整行高
Dim tempWs = wb.WorkSheets.Add
For Each rg In ws.UsedRange
If rg.MergeCells Then
……
至于合并是模板格式不对，缺少end标记
此主题相关图片如下：1.png
-- 发布时间：2021/10/26 21:43:00
--
多谢，解决了我一个很大的问题。报表还有一个比较重要的问题，就是重复标题行，如果用headrow则必须定义每页多少行，这样很不灵活，毕竟每行的内容会不一样，最好可以换页的时候就自动重复标题？这块是否可以改进下。
-- 发布时间：2021/10/26 22:01:00
--
execl模板以后会有改进
-- 发布时间：2021/11/16 13:30:00
--
最近我看版本一直在升级，我提到的重复标题行的功能是否有在这次升级中改进，每次升级的内容可否有提示下。
-- 发布时间：2021/11/16 13:42:00
--
论坛都是置顶说明的，您没看而已：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=171144