Объединение данных в Excel

[Fezdipekla]

Здравствуйте, у меня такая проблема:
есть файл, в котором 24 листа, мне необходимо все данные с этих 24 листов объеденить на одном общем листе, структура таблиц на всех листах одинаковая.
Пожалуйста помогите...

[BobBarker]

Можно воспользоваться сводной таблицей

[oster_j]

День добрый, а если без сводной таблицы, как можно объединить страницы в одну страницу?
Собственно есть где то 100 страниц,каждая следующая страница продолжение предыдующей,структура одинаковая.

[Dophin]

да ваще элементарно)
1. скопировать руками
2. написать макрос
3. выложить сюда пример чтобы макрос написали для Вас

[oster_j]

Сообщение от Dophin

да ваще элементарно)
1. скопировать руками
2. написать макрос
3. выложить сюда пример чтобы макрос написали для Вас

Копировать руками постоянно напряжно.
подмогите с макросом.

[IgorGO]

обьединяйте...
Fezdipekla, нет примера - нет точного макроса, зато можно переделать существующий.
oster_j, добавте в проект модуль, скопируйте в него этот макрос и выполните 1 раз.

Sub UnionSheets()
  rw = 13
  Do
    rw = rw + 2
  Loop Until Sheets(2).Cells(rw, 1) = ""
  For sh = 3 To Sheets.Count
    With Sheets(sh)
       For r = 3 To 1000 Step 2
         If .Cells(r, 1) = "" Then Exit For
       Next
      .Range(.Cells(r - 1, 1), .Cells(3, 63)).Copy Destination:=Sheets(2).Cells(rw, 1)
      rw = rw + r - 3
      Application.StatusBar = "Добавлен лист: " & .Name
    End With
  Next
  Application.StatusBar = False
End Sub

[oster_j]

IgorGO, весьма благодарен. работает. спасибо!

[kain151]

Не хватает знаний, чтобы переделать пример IgorGO.

Помогите, пожалуйста, с макросом.

Нужно просто все листы объединить в один: к первому листу вниз "подклеить" второй (начиная с самых верхних клеток), затем после второго третий и т.д. (только без учета количества колонок, т.к. в одном файле могут быть листы с двумя колонками, в другом листы с 4-я).

Заранее спасибо!

p.s. не получается прикрепить файл с примером, как это сделать?

[The_Prist]

Можете здесь посмотреть. Вдруг поможет чем....

[kain151]

Сообщение от The_Prist

Можете здесь посмотреть. Вдруг поможет чем....

За ссылку, спасибо.
Но, к сожалению, та же проблема - не знаю как переделать код ((((

Кто разбирается, подскажите, пожалуйста, что и как должно быть.


P.S. Спасибо, разобрался )