помогите пожалуйста с макросом, который бы переносил данные со всех листов книги Excel на один лист
спасибо

пробуй камнемGuest1,
здесь посмотрите.

да, спасибо, вот здесь

/topic/436206&hl=excel%20%eb%e8%f1%f2

Вот здесь лучше ... никаких условностей, активизации листов и т д .... Просто данные всех листов книги помещаются на Новый лист.


s_ = Sheets.Count
Sheets.Add After:=Sheets(s_)
For i = 1 To s_
r_ = Sheets(i).Cells.SpecialCells(xlLastCell).Row
Sheets(i).Range("A1", Sheets(i).Cells.SpecialCells(xlLastCell)).Copy Sheets(s_ + 1).Range("a" & n_ + 1)
n_ = n_ + r_
Next

AndreTM Guest1,

Забыл присвоение n_ = 0 перед циклом

Ну и до кучи - имеются ситуации, когда данный код может отработать неверно... Но это возникает очень редко.

- Не забыл,- "забыла", и не забыла, если перед этим кодом нет ничего - работает и без n_ = 0 )

- и в каких это случаях код может отработать неверно ?

AndreTMГлубоко извиняюсь...

Желательно начальные значения всё-таки присваивать, а не надеяться, что в переменной окажется ноль.

Ну и неверная отработка - например, от случайно занесённого в стопицотую строку сотого столбца нулевого значения - что автоматом приведёт к расширению UsedRange по самое нехочу...

поняла ...
никто не запрещает доработать модуль, добавить обработчики и условия