Здравствуйте, имеется сводная таблица (вкладка расходы подразделений) из неё необходимо разнести данные по другим листам, по заданным критериям. Например из вкладки "Расходы подразделений" необходимо перенести все строки (в том числе повторяющиеся) удовлетворяющие критерию поиска (вкладка Бюджет 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
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
