перенос строчек из одной вкладки в другую

[sunnyb]

Доброго вечера всем!
Столкнулся с проблемой, решение которой значительно облегчило бы рутинные задачи.
В Excel файле первый столбик служит заголовком для каждой строчки, заголовок или статус для строки всего двух вариантов - латинская буква "u" или "s".
Как написать VBA макрос, чтобы при его активации все строчки имеющие заголовок "s" из вкладки "1" были перенесены в следующую вкладку ("2") начиная с А3 и при этом в первой вкладке остались только строчки с заголовком "u" без пробелов между этими строчками.

[Aleksandr H.]

Попытки, наработки решения где?

[SAS888]

Можно, например, так:

Sub Main()
    Dim ws1 As Worksheet, ws2 As Worksheet
    Application.ScreenUpdating = False: On Error Resume Next
    Set ws1 = Sheets("1"): Set ws2 = Sheets("2"): ws1.UsedRange.Copy ws2.[A3]
    ws1.UsedRange.Columns(1).ColumnDifferences(ws1.UsedRange.Columns(1).Find("u", LookAt:=xlWhole)).EntireRow.Delete
    ws2.UsedRange.Columns(1).ColumnDifferences(ws2.UsedRange.Columns(1).Find("s", LookAt:=xlWhole)).EntireRow.Delete
End Sub

Пример во вложении. Откройте файл и выполните макрос "Main"

[sunnyb]

SAS888 - большое спасибо, макрос работает, единственное в файлике - примере работает корректно, а если макрос скопировать в собственный Excel, макрос все время удаляет все верхние (поскольку они пустые?) строчки. Все равно, огромное спасибо!
SAS888, то, что касается написания макросов при помощи VBA и осваивания расширенных функций Excel, можете ли Вы посоветовать литературу и с чего начинать в этом не простом вопросе?

[SAS888]

sunnyb
1. Как выражается один из небезызвестных наших модераторов: "Разрази меня гром", если после выполнения макроса результат не соответствует Вашему требованию. Каков вопрос - таков ответ. Уточните, что конкретно требуется (вставить на другой лист ниже существующих данных; вставить на другой лист, начиная с какой-то строки, оставив значения выше и т. п.).
Я, конечно, попробую угадать, предложив следующий макрос (пример во вложении):

Sub Main()
    Dim ws1 As Worksheet, ws2 As Worksheet, x As Range
    Application.ScreenUpdating = False: On Error Resume Next
    Set ws1 = Sheets("1"): Set ws2 = Sheets("2"): ws1.UsedRange.Copy ws2.[A3]
    ws1.UsedRange.Columns(1).ColumnDifferences(ws1.UsedRange.Columns(1).Find("u", LookAt:=xlWhole)).EntireRow.Delete
    Set x = Intersect(ws2.UsedRange, ws2.Rows("3:" & Rows.Count))
    x.Columns(1).ColumnDifferences(x.Columns(1).Find("s", LookAt:=xlWhole)).EntireRow.Delete
End Sub

2. Литературу по изучению VBA Excel неоднократно советовали на нашем форуме. В расширенном поиске по форуму задайте слово "Литература" в разделе Excel и получите "кучу" очень полезных ссылок.