Соединить два списка в третий

[Иванов_ДМ]

Пожалуйста, помогите!
Нужно сформировать список (с уникальными названиями клиентов) на отдельном листе, объединив в нем значения двух других списков с не уникальными значениями, находящихся на разных листах (клиенты июля и августа).
Заранее спасибо помогающим!

[SAS888]

Вы не догадываетесь, почему Вам никто не отвечает?
Из чего формировать уникальный список? Какие данные присоединять к этим значениям? В одной ячейке, или в строке по ячейкам?
Лучше всего, в результирующем листе ("Клиенты") напишите, что должно получаться в итоге.

[Иванов_ДМ]

SAS888 спасибо, что ответили!
3 список - это все клиенты, сработавшие за два месяца.
Есть клиенты, которые сработали только в 1 месяце, есть, которые - только во 2 месяце. Причем клиенты могли отгружать продукцию в каждом месяце несколько раз, соответственно название клиента не уникально в 1 и 2 списке (повторяется).

В третьем списке должен быть перечень клиентов (клиентская база), в котором клиенты 1 и 2 месяца должны быть приведены совокупно, общим списком и каждый клиент должен быть упомянут только 1 раз, посему быть уникальным, без повторов.

[SAS888]

Выполните макрос:

Sub Main()
    Dim i As Long, j As Long, x As New Collection, a()
    Application.ScreenUpdating = False: On Error Resume Next
    For i = 1 To 2
        With Sheets(i): a = .Range(.[A2], .Cells(Rows.Count, 1).End(xlUp)).Value: End With
        For j = 1 To UBound(a, 1)
            x.Add a(j, 1), CStr(a(j, 1))
    Next: Next: On Error GoTo 0
    With Sheets("Клиенты"): For i = 1 To x.Count: Cells(i + 1, 3) = x(i): Next: End With
End Sub

Затем, если нужно, можно применить сортировку.

[Иванов_ДМ]

Здорово, спасибо!!!
А к слову, если 2 списка, из которых берутся данные, находятся не на двух отдельных листах, а на 1 листе рядом в столбцах А и B?
Как там надо переделать тогда?

[Иванов_ДМ]

И еще вопросик: В макросе нет четкой ссылки на конкретные листы, из которых берутся данные. Ссылка идет только циклом (1,2). А если у меня в файле будет 20 листов, то макрос может обратиться к другим листам.... Как вынуть данные из листов с конкретным названием, а не листов 1,2?

[SAS888]

если 2 списка, из которых берутся данные, находятся не на двух отдельных листах, а на 1 листе рядом в столбцах А и B?

Тогда так:

Sub Main()
    Dim j As Long, x As New Collection, a()
    Application.ScreenUpdating = False: On Error Resume Next
    With Sheets("Имя_Листа_ с_данными")
        a = Intersect(.UsedRange, .[A:B]).Value
    End With
    For j = 1 To UBound(a, 1)
        If a(j, 1) <> "" Then x.Add a(j, 1), CStr(a(j, 1))
    Next: On Error GoTo 0
    With Sheets("Клиенты"): For j = 1 To x.Count: Cells(j + 1, 3) = x(j): Next: End With
End Sub

Как вынуть данные из листов с конкретным названием

Например, для столбцов "A" на листах "Лист1", "Лист5", "Лист6" и "Лист8":

Sub Main()
    Dim j As Long, x As New Collection, a()
    Application.ScreenUpdating = False: On Error Resume Next
    For Each i In Array("Лист1", "Лист5", "Лист6", "Лист8")
        With Sheets(i): a = .Range(.[A2], .Cells(Rows.Count, 1).End(xlUp)).Value: End With
        For j = 1 To UBound(a, 1)
            If a(j, 1) <> "" Then x.Add a(j, 1), CStr(a(j, 1))
    Next: Next: On Error GoTo 0
    With Sheets("Клиенты"): For j = 1 To x.Count: Cells(j + 1, 3) = x(j): Next: End With
End Sub

P.S. Работоспособность макросов не проверял. Если что не так - пишите.

[Иванов_ДМ]

В первом коде (1 лист 2 диапазона "A:B") переносит данные только одной таблицы.
Во втором коде (2 листа по 1 диапазону) ругается на переменную i - требует определить формат.

[SAS888]

В первом коде (1 лист 2 диапазона "A:B") переносит данные только одной таблицы.

Да. Конечно. Извиняюсь. Добавьте строку для 2-й размерности:

Sub Main()
    Dim j As Long, x As New Collection, a()
    Application.ScreenUpdating = False: On Error Resume Next
    With Sheets("Имя_Листа_ с_данными")
        a = Intersect(.UsedRange, .[A:B]).Value
    End With
    For j = 1 To UBound(a, 1)
        If a(j, 1) <> "" Then x.Add a(j, 1), CStr(a(j, 1))
        If a(j, 2) <> "" Then x.Add a(j, 2), CStr(a(j, 2))
    Next: On Error GoTo 0
    With Sheets("Клиенты"): For j = 1 To x.Count: Cells(j + 1, 3) = x(j): Next: End With
End Sub

Во втором коде (2 листа по 1 диапазону) ругается на переменную i - требует определить формат.

Если у Вас установлена опция Option Explicit, то определите переменную, как Dim i As Variant

[Иванов_ДМ]

Макрос с разными листами заработал!
А вот где на одном листе почему-то данные помещает на тот же лист, откуда берет, а также захватывает заголовки