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

Вход

Регистрация

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

 

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

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

Excel 2010
Добрый день. Подскажите пожалуйста, как макросом скопировать все(абсолютно все что есть на листе и в таком же виде) данные одного листа на все, что есть в книге.
В идеале конечно вместе с данными исходного листа копировать еще и исходный код листа, но если насчет первого я думаю что можно, то насчет второго сомневаюсь есть ли такая возможность.
В любом случае заранее спасибо! У меня таких листов будет 50 и каждый раз если что-то меняется делать "копировать"-"вставить".....сами понимаете.
К сообщению приложен файл: 4101345.xlsm (28.9 Kb)
 
Ответить
СообщениеДобрый день. Подскажите пожалуйста, как макросом скопировать все(абсолютно все что есть на листе и в таком же виде) данные одного листа на все, что есть в книге.
В идеале конечно вместе с данными исходного листа копировать еще и исходный код листа, но если насчет первого я думаю что можно, то насчет второго сомневаюсь есть ли такая возможность.
В любом случае заранее спасибо! У меня таких листов будет 50 и каждый раз если что-то меняется делать "копировать"-"вставить".....сами понимаете.
Автор - vdekameron
Дата добавления - 13.01.2016 в 11:13
SLAVICK Дата: Среда, 13.01.2016, 11:40 | Сообщение № 2
Группа: Модераторы
Ранг: Старожил
Сообщений: 2290
Репутация: 766 ±
Замечаний: 0% ±

2019
Самое простое скопировать лист и переназвать его:
[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 (37.1 Kb)

Иногда все проще чем кажется с первого взгляда.
 
Ответить
СообщениеСамое простое скопировать лист и переназвать его:
[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
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 177
Репутация: 0 ±
Замечаний: 0% ±

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

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