ПОМОЩЬ!! Быстро если по возможности…, то Скопируйте рядки от множественных рабочий лист и затира в общий лист - Проблемы и решения вопросов, связанных с Software

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

Sub consoSheets ()
Тусклое sht как рабочий лист, shtDest как рабочий лист, lastRow как длиной
application.ScreenUpdating = ложно
Установленное shtDest = ActiveWorkbook.Sheets («предварительный подчет детализирует»)

Для каждого sht в ActiveWorkbook.Worksheets
    Если право, то (уравновешивание (sht. Имя), 8) = «предварительный подчет» и о (уравновешивание (sht. Имя), 7) <> «сводка» после этого
        
        lastRow = sht. Клетки (sht. Rows.Count, 2).End (xlUp). Рядок
        
        Если lastRow > 2 после этого
            sht.range («B3: V» & lastRow). Экземпляр
            lastRow = shtDest.Cells (sht. Rows.Count, 2).End (xlUp). Рядок
            shtDest.Cells (shtDest.Rows.Count, 1).End (xlUp). Затир смещения (1, 0) .PasteSpecial: =xlPasteValues
            shtDest.Cells (shtDest.Rows.Count, 1).End (xlUp). Затир смещения (1, 0) .PasteSpecial: =xlPasteFormats
        Закончитесь если
        
    Закончитесь если
Следующее sht
application.ScreenUpdating = True
Подводная лодка конца

Вопрос : ПОМОЩЬ!! Быстро если по возможности…, то Скопируйте рядки от множественных рабочий лист и затира в общий лист

Ответ : ПОМОЩЬ!! Быстро если по возможности…, то Скопируйте рядки от множественных рабочий лист и затира в общий лист