Выполнить код в цикле для всех листов Excel-таблицы в VBA

Posted by obzor under VBA

Есть файл, в нем много листов, и есть один итоговый куда тянется информация со всех этих листов. Я понял как сделать команду для каждого листа, но листов очень много и писать для каждого — нереально, как можно сделать цикл в данной ситуации?

IgorGO

это покатит для всех листов

Sub Banzay()
  Dim ws As Worksheet, rg As Range
  For Each ws In Worksheets
    If ws.Index < worksheets("Svod").Index Then
      Set rg = ws.Cells(Rows.Count, 1).End(xlUp)
      If rg.Row > 2 Then
        Range(rg, ws.Cells(2, 19)).Copy Worksheets("Svod").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
    End If
  Next
End Sub

Aleksandr H.

Игорь, а как распределяется .Index по листах? Не может Лист1.index>Svod.index?

IgorGO

индексы листов соотв. их позиции в списке ярлыков листов
самый левый ярлык имеет индекс 1, самый правый — имеет индекс равный worksheets.count (Саша, и все это элементарно проверяется эмпирическим путем)

тема на форуме

Похожие статьи

• Ping из VBA
• Progress bar или индикация выполнения макроса в Microsoft Office Excel
• Запретить ввод пробелов в ячейки Excel
• Массовое переименование label на форме
• Вынести часть текста из многострочной ячейки по условию (Excel)
• Копирование данных в Excel «отталкиваясь» от последней заполненой строки
• Вставка данных в Excel после последней заполненной ячейки
• Как в Excel посчитать количество дней, прошедших с заданного числа
• Копирование данных «отталкиваясь» от последней заполненной строки Excel
• Как вытащить URL адрес из формулы с гиперссылкой в Excel