Excel宏帮助组

Question

我的excel中有两列：

TableName   Function
   100        abc
   100        def
   100        xyz
   100        ghy
   100        ajh
   101        ahd
   101        lkj
   101        gtr
   102        afg
   102        vbg
   102        arw
   102       fgtr

我需要输出

TableName     Function
    100     abc,def,xyz,ghy,ajh,
    101     ahd,lkj,gtr,
    102     102,102,102,102,

Answer 1

你可以试试这个简单的代码，

Sub joinStr()
Dim i As Long, str As String, k As Long
Columns("A:B").Sort key1:=Range("A2"), order1:=xlAscending, Header:=xlYes
str = Cells(2, 2)
k = 2
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
    If Cells(i, 1) = Cells(i + 1, 1) Then
        str = str & "," & Cells(i + 1, 2)
    Else
        Cells(k, 4) = Cells(i, 1)
        Cells(k, 5) = str
        k = k + 1
        str = Cells(i + 1, 2)
    End If
Next i
End Sub

​

​