Здравствуйте !
Есть 2 книги: ТаблицаКО.xlsm и ТаблицаКО2.xls - обе в одной папке
Нужно с ТаблицаКО2.Лист(1) перенести данные в ТаблицаКО.Лист(1)
Оба листа идентичны по колонкам и переносимому диапазону - надо диапазон A4:F ТаблицаКО2 перенести в A4:F ТаблицаКО
Только вот условия переноса для меня трудные не могу сделать -
перенести надо с дописыванием (ниже последней заполненной строки)
и проверить еще на дубли переносимый диапазон из листа ТаблицаКО2
- если в переносимом диапазоне в строках по столбцу E есть совпадения со столбцом E куда переносим то эти строки не переносятся - а удаляются просто
те переносятся не дубли
Пока хватило только на то чтобы массивы определить откуда куда переносим - но эти условия не знаю как сделать
Пример на всякий случай приложил с 2 файлами
Есть 2 книги: ТаблицаКО.xlsm и ТаблицаКО2.xls - обе в одной папке
Нужно с ТаблицаКО2.Лист(1) перенести данные в ТаблицаКО.Лист(1)
Оба листа идентичны по колонкам и переносимому диапазону - надо диапазон A4:F ТаблицаКО2 перенести в A4:F ТаблицаКО
Только вот условия переноса для меня трудные не могу сделать -
перенести надо с дописыванием (ниже последней заполненной строки)
и проверить еще на дубли переносимый диапазон из листа ТаблицаКО2
- если в переносимом диапазоне в строках по столбцу E есть совпадения со столбцом E куда переносим то эти строки не переносятся - а удаляются просто
те переносятся не дубли
Пока хватило только на то чтобы массивы определить откуда куда переносим - но эти условия не знаю как сделать
Пример на всякий случай приложил с 2 файлами
Код |
---|
Sub test() Dim sht As Worksheet, sht1 As Worksheet Dim arr(), arr1(), i&, j&, x& Set sht = Workbooks("ТаблицаKO.xlsm").Sheets(1) Set sht1 = Workbooks("Новая_выгрузка.xls").Sheets(1) With sht i = .Cells(.Rows.Count, "b").End(xlUp).Row 'j = .Cells(3, .Columns.Count).End(xlToLeft).Column arr = .Range(.Cells(4, "a"), .Cells(i, 6)) End With With sht1 i = .Cells(.Rows.Count, "b").End(xlUp).Row 'j = .Cells(3, .Columns.Count).End(xlToLeft).Column arr1 = .Range(.Cells(4, "a"), .Cells(i, 6)) For i = LBound(arr1) To UBound(arr1) 'както надо перенести здесь Next i End With End Sub |