roma roma (Автор тем)

не работает макрос простой

Пользователь

Сообщений: 11 Регистрация: 10.03.2021

10.05.2025 15:17:48

Подскажите почему на строке Set ws2 = ThisWorkbook.Sheets(2) ' Второй лист в книге

Код

Sub СопоставитьСчета()
    Dim ws1 As Worksheet
    Dim ws2 As Worksheet
    Dim lastRow1 As Long
    Dim lastRow2 As Long
    Dim i As Long
    Dim j As Long
    Dim foundMatch As Boolean
    
    ' Установим ссылки на листы по индексам
    Set ws1 = ThisWorkbook.Sheets(1) ' Первый лист в книге
    Set ws2 = ThisWorkbook.Sheets(2) ' Второй лист в книге

End Sub

макрос ломается
Subscript out of range

Перейти

Как перенести по уникальному значению данные с одного листа на другой

roma roma

Пользователь

Сообщений: 11 Регистрация: 10.03.2021

10.05.2025 00:16:22

Добрый день, подскажите, пожалуйста макрос как сожно решить такую задачу.
Есть лист1, в котором есть счет 67 и компания ВТБ и в который на строчку ниже нужно перенести данные из листа2 по совпадающему критерию - счету 67, т.е. у листа1 и листа2 есть общий критерий - счет 67. На листе1 строк меньше чем на листе 2, т.е. нужно чтобы макрос добавлял на листе1 строку при необходимости и переносил в нее данные. Данные которые нужно перенести на листе2 отметил зеленым цветом. Результат который нужен - на листе 3. То есть по сути нужно чтобы макрос увидел что на листе1 и листе2 есть одинаковый счет 67, понял что нужно перенести 4 строки и добавил бы 3 (т.к. одна со счетом 67 уже есть на листе1), ну и перенес бы содержимое этих строк на лист 1.

Перейти