[已解决]汇总非零信息至单元格（多行内容放入一个单元格）

蝶·舞

我的数据是第一列是日期，后面N列是相应产品及对应数量，我的要求是：根据所选日期，汇总相应的各产品信息，并将内容返回至单个单元格内（各产品之间通过单元格内回车来进行换行），然后又要求将汇总合计是0的产品信息进行剔除不显示

汇总非零信息至一个单元格内.zip (1.95 KB, 下载次数: 7)

2016-5-5 20:37 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

爱疯

2016-5-5 20:56

Sub Click()
    Dim A, B, i, j, x, str
    A = Range("a1").CurrentRegion
    ReDim B(2 To UBound(A, 2))
    x = [l1]
    For i = 2 To UBound(A)
        If A(i, 1) = x Then
            For j = 2 To UBound(A, 2)
                B(j) = B(j) + A(i, j)
            Next j
        End If
    Next i

    For j = 2 To UBound(B)
     If B(j) Then str = str & vbCrLf & A(1, j) & ":" & B(j)
    Next j
    [m1] = Mid(str, 3)
End Sub

汇总非零信息至一个单元格内2.rar (8.98 KB, 下载次数: 20)

2016-5-5 20:56 上传

点击文件名下载附件

没偷到懒

跳转到最佳答案楼层

爱疯

Sub Click()
    Dim A, B, i, j, x, str
    A = Range("a1").CurrentRegion
    ReDim B(2 To UBound(A, 2))
    x = [l1]
    For i = 2 To UBound(A)
        If A(i, 1) = x Then
            For j = 2 To UBound(A, 2)
                B(j) = B(j) + A(i, j)
            Next j
        End If
    Next i

    For j = 2 To UBound(B)
     If B(j) Then str = str & vbCrLf & A(1, j) & ":" & B(j)
    Next j
    [m1] = Mid(str, 3)
End Sub

汇总非零信息至一个单元格内2.rar (8.98 KB, 下载次数: 20)

2016-5-5 20:56 上传

点击文件名下载附件

没偷到懒