Sub sborka2() Dim sht As Worksheet Dim i As Long, k As Long, j As Long If MsgBox("Сборка производится на первый лист, правильно?", vbYesNo + vbDefaultButton2) = 6 Then Sheets(1).Range("a1").CurrentRegion.Clear Sheets(2).Cells(1, 1).Resize(, 2).Copy Sheets(1).Cells(1, 1) For Each sht In ActiveWorkbook.Worksheets i_n = Worksheets(1).Cells(Rows.Count, 1).End(xlUp).Row If sht.Index <> 1 Then i = 1 Do i = i + 1 Loop While sht.Cells(i, 1) <> "ИТОГО" sht.Cells(2, 1).Resize(i - 1, 2).Copy Worksheets(1).Cells(i_n + 1, 1) End If Next sht End If End Sub
[/vba]
barina, типа того?:
[vba]
Код
Sub sborka2() Dim sht As Worksheet Dim i As Long, k As Long, j As Long If MsgBox("Сборка производится на первый лист, правильно?", vbYesNo + vbDefaultButton2) = 6 Then Sheets(1).Range("a1").CurrentRegion.Clear Sheets(2).Cells(1, 1).Resize(, 2).Copy Sheets(1).Cells(1, 1) For Each sht In ActiveWorkbook.Worksheets i_n = Worksheets(1).Cells(Rows.Count, 1).End(xlUp).Row If sht.Index <> 1 Then i = 1 Do i = i + 1 Loop While sht.Cells(i, 1) <> "ИТОГО" sht.Cells(2, 1).Resize(i - 1, 2).Copy Worksheets(1).Cells(i_n + 1, 1) End If Next sht End If End Sub
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
