Макрос. Перебрать все листы и выбрать нужные значения на отдельный лист.

Пользователь

Сообщений: 972 Регистрация: 14.01.2014

20.07.2016 08:58:27

Прошу помочь незнайке ВБА.

Есть книга в которой много листов. Нужно перебрать почти все листы (за некоторым исключением) и вывести на отдельный лист, который называется "Отчет" в два столбца А и В значения: Название листа и содержимое ячейки С5 этого листа. Я знаю, что тем кто знает ВБА для экселя, это простейшее задание, но я буду искать нужные операторы пол дня. Пока получилось следующее:

Код

Sub Макрос1()
For Each List In ThisWorkbook.Worksheets
    If List.Name = "ИСПОЛЬЗОВАНИЕ ДАННЫХ" Then Next List
    If List.Name = "данные" Then Next List
    If List.Name = "Отчет" Then Next List    
Next List
End Sub

Здесь "ИСПОЛЬЗОВАНИЕ ДАННЫХ" и "данные" и "Отчет" - это листы, которые не нужно обрабатывать. На листе "Отчет" должно так выглядеть. Но формироваться должно с помощью этого макроса.

Прикрепленные файлы

создать макрос.xls (35 КБ)

Если автоматизировать бардак, то получится автоматизированный бардак.

SuperCat

Пользователь

Сообщений: 2737 Регистрация: 21.12.2012

20.07.2016 09:08:06

Код

Sub Макрос1()
    Dim x, List
    With Sheets("Отчет")
        For Each List In ThisWorkbook.Worksheets
            If List.Name <> "ИСПОЛЬЗОВАНИЕ ДАННЫХ" And List.Name <> "данные" And List.Name <> "Отчет" Then
                x = x + 1
                .Cells(x, 1) = List.Name
                .Cells(x, 2) = List.Range("C5")
            End If
        Next List
    End With
End Sub

Изменено: SuperCat - 20.07.2016 09:36:47

There is no knowledge that is not power

wowick Пользователь Сообщений: 972 Регистрация: 14.01.2014	#3 20.07.2016 09:12:24 Спасибо, работает как надо. Только Next надо на End If поменять Изменено: wowick - 20.07.2016 09:12:44 Если автоматизировать бардак, то получится автоматизированный бардак.