Страницы: 1
RSS
Поиск и копирование дублей со значением первого столбца
 
Добрый день как можно решить такую задачу :
Дана таблица:
1acdfe
2bd
3ca
4dbe
5ed
6fb
7gcae
8ac
9b
1-9 значения, а не номера строк.
Должно получиться так:
a1,3,7,8
b2,4,6,9
c1,3,7,8
И так для каждого значение в столбцах 2-6 пустые не учитываются.
Спасибо.
Изменено: Noobasishe - 22.01.2020 21:00:23 (Прикрепил пример в excel)
 
Noobasishe, вариант на PQ.
 
Название общее,  не отражает проблему.  Предлагайте модераторы заменят
 
Код
Sub Main()
    Dim r As Range
    Set r = Selection
    Dim a As Variant
    a = r
    
    Dim y As Long
    Dim x As Integer
    Dim dic As Object
    Set dic = CreateObject("Scripting.Dictionary")
    
    For y = 1 To UBound(a, 1)
    For x = 2 To UBound(a, 2)
        If Not IsEmpty(a(y, x)) Then
            If Not dic.Exists(a(y, x)) Then Set dic.Item(a(y, x)) = CreateObject("Scripting.Dictionary")
            dic.Item(a(y, x)).Item(a(y, 1)) = 0
        End If
    Next
    Next
    
    ReDim a(1 To dic.Count, 1 To 2)
    For y = 1 To dic.Count
        a(y, 1) = dic.Keys()(y - 1)
        a(y, 2) = Join(dic.Items()(y - 1).Keys(), ",")
    Next
    
    r.Cells(r.Rows.Count + 2, 1).Resize(UBound(a, 1), UBound(a, 2)) = a
End Sub
Работает по выделенному диапазону.
 
МатросНаЗебре, большое спасибо, то что нужно.

vikttur, Поиск и копирование дублей со значением первого столбца?
Изменено: Noobasishe - 22.01.2020 20:54:25
 
Название поменял. Ранее скрытое сообщение (#2) отображается.
Страницы: 1
Наверх