VBA求助！怎么根据条件将多列数据汇总（汇总有值的内容，但是A列信息要保留）

Lisa_89

求助：

数据格式为A列为列名，B列为值，其他列也是这样的逻辑。

比如对于第一行，B列和D列都有值，则进行汇总,形式为A:aaa;TT:123
对于第二行，C,D,E,F列有值，所以汇总形式为B:TT:345;TT:789

请查看附件

网海遨游

SSub test2020()        
       Dim i%, j%, rg$
        [j1:j6000].Clear
        arr = Sheet1.[a1].CurrentRegion
        For i = 1 To UBound(arr)
                For j = 1 To UBound(arr, 2)
                  If arr(i, j) <> "" Then
                        If rg = "" Then
                                rg = Split(arr(i, j), ":")(0)
                        Else
                                rg = rg & ":" & arr(i, j)
                        End If
                    End If
                Next j
                Cells(i, 10) = rg '结果放在J1单元格，可更改
                rg = ""
        Next i
End Sub

网海遨游

这是附件，请测试

Lisa_89

谢谢@网海遨游！！！我来试试。