Объединение ячеек одного столбца при совпадении ячеек в другом

@laigri · Регистрация: 18.04.2014

Author24 — интернет-сервис помощи студентам

Здравствуйте,
В таблице необходимо объединить все телефоны в одну ячейку, если совпадение по сайту или по названию+адрес Стороку с обединенными телефонами оставить, а все остальные, из которых извлечены телефоны для объединения, либо сделать пустыми либо удалить. Алгоритм понимаю, а вот с реализацией... Что называется только учусь)
Буду благодарна за любую помощь.
Пример во вложенном файле.

toiai · 18.04.2014, 17:21

Как вариант предложу со словарем - результат на странице "Лист2":

Visual Basic

Sub ObyedienieTelefonov()
    Dim a(), b(), i&, t$
    a = Sheets("Ëèñò1").UsedRange.Value
    With CreateObject("Scripting.Dictionary")
        For i = 1 To UBound(a, 1)
            t = a(i, 1) & "|" & a(i, 2) & "|" & a(i, 3) & "|" & a(i, 5)
            If .exists(t) Then
                a(i, 4) = .Item(t)(4) & ", " & a(i, 4)
            End If
            .Item(t) = Application.Index(a, i)
        Next
        b = .Keys
        For i = 0 To UBound(b)
            Sheets("Ëèñò2").Cells(i + 1, 1).Resize(1, 5) = .Item(b(i))
        Next
    End With
End Sub

@laigri · 18.04.2014, 23:32 **[ТС]**

Спасибо! То что нужно. Кроме одного, я не разобралась почему он он не выпоняется для последних трех строчек в примере?

@Казанский · 19.04.2014, 12:08

laigri, а какой адрес надо оставить для последних трех строчек?

Добавлено через 14 минут
Допилил немного

Visual Basic

Sub ObyedienieTelefonov()
    Dim a(), b(), i&, t$
    a = Sheets("Лист1").UsedRange.Value
    With CreateObject("Scripting.Dictionary")
        For i = 1 To UBound(a, 1)
            t = a(i, 5)
            If IsEmpty(t) Then _
                t = a(i, 1) & "|" & a(i, 2) & "|" & a(i, 3)
            If .exists(t) Then
                a(i, 4) = .Item(t)(4) & ", " & a(i, 4)
            End If
            .Item(t) = Application.Index(a, i)
        Next
        b = .Keys
        For i = 0 To UBound(b)
            Sheets("Лист2").Cells(i + 1, 1).Resize(1, 5) = .Item(b(i))
        Next
    End With
End Sub

@laigri · 21.04.2014, 00:44 **[ТС]**

Спасибо еще раз, очень помогли.

@laigri · 27.05.2014, 15:23 **[ТС]**

Здравствуйте,
возникла проблема(
попробовала прогнать по другой таблице,
выдает ошибку

run time error 13
type mismatch

в строчке

Visual Basic

1	.Item(t) = Application.Index(a, i)

Это же ошибка в значении переменной?
Что искать, что бы исправить не пойму.
Массив порядка 50000 строк.

@laigri 0 / 0 / 0 Регистрация: 18.04.2014 Сообщений: 4
	18.04.2014, 23:32 [ТС]	3
	Спасибо! То что нужно. Кроме одного, я не разобралась почему он он не выпоняется для последних трех строчек в примере? 0

@laigri 0 / 0 / 0 Регистрация: 18.04.2014 Сообщений: 4
	21.04.2014, 00:44 [ТС]	5
	Спасибо еще раз, очень помогли. 0

	27.05.2014, 15:23

Объединение ячеек одного столбца при совпадении ячеек в другом

Решение