Сравнение и слияние файлов

[Lemon Tree]

не,не, в поле ROOM заменой ставлю пустоту, потом уже на конечном этапе проставляются номера комнат вручную в нужных адресах. Меня больше волнует отсутствие квартир в одном из файлов.

[Hugo121]

Отсутствие не влияет - ну нет и нет...
Принцип работы ведь такой - сперва собираем всю существующую информацию из файла, затем раскладываем в сводный файл.
Если на кого-то данных не собрали - значит не собрали.
Если в сводном кого-то нет - значит это осталось невостребованным. Ошибок не будет.
Вот другое дело если нужно узнать, кто остался без пары - это можно доработать.
1. когда выгружаем, ставим в эту строку метку. Я бы завёл на это дело отдельный массив, куда ставил метки, в конце выгружал на лист. Чуть правее. через пустой столбец. Даже например писал туда дату.
Можно в начале кода считать этот массив с листа, дописать свежие метки, выгрузить назад - так всегда будете видеть когда кто обновился.
2. Когда выгружаем запись из словаря, можно её сразу удалить из словаря. Тогда в конце циклом по словарю можно определить оставшихся - значит таких нет в сводном, нужно что-то делать. Что/как именно - пока не вижу, нужно прорабатывать... Например одним проходом пополнить сводный (используя другой словарь для отсеивания дублей), затем по этому добавленному диапазону аналогично как в начале раскидать остатки словаря.
Но тут нужно обеспечить, чтоб виды платежей все уже были в сводном. Если возможны неожиданности - тут тоже придётся подработать...

[Lemon Tree]

спасибо ещё раз ) помогите,плиз,в этом,в прошлый раз не удалось справиться,слегка переделала задачу.
в одной книге 2 листа - лист1 - полный файл по всем управляющим компаниям, но по некоторым (я бы сказала,многим) адресам услуга "Содержание и ремонт" равна нулю, Лист2 - файл с услугой "Содержание и ремонт",содержащей цифры. Наименование адресов совпадает (город,улица,дом,корпус,квартира), а сами адреса на листах совпадают не полностью,а местами,т.е.,на листе2 их может не быть,т.к.,файл от мелкого ТСЖ с домами,которые обслуживает это конкретное ТСЖ.
Структура на обоих листах одинакова.Столбцы от A до E идентичны.
Задача - Сравнить адреса на листах и при полном совпадении адресов на листах, данные по столбцу М (лист2) скопировать в столбец М (лист1). После копирования необходимо суммировать столбцы - J (лист2) с J (лист1), К (лист2) с К (лист1), L(лист2) с L (лист1) и поставить это всё в Лист1 в графы J,K,L соответственно.
Написала много,понятно ли только7 И выполнима ли моя задача?

[Hugo121]

Минимально подправил код с предыдущей страницы.
Проверяйте.

Option Explicit

Sub sborka()
    Dim a(), i&, ii&, tAdr$, t$

    With CreateObject("Scripting.Dictionary")
        .comparemode = 1
        a = ThisWorkbook.Sheets(2).[a1].CurrentRegion.Value
        For i = 2 To UBound(a)
            tAdr = a(i, 1) & "|" & a(i, 2) & "|" & a(i, 3) & "|" & a(i, 4) & "|" & a(i, 5) & "|" & a(i, 6)
            For ii = 10 To 13    'UBound(a, 2)
                t = tAdr & "|" & a(1, ii)
                .Item(t) = .Item(t) + a(i, ii)
            Next
        Next

        a = ThisWorkbook.Sheets(1).[a1].CurrentRegion.Value
        For i = 2 To UBound(a)
            tAdr = a(i, 1) & "|" & a(i, 2) & "|" & a(i, 3) & "|" & a(i, 4) & "|" & a(i, 5) & "|" & a(i, 6)
            For ii = 10 To 12    'UBound(a, 2)
                t = tAdr & "|" & a(1, ii)
                a(i, ii) = a(i, ii) + .Item(t)
            Next
            t = tAdr & "|" & a(1, 13): If .exists(t) Then a(i, 13) = .Item(t)

        Next

        With ThisWorkbook.Sheets(1)
            .Columns(7).NumberFormat = "@"    'это думаю косяк примера, но лишним не будет :)
            .[a1].CurrentRegion.Value = a
        End With
    End With

    MsgBox "Данные собраны!"
End Sub

Хотя в данном случае можно было сделать иначе, проще - и работало бы быстрее. но лень - есть ведь уже готовое более универсальное решение.

[Lemon Tree]

огроменное спасибо!!!!! всё работает и достаточно быстро на файле в 5 тыс строк, всего пару-тройку секунд. ))))

[Hugo121]

Здесь остался тот же подход что и раньше - каждая ячейка в J,K,L запоминается, ищется и заполняется индивидуально.
Это было нужно когда столбцы могли "бегать и пропадать".
А т.к. тут обе таблицы одинаковы - можно было запоминать только номер строки каждого адреса (а не как сейчас к адресу+шапка запоминается значение), копировать/суммировать сразу строку целиком.
И было бы на пару секунд быстрее

[Lemon Tree]

пара секунд мне погоды не сделают,займусь другими файлами ибо их куча по другим услугам, конечно, хотелось бы автоматизировать вообще весь процесс,но,думаю,нереально это будет
многое приходится делать руками,к сожалению

[Hugo121]

Почти всё нудное можно автоматизировать. Даже вероятно всё - но вопрос в целесообразности/стоимости автоматизации. Бывают такие мудрёные файлы/таблицы от кудесников...
Ну а эти просто требуют автоматизации

[nerv]

Сообщение от Lemon Tree

Здравствуйте! помогите,плиз,полному профану в программировании.

Сообщение от Hugo121

можно параллельно собрать два словаря или коллекции с адресами и услугами, выгрузить их на лист как шапки сбоку/сверху, затем заполнить "шахматку" собранным в словаре.

Сообщение от EducatedFool

хорошие инструкции, Игорь...

я вообще не понимаю, зачем (для кого) он это пишет. Все ясно из первого предложения ТС: либо писать код "за спасибо" (иногда и без него), либо ТС - добро пожаловать во фриланс

[Lemon Tree]

согласна,требуют,чтобы все было сделано макросом и наверняка это можно сделать- например,надо сменить букву корпуса с заглавной на строчную ("А" на "а","Б" на "б" и т.д.),проставить косую в корпус с цифрой (12 на /12 и т.д.), затем сцепить номер дома с корпусом и поместить в ячейку с номером дома. Сейчас делаю через замену.

p.s. это осилила сама,благодаря Вам спасибо