Добрый вечер. Нужно макросом вывести всю информацию по районам на новые листы одновременно и название листа совпадает с номером района. Например, в данной таблице в столбце S_KOD есть районы с номерами 100,101,102,103,104 и макросом выводим сотый район со всей информацией по нему на новый лист с названием этого же района 100.Далее 101 на другой лист с таким же алгоритмом и т.д. Пытался сделать через код, который приведен ниже, но он слишком объемный получается для большой таблицы и диапазон ячеек слишком условный.
| Код |
|---|
Sub Макрос2()
ActiveSheet.Range("$A$1:$J$1000000").AutoFilter Field:=1, Criteria1:="100"
Cells.Select
Selection.Copy
Sheets.Add After:=ActiveSheet
ActiveSheet.Paste
Sheets("Лист2").Select
Sheets("Лист2").Name = "Баркон"
Sheets("Лист1").Select
ActiveSheet.Range("$A$1:$J$1000000").AutoFilter Field:=1, Criteria1:="101"
Cells.Select
Selection.Copy
Sheets.Add After:=ActiveSheet
ActiveSheet.Paste
Sheets("Лист3").Select
Sheets("Лист3").Name = "Умар"
Sheets("Лист1").Select
ActiveSheet.Range("$A$1:$J$1000000").AutoFilter Field:=1, Criteria1:="102"
Cells.Select
Selection.Copy
Sheets.Add After:=ActiveSheet
ActiveSheet.Paste
Sheets("Лист4").Select
Sheets("Лист4").Name = "Отор"
End Sub |
Подскажите, пожалуйста, как решить данную проблему.
