Добрый день, существует макрос, объеденяющий все листы в одну книгу и удаляющий первую строку из каждого листа. Но проблема, в то, что его нужно переделать, чтоб удалял первые 15 строк, во всех листах. Т.к., первые 15 строк, это шапка на каждом листе. [vba]
Код
Sub СобратьДанныеСоВсехЛистов() Dim ws As Worksheet Worksheets.Add before:=Sheets(1) For Each ws In Worksheets If Not ws Is ActiveSheet And Not ws.Name Like "прогр*" Then ws.UsedRange.Offset(1).Copy [a1048576].End(xlUp)(2) End If Next Rows(1).Delete
End Sub
[/vba]
Добрый день, существует макрос, объеденяющий все листы в одну книгу и удаляющий первую строку из каждого листа. Но проблема, в то, что его нужно переделать, чтоб удалял первые 15 строк, во всех листах. Т.к., первые 15 строк, это шапка на каждом листе. [vba]
Код
Sub СобратьДанныеСоВсехЛистов() Dim ws As Worksheet Worksheets.Add before:=Sheets(1) For Each ws In Worksheets If Not ws Is ActiveSheet And Not ws.Name Like "прогр*" Then ws.UsedRange.Offset(1).Copy [a1048576].End(xlUp)(2) End If Next Rows(1).Delete
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
