如何将excel单元格内容汇总,详见下图

发布网友发布时间：2022-04-22 23:43

共3个回答

热心网友时间：2023-10-08 21:48

答：编写一小段代码就能实现。按ALT+F11组合键，打开VB窗口，执行"插入"-"模块"，复制下面代码进去，按F5运行程序即得到结果。

Sub Demo()
    Dim Cell As Range
    Dim LastCol As Integer
    Dim i As Integer
    Dim TempStr As String

    Set Cell = Range("A2")
    LastCol = Cells(1, Columns.Count).End(xlToLeft).Column
    Do Until IsEmpty(Cell)
        For i = 1 To LastCol
            If Cells(Cell.Row, i) <> 0 And Cells(Cell.Row, i) <> "" Then
                TempStr = TempStr & Cells(1, i) & Cells(Cell.Row, i) & ":" & vbCrLf
            End If
        Next i
        Cell.Offset(0, LastCol) = Left(TempStr, Len(TempStr) - 1)
        TempStr = ""
        Set Cell = Cell.Offset(1, 0)
    Loop
End Sub

以下为运行结果截图

热心网友时间：2023-10-08 21:49

你的数据量大吗？如果不多还是手工，多了代码来做。

热心网友时间：2023-10-08 21:49

结合word来实现追问能详细说说吗