Добрый день! Помогите отредактировать макрос, чтоб не было заголовков. У меня в одной книге много листов, есть макрос объединяющий все листы в один, после объединения вся информация с листов встаёт в один список, но есть минус, так же и шапки с этих листов добавляются в список, как этого избежать. К стати формат файла csv. Ecxel 2010. Пример прилагается
Добрый день! Помогите отредактировать макрос, чтоб не было заголовков. У меня в одной книге много листов, есть макрос объединяющий все листы в один, после объединения вся информация с листов встаёт в один список, но есть минус, так же и шапки с этих листов добавляются в список, как этого избежать. К стати формат файла csv. Ecxel 2010. Пример прилагаетсяelita86
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.Copy Cells(Cells.SpecialCells(xlCellTypeLastCell).Row + 1, 1) End If Next Rows(1).Delete End Sub
[/vba]
Сам макрос [vba]
Code
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.Copy Cells(Cells.SpecialCells(xlCellTypeLastCell).Row + 1, 1) End If Next Rows(1).Delete End Sub
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]
[vba]
Code
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
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
