如果第一列中的值相同，则Excel VBA将连接另一列中的值

Sub ConcatenateValues()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1") ' 修改为你的工作表名称
    
    Dim lastRow As Long
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    Dim i As Long
    Dim j As Long
    Dim currentValue As String
    Dim result As String
    
    For i = 1 To lastRow
        If i = 1 Or ws.Cells(i, 1).Value <> currentValue Then
            If i <> 1 Then
                ws.Cells(j, 3).Value = result ' 将结果写入第三列
            End If
            currentValue = ws.Cells(i, 1).Value
            result = ws.Cells(i, 2).Value
            j = i
        Else
            result = result & ", " & ws.Cells(i, 2).Value ' 连接值，用逗号分隔
        End If
    Next i
    
    ' 处理最后一行
    ws.Cells(j, 3).Value = result
End Sub