как перенести опред. строки с одного листа...

[Tsvetochek]

Уважаемые программисты, как перенести определенные строки с одного листа на другой и чтобы они были по порядку. В общем смотрите приложение.

[EducatedFool]

Попробуйте такой макрос:

Sub test()
    Лист1.UsedRange.Offset(1).Clear
    Dim ra As Range: Application.ScreenUpdating = False
    Set ra = Range([c2], Range("c" & Rows.Count).End(xlUp)).SpecialCells(xlCellTypeConstants)
    Intersect(ra.EntireRow, [a:c]).Copy Лист1.[a2]
    Лист1.Activate
End Sub

Пример в файле:

[Tsvetochek]

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

[EducatedFool]

Sub test()
    ' берем используемый диапазон листа1 (Лист1.UsedRange),
    ' смещаемся на одну строку вниз (чтобы не затереть заголовок) - Лист1.UsedRange.Offset(1)
    ' и очищаем всё содержимое вместе с форматированием: .Clear
    Лист1.UsedRange.Offset(1).Clear
    
    Dim ra As Range ' объявляем переменную ra как диапазон ячеек
    
    Application.ScreenUpdating = False ' отключаем обновление экрана
    
    ' берем с активного листа диапазон, начиная с ячейки [c2]
    ' и заканчивая последней заполненой ячейкой в столбце С - Range("c" & Rows.Count).End(xlUp)
    ' теперь из этого диапазона - Range([c2], Range("c" & Rows.Count).End(xlUp))
    ' берем только непустые ячейки (с константами) - .SpecialCells(xlCellTypeConstants)
    ' и заносим этот диапазон в переменную ra
    ' ( сейчас RA ссылается на диапазон ячеек "$C$3,$C$8,$C$13,$C$16,$C$19")
    Set ra = Range([c2], Range("c" & Rows.Count).End(xlUp)).SpecialCells(xlCellTypeConstants)
    
    ' берем строки, содержащие ячейки из ra  - ra.EntireRow
    ' и столбцы [a:c]
    ' теперь то, что находится на их пересечении - Intersect(ra.EntireRow, [a:c])
    ' копируем (.Copy) на лист1, начиная с ячейки [a2] - .Copy Лист1.[a2]
    Intersect(ra.EntireRow, [a:c]).Copy Лист1.[a2]
    
    ' активируем лист1 (чтобы увидеть результат, ведь макрос запускался с другого листа)
    Лист1.Activate
End Sub

[Tsvetochek]

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

Sub test()
    ' берем используемый диапазон листа1 (Лист1.UsedRange),
    ' смещаемся на одну строку вниз (чтобы не затереть заголовок) - Лист1.UsedRange.Offset(1)
    ' и очищаем всё содержимое вместе с форматированием: .Clear
    Лист1.UsedRange.Offset(1).Clear
    
    Dim ra As Range ' объявляем переменную ra как диапазон ячеек
    
    Application.ScreenUpdating = False ' отключаем обновление экрана
    
    ' берем с активного листа диапазон, начиная с ячейки [c2]
    ' и заканчивая последней заполненой ячейкой в столбце С - Range("c" & Rows.Count).End(xlUp)
    ' теперь из этого диапазона - Range([c2], Range("c" & Rows.Count).End(xlUp))
    ' берем только непустые ячейки (с константами) - .SpecialCells(xlCellTypeConstants)
    ' и заносим этот диапазон в переменную ra
    ' ( сейчас RA ссылается на диапазон ячеек "$C$3,$C$8,$C$13,$C$16,$C$19")
    Set ra = Range([c2], Range("c" & Rows.Count).End(xlUp)).SpecialCells(xlCellTypeConstants)
    
    ' берем строки, содержащие ячейки из ra  - ra.EntireRow
    ' и столбцы [a:c]
    ' теперь то, что находится на их пересечении - Intersect(ra.EntireRow, [a:c])
    ' копируем (.Copy) на лист1, начиная с ячейки [a2] - .Copy Лист1.[a2]
    Intersect(ra.EntireRow, [a:c]).Copy Лист1.[a2]
    
    ' активируем лист1 (чтобы увидеть результат, ведь макрос запускался с другого листа)
    Лист1.Activate
End Sub

А если у меня листы по-другому называются?

[EducatedFool]

Sub test()
    Worksheets("ИмяЛистаКудаБудутКопироватьсяДанные").UsedRange.Offset(1).Clear
    Dim ra As Range: Application.ScreenUpdating = False
    Set ra = Range([c2], Range("c" & Rows.Count).End(xlUp)).SpecialCells(xlCellTypeConstants)
    Intersect(ra.EntireRow, [a:c]).Copy Worksheets("ИмяЛистаКудаБудутКопироватьсяДанные").[a2]
    Worksheets("ИмяЛистаКудаБудутКопироватьсяДанные").Activate
End Sub

При запуске макроса должен быть активен лист, содержащий исходные данные.
Как называется исходный лист - неважно.


PS: А сложно было выложить реальный файл, чтобы получить готовый универсальный макрос, который не надо было бы переделывать?

[Tsvetochek]

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

        Set ra = Range([c2], Range("c" & Rows.Count).End(xlUp)).SpecialCells(xlCellTypeConstants)

Он ищет только константы в этом столбце, а как прописать строку, чтобы еще и ячейки с формулой искал. Нужно добавить это: xlCellTypeformulas

[niydiyin]

здравствуйте!
спасибо за скрипт, он работает, но я пытаюсь сделать немного модифицированную версию и у меня не получаются кое-какие моменты.

вот мой скрипт:

Sub test()
Лист2.UsedRange.Clear
Dim ra As Range: Application.ScreenUpdating = False
Set ra = Range([c1], Range("c" & Rows.Count).End(xlUp))
ra.EntireRow.Copy Лист2.[a2]
Лист2.Activate
End Sub

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

вроде все. очень надеюсь на вашу помощь

[niydiyin]

вот необходимая формула:

=ЕСЛИ(ВПР($B21;Лист1!$A$1:$O$15;C$1 8;ЛОЖЬ)<>"";ВПР($B21;Лист1!$A$1:$O$ 15;C$18;ЛОЖЬ);ЛОЖЬ())

и прикрепил еще экселевский файл с формулой

выручайте!

[EducatedFool]

1. мне надо чтобы данные вставлялись не в ячейку а2, а в с11. а если я указываю любой столбец кроме а, формула не работает.
2. мне нужно, чтобы на листе 2 появлялась только первая строка листа 1 (начиная со столбца с и до конца), а не вся таблица с листа 1.

Реализовано:

Sub test()
    Лист2.UsedRange.Clear
    Dim ra As Range: Application.ScreenUpdating = False
    Set ra = Range([c1], Range("iv1").End(xlToLeft))
    ra.Copy Лист2.[c11]
    Лист2.Activate
End Sub

3. после того, как я все-таки перенесу одну строку на второй лист, мне необходимо в следующей строке (то есть d11 и до конца) вставить формулу, которая по дате с первого листа ищет значение и вставляет его в соответствующий столбец

нифига не понял.
пример сложно было сделать?

Зачем первой строкой макроса затирать ВСЁ содержимое листа2 ???
Вручную пропишите формулы и всё такое, а Лист2.UsedRange.Clear уберите, - и макрос будет заполнять на втором листе только 11-ю строку