- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- ClearMergedCells取消合并单元格之后，有没有办法对取消合并的单元格都赋值相同的内容呢？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=180021)
-- 发布时间：2022/9/23 16:44:00
-- ClearMergedCells取消合并单元格之后，有没有办法对取消合并的单元格都赋值相同的内容呢？
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.BookDim 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
用于取消所有合并单元格，无参数。
-- 发布时间：2022/9/23 16:51:00
--
取消合并后，遍历这个列的行，判断如果这一行没有值的，就取上一行的值填充
-- 发布时间：2022/9/23 16:59:00
-- 回复：（有点蓝）取消合并后，遍历这个列的行，判断如...
有点懵 老师可否给个例子学习一下呢！谢谢！
-- 发布时间：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
Next