У меня есть файл xls со следующими значениями:
ID Value
1 value1
1 value2
1 value3
2 value1
2 value2
3 value1
3 value2
и т.д
Я хотел бы преобразовать это в (создать новый лист)
ID Values
1 value1,value2,value3
2 value1,value2
3 value1,value2,value3
По сути, я хотел бы, чтобы все строки с одинаковым идентификатором объединяли все значения, разделенные запятыми.
Спасибо,
Попробуйте ниже код:
Sub sample()
Dim i As Integer, j As Integer
Dim temp As String
Range("A:A").AdvancedFilter Action:=xlFilterCopy, copytorange:=Range("C1"), unique:=True
Dim lastRow As Long
lastRow = Range("C65000").End(xlUp).Row
j = 1
For i = 2 To lastRow
Do Until Cells(j, 2) = ""
If Trim(Cells(j, 1)) = Trim(Cells(i, 3)) Then
temp = temp & "," & Cells(j, 2)
End If
j = j + 1
Loop
Cells(i, 4) = temp
temp = ""
j = 1
Next
End Sub
