Как указать несколько диаппазонов для сводной таблицы?

[economist]

Вставляете Лист21, на него - формулы вида  =Лист1.А1,
с 1000-й строки =Лист2.А1 итд, протягиваете. По нему же строите Сводную таблицу (Лист22) и его и отправляете боссу. Никаких Макросов - все обновляется само. Пустые строки Лист21 - Сводная игнорит.

[OOKapitan]

что мешает написать макрос который скопирует данные с 20 листов на 21 ?

Отсутствие знаний по написанию макросов в OpenOffice. Для меня это - тёмный лес. Я умею более-менее писать макросы только в эксель и немного менее в виду редкого использования в Word. Помоги мне написать макрос, пожалуйста.

[OOKapitan]

Вставляете Лист21, на него - формулы вида  =Лист1.А1,

С макрорекордером - это идея.

[bigor]

Вот пример

Код Выделить Развернуть

Sub Main
oDoc=ThisComponent
oSheetSv=oDoc.Sheets(10)

For i=0 To 9
oSheet = oDoc.Sheets(i)

oRangeAddress = oSheet.getCellRangeByName("A1:D5").getRangeAddress()
oCellAddress  = oSheetSv.getCellByPosition(0,i*10).getCellAddress()
oSheet.copyRange(oCellAddress, oRangeAddress)
next
End Sub

Копирует содержимое "A1:D5" первых 10 листов на 11-ый лист
данные с 1 -го листа в ячейки  A1:D10
данные с 2 -го листа в ячейки  A11:D20
итп

[OOKapitan]

Вот пример

Большое спасибо.
1) Почему i от 0 до 9, если листов 10?
2) Где в макросе указано, на какой лист он будет выводить данные (на 11)?

[bigor]

1. от 0 до 9 будет 10. В ООО нумерация с 0 начинается.
2. oSheetSv=oDoc.Sheets(10)

[OOKapitan]

Большущее спасибо.

[OOKapitan]

    Здравствуйте.
   Наконец-то смог потестить макрос. К сожалению он копирует данные только с первого листа. Как быть? Помогите, пожалуйста. Прошу прощения. Макрос работает нормально.