Помогите с макросом накопление+отсеивание

[losyra02]

Задача следующая:
1 лист - накопительная таблица
2 лист - лист с новой таблицей
столбцы у таблиц одинаковые
необходим макрос (желательно через кнопку) который будет новую таблицу присоединять к накопительной с конца, причём производя проверку по столбцу № ссудного счета ** (т.е. если номера повторяются, то по 2 разу значения в накопительную таблицу заносить не надо)

[mc-black]

А что следует делать, когда № ссудного счета уже есть: игнорировать перенос строки, суммировать что-то с накоплением или еще как-то?

[losyra02]

mc-black

Игнорировать процесс переноски, т.е. не переносить вообще

[mc-black]

Код: Выделить всё

Option Explicit

Sub AddData()
    Dim src As Worksheet, dst As Worksheet
    Dim i As Long, j As Long, b As Boolean
    
    Set src = ThisWorkbook.Worksheets(2)
    Set dst = ThisWorkbook.Worksheets(1)
    
    i = 2
    Do While Not src.Cells(i, 3).Value = Empty
        j = 2
        b = True
        Do While Not dst.Cells(j, 3).Value = Empty
            If src.Cells(i, 3).Value = dst.Cells(j, 3).Value Then
                b = False
                Exit Do
            End If
            j = j + 1
        Loop
        
        If b Then
            src.Range(src.Cells(i, 1), src.Cells(i, 4)).Copy
            dst.Cells(j, 1).PasteSpecial xlPasteAll
        End If
        
        i = i + 1
    Loop
End Sub

[ATTACH]1210[/ATTACH] Рабочий пример

[losyra02]

Спасибо mc-black!!!