Question

编写EXCEL宏程序 实现 相同数据合并

现有一张excel表格，我要实现将两个列值都相同的行合并。截图如下：

现在要实现的结果是

跪求大神帮忙





Answer 1

整理后的数据，放在D/E/F列

Sub MC_TEST()
    Set d = CreateObject("Scripting.Dictionary")
    For i = 1 To [a65536].End(3).Row
        aa = Cells(i, 1) & "|" & Cells(i, 3)
        d(aa) = d(aa) & "," & Cells(i, 2)
    Next
    ar = d.keys: br = d.items
    For n = 0 To d.Count - 1
        ss = Split(ar(n), "|")
        Cells(n + 1, 4) = ss(0)
        Cells(n + 1, 5) = Mid(br(n), 2)
        Cells(n + 1, 6) = ss(1)
    Next
End Sub

追问

能给点注释吗，没做过这种语言，看不懂。

Answer 2

别跪了 我教你

追问

怎么做

追答

在线讲解 并教你