Копирование листа

[DIKI]

В Excel можно скопировать одной командой группу листов:
Sheets(Array("Лист1", "Лист2", "Лист3")).Copy Before:=Sheets(1)
Можно ли наподобие этого скопировать одной командой один лист
т.е. что -то вроде
Sheets(Array("Лист1", "Лист1", "Лист1")).Copy Before:=Sheets(1)

[Vitaly1]

Можно:
1)Войди в меню сервис-макрос-начать запись.
2) Скопируй лист.
3)Войди в меню сервис-макрос-остановить запись.
4) Зайди в редактор VBA и посмотри код макроса "Ты все поймешь, ты все увидишь там!"

[DIKI]

Это все понятно я знаю как скопировать в цикле лист.
Dim i As Long
For i = 1 To 20
Sheets("Лист1").Copy After:=Sheets(2)
Next i

Меня интересовало можно ли его н-цать раз скопировать без использования
цикла что то вроде наподобие копирования группы листов
Потомучто копирование группы листов работает быстрее нежели копирование одного листа в цикле

[RayShade]

RTFM, однозначно.

Не догадаться что ли что Sheets ("Лист1").Copy сработает?

[Vitaly1]

Не догадаться что ли что Sheets ("Лист1").Copy сработает

Сам удивляюсь, почему не догадался

[Vitaly1]

Код: Выделить всё

Меня интересовало можно ли его н-цать раз скопировать без использования
цикла что то вроде наподобие копирования группы листов
Потомучто копирование группы листов работает быстрее нежели копирование одного листа в цикле

Конечно это будет выглядить не ахти как, но может быть двадцать раз повторить строчку копирования листа, тогда компьютер не будет тратить время на суммироване и проверку значения переменной цикла?

[Vitaly1]

Еще, кое что придумал, чтобы не повторять 20 раз:

стало 2
Sheets(Array("Лист1")).Copy Before:=Sheets(1)
стало 4
Sheets(Array("Лист1 (2)", "Лист1")).Copy Before:=Sheets(1)
стало 8
Sheets(Array("Лист1 (4)", "Лист1 (3)", "Лист1 (2)", "Лист1")).Copy Before:=Sheets(1)
стало 16
Sheets(Array("Лист1 (8)", "Лист1 (7)", "Лист1 (6)", "Лист1 (5)", "Лист1 (4)", "Лист1 (3)", "Лист1 (2)", "Лист1")).Copy Before:=Sheets(1)
стало 20
Sheets(Array("Лист1 (4)", "Лист1 (3)", "Лист1 (2)", "Лист1")).Copy Before:=Sheets(1)

п.с. неужели в цыкле значительно дольше?

[DIKI]

Я думал над таким вариантом если нечего не найду воспользуюсь им.
Я из Басика вызываю Excel и цикл из 20 листов выполняется 7 секунд
А копирование группы из 20 листов 1.4 секунды

[Calvin]

Здраствуйте уважаемые!!!
Вот решил не создавать новой темы и продолжить эту. Поиск тоже затянулся и не дал результата. Помогите.
Хочу скопировать лист в этой же книге сразу же присвоив ему имя (код в одну строку)???
К сожеления получается только так:

Код: Выделить всё

ActiveWorkbook.Sheets("лист1").Copy After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).name="мой_лист"


а хотелось бы как-нить так:

Код: Выделить всё

ActiveWorkbook.Sheets("лист1").Copy(After:=Sheets(Sheets.Count)).Name = "мой_лист"


[RayShade]

Боюсь что так не получится потому что Copy не возвращает в данном случае никакой объектной переменной.