Foxtable(狐表)用户栏目专家坐堂 → ClearMergedCells取消合并单元格之后,有没有办法对取消合并的单元格都赋值相同的内容呢?


  共有5491人关注过本帖树形打印复制链接

主题:ClearMergedCells取消合并单元格之后,有没有办法对取消合并的单元格都赋值相同的内容呢?

帅哥哟,离线,有人找我吗?
cnsjroom
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1571 积分:11238 威望:0 精华:0 注册:2021/1/17 17:06:00
ClearMergedCells取消合并单元格之后,有没有办法对取消合并的单元格都赋值相同的内容呢?  发帖心情 Post By:2022/9/23 16:44:00 [只看该作者]

ClearMergedCells取消合并单元格之后,有没有办法对取消合并的单元格都赋值相同的内容呢?

Dim Book As New XLS.Book("c:\test.xls")
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Sheet.ClearMergedCells
Book.Save("c:\test.xls")
Dim Proc As New Process
Proc.File = "c:\test.xls"
Proc.Start()


此主题相关图片如下:12.png
按此在新窗口浏览图片

 

 

方法

Sheet有两个方法:

MergeCell

用于合并单元格

语法:

MergeCell(RowFrom, ColFrom, RowCount, ColCount)

RowFrom: 合并起始行
ColFrom:  合并起始列
RowCount:合并行数
ColCount: 合并列数

示例:

Dim Book As New XLS.Book
Dim
Sheet As XLS.Sheet = Book.Sheets(0)
Sheet
.MergeCell(2,2,10,10)
Book.Save(
"c:\reports\test.xls")
Dim
Proc As New Process
Proc.File =
"c:\reports\test.xls"
Proc.Start()

ClearMergedCells

 

用于取消所有合并单元格,无参数。


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111427 积分:567211 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/9/23 16:51:00 [只看该作者]

取消合并后,遍历这个列的行,判断如果这一行没有值的,就取上一行的值填充

 回到顶部
帅哥哟,离线,有人找我吗?
cnsjroom
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1571 积分:11238 威望:0 精华:0 注册:2021/1/17 17:06:00
回复:(有点蓝)取消合并后,遍历这个列的行,判断如...  发帖心情 Post By:2022/9/23 16:59:00 [只看该作者]

有点懵  老师可否给个例子学习一下呢!谢谢!

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111427 积分:567211 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/9/24 9:05:00 [只看该作者]

Dim Book As New XLS.Book("c:\test\订单.xls")
Dim 
Sheet As XLS.Sheet = Book.Sheets(0)
For n As Integer = 1 To Sheet.Rows.Count -1
  if 
Sheet(n,0).text = "" then
Sheet(n,0).Value = Sheet(n-1,0).text
end if
Next

 回到顶部