主题：[原创]execl表格某一列的所有行重复值合并自定义函数

贴出你的测试代码。

Dim book As new XLS.Book("d:\test.xls")
Dim sheet1 As object = book.Sheets(0)
Dim l As Integer = 0'要合并的列的位置.
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
book.save("d:\test.xls")