'引用方式:Functions.Execute("表格行合并",sheet1,1)
'第一个sheet1代表工作表.
'第二个1代表要合并那一列.
'默认从第一行开始合并.
Dim sheet1 As object = args(0) '这里开始加载数据.
Dim l As Integer = args(1) '要合并的列的位置.
Dim v As Integer = 1 '计数器
Dim h As Integer = 1 '合并起始行
Dim vl As String
vl = sheet1(0,l).value '定位第一个值
For i As Integer = 1 To sheet1.Rows.Count -1
If sheet1(i,l).value = vl Then '如果第一个值和下个值相同
v + = 1 '如果相同则继续循环并且将v的值加1
Else '如果不相同了.则进行合并
sheet1.MergeCell(i-v,l,v,1) '合并行数 '合并起始行为当前行i-v
vl = sheet1(i,l).Value '并且将vl重新赋值.
v = 1 '重新对v清零
End If
Next
'bk.save()
加好友 
发短信
Post By：2015/4/23 13:03:00 [显示全部帖子]
