怎么把EXCEL表哥里第一列内容相同的第二列弄在同一行里，如图

Question

如题所述

Answer 1

答：依照上图可以编程完成。

按ALT+F11组合键，打开VB窗口，执行"插入"-"模块"，复制下面代码进去，在上图工作表为活动工作表的情况下按F5运行程序即得到结果。

Sub demo()
    Dim D As Object, Cell As Range

    Set Cell = Range("A1")
    Set D = CreateObject("scripting.dictionary")
    Do Until IsEmpty(Cell)
        If Not D.exists(Cell.Value) Then
            D(Cell.Value) = Cell.Offset(0, 1).Value
        Else
            D(Cell.Value) = D(Cell.Value) & "," & Cell.Offset(0, 1).Value
        End If
        Set Cell = Cell.Offset(1, 0)
    Loop
    Range("C1").Resize(D.Count, 1) = Application.Transpose(Filter(D.keys, ""))
    Range("D1").Resize(D.Count, 1) = Application.Transpose(Filter(D.items, ""))
End Sub