Здравствуйте, имеется сводная таблица (вкладка расходы подразделений) из неё необходимо разнести данные по другим листам, по заданным критериям. Например из вкладки "Расходы подразделений" необходимо перенести все строки (в том числе повторяющиеся) удовлетворяющие критерию поиска (вкладка Бюджет IT, диапазон G2:G5) на лист "Бюджет IT". Прошу подсказать решения формулами или макросами. Спасибо.
Здравствуйте, имеется сводная таблица (вкладка расходы подразделений) из неё необходимо разнести данные по другим листам, по заданным критериям. Например из вкладки "Расходы подразделений" необходимо перенести все строки (в том числе повторяющиеся) удовлетворяющие критерию поиска (вкладка Бюджет IT, диапазон G2:G5) на лист "Бюджет IT". Прошу подсказать решения формулами или макросами. Спасибо.Klaasnjce
Sub Rashodi() Dim LastRow As Long, Rw As Long LastRow = Cells(Rows.Count, 4).End(xlUp).Row With Sheets("Расходы на связь и IT") Rw = .Cells(Rows.Count, 4).End(xlUp).Row + 1 For i = 12 To LastRow If Cells(i, 7) = "Программное и информационное обеспечение (лицензии) (сторонние организации)" Then Range(Cells(i, 4), Cells(i, 20)).Copy .Cells(Rw, 4) Rw = Rw + 1 End If Next End With End Sub
[/vba]
Пробую делать макросом, но не умею искать сразу по нескольким критериям. На выходе получится около 10 макросов, которые будут запускаться поочередно для формирования одной вкладки, что не очень красиво. Подскажите, как можно сделать более грамотно.
[vba]
Код
Sub Rashodi() Dim LastRow As Long, Rw As Long LastRow = Cells(Rows.Count, 4).End(xlUp).Row With Sheets("Расходы на связь и IT") Rw = .Cells(Rows.Count, 4).End(xlUp).Row + 1 For i = 12 To LastRow If Cells(i, 7) = "Программное и информационное обеспечение (лицензии) (сторонние организации)" Then Range(Cells(i, 4), Cells(i, 20)).Copy .Cells(Rw, 4) Rw = Rw + 1 End If Next End With End Sub
[/vba]
Пробую делать макросом, но не умею искать сразу по нескольким критериям. На выходе получится около 10 макросов, которые будут запускаться поочередно для формирования одной вкладки, что не очень красиво. Подскажите, как можно сделать более грамотно.Klaasnjce
Сообщение отредактировал Klaasnjce - Четверг, 19.09.2019, 09:29