Excel работа с буфером обмена

[S0ny]

Возникла проблема с макросом для Excel

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

Буду благодарен за любую помощь.

Сам я флешер и никак не связан с VBA, просто человек попросил написать макрос, чтобы автоматизировать некоторые операции с екселем на работе.

[EducatedFool]

Если вам надо копировать данные с листа на лист, то использовать буфер обмена Windows совсем необязательно.

Из примера непонятно, что и куда должно копироваться.

Sub test()
    ' будут копироваться ячейки только из этих столбцов
    СтолбцыДляКопирования = "a:d,f:f,h:i,n:m"
    
    Dim ro As Range, ЯчейкаДляВставки As Range
    Application.ScreenUpdating = False    ' отключаем обновление экрана

    ' перебираем все строки, в которых выделена хотя бы одна ячейка
    For Each ro In Selection.EntireRow
        ' находим первую незаполненную ячейки снизу листа
        Set ЯчейкаДляВставки = Range("a10000").End(xlDown).Offset(-1)
        ' копируем ячейки, расположенные на пересечении очередной строки,
        ' и диапазона СтолбцыДляКопирования
        ' вставку начинаем с найденной ячейки
        Intersect(ro, Range(СтолбцыДляКопирования)).Copy ЯчейкаДляВставки
    Next ro
End Sub

[S0ny]

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

Если вам надо копировать данные с листа на лист, то использовать буфер обмена Windows совсем необязательно.

Из примера непонятно, что и куда должно копироваться.

Sub test()
    ' будут копироваться ячейки только из этих столбцов
    СтолбцыДляКопирования = "a:d,f:f,h:i,n:m"
    
    Dim ro As Range, ЯчейкаДляВставки As Range
    Application.ScreenUpdating = False    ' отключаем обновление экрана

    ' перебираем все строки, в которых выделена хотя бы одна ячейка
    For Each ro In Selection.EntireRow
        ' находим первую незаполненную ячейки снизу листа
        Set ЯчейкаДляВставки = Range("a10000").End(xlDown).Offset(-1)
        ' копируем ячейки, расположенные на пересечении очередной строки,
        ' и диапазона СтолбцыДляКопирования
        ' вставку начинаем с найденной ячейки
        Intersect(ro, Range(СтолбцыДляКопирования)).Copy ЯчейкаДляВставки
    Next ro
End Sub

Но в моем случае вставка может происходить в другой эксель документ. Т.е. копируем в одном документе, а всталяем в другой. Соответственно будет 2 макроса. Как быть тогда?

Сорри, забыл сразу написать об этом

[EducatedFool]

А зачем 2 макроса?

Надо в этом макросе лишь изменить одну строку:

        Set ЯчейкаДляВставки = Workbooks("Книга2.xls").Worksheets(1).Range("a10000").End(xlDown).Offset(-1)

Тогда макрос будет производить вставку данных на первый лист книги Книга2.xls (эта книга должна быть открыта заранее)

[S0ny]

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

А зачем 2 макроса?

Надо в этом макросе лишь изменить одну строку:

        Set ЯчейкаДляВставки = Workbooks("Книга2.xls").Worksheets(1).Range("a10000").End(xlDown).Offset(-1)

Тогда макрос будет производить вставку данных на первый лист книги Книга2.xls (эта книга должна быть открыта заранее)

Спасибо большое)