excel相同数据结果合为一行用逗号分开

发布网友发布时间：2022-05-16 18:28

共3个回答

热心网友时间：2023-11-19 02:41

Sub 合并相同单元格的值()
    Dim x As Integer
    Dim str As String

    str = Range("B2").Value      '给一个初始值

    For x = 2 To 127   '127为A列单元格个数
        If Range("A" & x + 1).Value = Range("A" & x).Value Then  '判断下一个单元格值是否与当前单元格值相等
                str = str & "," & Range("B" & x + 1).Value   '如果相等，把当前行对应B列的值，与下一个单元格合并
            Else
                Range("C" & x).Value = str   '如果不相等，则在相应区域输出合并后的值
                str = Range("B" & x + 1).Value  '重置str的值为下一个单元格
        End If
    Next
End Sub

首先要对A列进行排序，然后运行上述代码，效果如图C列所示：

热心网友时间：2023-11-19 02:41

首先，A列排序，然后B列都加个逗号，成形如下图数据：

D1=PHONETIC(INDIRECT(b&MATCH(C1,AA,0)&b&MATCH(C1,AA,0)+COUNTIF(AA,C1)-1))

结果最后多一个逗号，用left函数处理即可。

追问公式太长了，如果数据处理多了，excel卡死啦，有没有简单点的

热心网友时间：2023-11-19 02:42

建议使用VBA代码。