Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Копирование всего содержимого на другие листы - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Копирование всего содержимого на другие листы (Макросы/Sub)
Копирование всего содержимого на другие листы
vdekameron Дата: Среда, 13.01.2016, 11:13 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 171
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Добрый день. Подскажите пожалуйста, как макросом скопировать все(абсолютно все что есть на листе и в таком же виде) данные одного листа на все, что есть в книге.
В идеале конечно вместе с данными исходного листа копировать еще и исходный код листа, но если насчет первого я думаю что можно, то насчет второго сомневаюсь есть ли такая возможность.
В любом случае заранее спасибо! У меня таких листов будет 50 и каждый раз если что-то меняется делать "копировать"-"вставить".....сами понимаете.
К сообщению приложен файл: 4101345.xlsm(29Kb)
 
Ответить
СообщениеДобрый день. Подскажите пожалуйста, как макросом скопировать все(абсолютно все что есть на листе и в таком же виде) данные одного листа на все, что есть в книге.
В идеале конечно вместе с данными исходного листа копировать еще и исходный код листа, но если насчет первого я думаю что можно, то насчет второго сомневаюсь есть ли такая возможность.
В любом случае заранее спасибо! У меня таких листов будет 50 и каждый раз если что-то меняется делать "копировать"-"вставить".....сами понимаете.

Автор - vdekameron
Дата добавления - 13.01.2016 в 11:13
SLAVICK Дата: Среда, 13.01.2016, 11:40 | Сообщение № 2
Группа: Модераторы
Ранг: Старожил
Сообщений: 2003
Репутация: 673 ±
Замечаний: 0% ±

2007,2010,2013,2016
Самое простое скопировать лист и переназвать его:
[vba]
Код
Sub d()
For i = 2 To Sheets.Count
    Sheets(1).Copy After:=Sheets(i)
    s = Sheets(i).Name
    Sheets(i).Delete
    Sheets(i).Name = s
Next
End Sub
[/vba]
К сообщению приложен файл: 5689374.xlsm(37Kb)


Иногда все проще чем кажется с первого взгляда.
 
Ответить
СообщениеСамое простое скопировать лист и переназвать его:
[vba]
Код
Sub d()
For i = 2 To Sheets.Count
    Sheets(1).Copy After:=Sheets(i)
    s = Sheets(i).Name
    Sheets(i).Delete
    Sheets(i).Name = s
Next
End Sub
[/vba]

Автор - SLAVICK
Дата добавления - 13.01.2016 в 11:40
vdekameron Дата: Среда, 13.01.2016, 12:45 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 171
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
SLAVICK,
Спасибо! помогло!
 
Ответить
СообщениеSLAVICK,
Спасибо! помогло!

Автор - vdekameron
Дата добавления - 13.01.2016 в 12:45
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Копирование всего содержимого на другие листы (Макросы/Sub)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2017 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!