Добрый день, существует макрос, объеденяющий все листы в одну книгу и удаляющий первую строку из каждого листа. Но проблема, в то, что его нужно переделать, чтоб удалял первые 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