копирование значений ячеек с разных листов в один

[moose123]

Добрый день!

Подскажите пожалуйста как сделать следующее:

Есть файл в нем много листов с разными названиями
нужно в один лист копировать ячейки с других листов
но перетягиванием хрестика это не выходит - меняеться только буквы ячеек, а мне надо чтобы менялись названия листов.

вот как оно делает

='лист 1'!A1
='лист 1'!A2
='лист 1'!A3

а как надо

='лист 1'!A1
='лист 2'!A1
='лист 3'!A1

Подскажите пожалуйста!

[The_Prist]

=ДВССЫЛ("'Лист"&СТРОКА(A1)&"'!A1")

[moose123]

Спасибо за ответ, но не работает
У меня каждая страница по другому называеться

[The_Prist]

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

Спасибо за ответ, но не работает
У меня каждая страница по другому называеться

Так Вы же об этом скромно умолчали. И штатный экстрасенс форума приболел. А я сам догадаться не могу как у Вас там листы называются.

Приложите пример файла с листами - получите решение. Примерно так:
=ДВССЫЛ("'"&ИНДЕКС({"Первый";"Счет" ;"Квартал"};СТРОКА(A1))&"'!A1")

{"Первый";"Счет";"Квартал"} - список листов. Регистр ВАЖЕН.

[moose123]

Спасибо за ответ

Прикрепляю файл

вот код который мне также посоветовали но он не работает и выдает ошибку

Sub macro()
Dim i As Integer
Dim WB As Workbook
Set WB = ThisWorkbook ' or Workbooks("xxxx")
For i = 2 To Sheets.Count
    WB.Sheets(1).Cells(i, 1) = WB.Sheets(i).Cells("A2")
    WB.Sheets(1).Cells(i, 2) = WB.Sheets(i).Cells("B2")
Next
End Sub

[RAN.]

 WB.Sheets(1).Cells(i, 1) = WB.Sheets(i).Range("A2")

[moose123]

Большое спасибо RAN, все работает!
тема закрыта

[The_Prist]

Если через формулу:
=ЕСЛИОШИБКА(ДВССЫЛ("'"&ИНДЕКС({"Фет исов";"Фадеев";"Киселев"};СТРОКА(A1 ))&"'!A2");"")
=ЕСЛИОШИБКА(ДВССЫЛ("'"&ИНДЕКС({"Фет исов";"Фадеев";"Киселев"};СТРОКА(B1 ))&"'!B2");"")

[Key102938]

Добрый День, а не подскажете как доработать этот макрос что бы он работал ТОЛЬКО с ВЫДЕЛЕННЫМИ ЛИСТАМИ?

Спасибо, буду очень благодарен.