主题：专业报表合并

哪位老师帮我看看如下公式,我想让前六列(按照第一列内容 "工作号" 相同) 相同内容合并,公式不会做.

For c As Integer = 0 To tb.Cols.Count -1 
        Dim FirstRow As Integer = 1
        For r As integer = 0 To tb.Rows.Count -1
                If tb(r,c) Is Nothing Then
                    Continue for
                End if
                If r > 0 AndAlso tb.Cols(c).IsString AndAlso tb(r,c) = tb(r - 1,c) Then
                    rt.Cells(FirstRow,c).SpanRows =  rt.Cells(FirstRow,c).SpanRows  + 1
                Else
                    rt.Cells(r + 1, c).Text = tb(r,c)
                    FirstRow = r + 1
                End if
            Next
    Next

比如:

工作号        列1         列2     列3   ...  列7
001             M            N        S           A1
001             M            N        S           A2
002             M            V        P           A3
002             M            V        P           A4

合并后为:

工作号        列1         列2     列3 ....  列7
001             M            N        S          A1
                                                        A2
002             M            V        P          A3
                                                        A4

姐姐,我是只要求合并前6列,根据第一列内容来合并.不是所有列.

For c As Integer = 0 To tb.Cols.Count -1
这个公式如何改为:

For c As Integer = 0 To 6,前6列

感谢MING姐,我试试

成功了,感谢MING姐.

If r > 0 AndAlso c <= 5 AndAlso tb.Cols(c).IsString AndAlso tb(r,c) = tb(r-1,c) Then

将上面红色部分改的列C改成实际列名,就可以按条件合并了.如:   tb(r,"工作号") = tb(r-1,"工作号") 就可以工作号条件将相同的列合并,而避免报关不美观.
再次感谢热心MING姐.