Редактирование макроса. Объединение всех листов в один.

Вход

Регистрация

Напомнить пароль

= Мир MS Excel/Редактирование макроса. Объединение всех листов в один. - Мир MS Excel

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Редактирование макроса. Объединение всех листов в один. (Формулы/Formulas)

Редактирование макроса. Объединение всех листов в один.

elita86

Дата: Среда, 08.10.2014, 08:29 | Сообщение № 1

Группа: Пользователи

Ранг: Участник

Сообщений: 71

Репутация: 0 ±

Замечаний: 0% ±

2010

Добрый день. Есть макрос, объединяющий все листы в один и удаляющий первую строчку на каждом листе. Мне нужно чтоб он удалял или не переносил, первые 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]
[moder]Для вопросов по макросам есть раздел ВОПРОСЫ ПО VBA. Перенесла тему туда. Этот дубль закрываю[/moder]

Ответить

Редактирование макроса. Объединение всех листов в один. (Формулы/Formulas)

Страница 1 из 1
1