Как настроить автоматическое копирование данных на разные листы excel?

Question

Как настроить автоматическое копирование данных на разные листы excel?

sancho P Профи (656), закрыт 8 лет назад

Есть 6 аналогичных листов, отличающихся только заголовком.
Как настроить автоматическое копирование данных с первого листа на остальные?
Вводится в основном текст и в некоторых ячейках числовые данные
Таблица сложная, ячейки объединены неравномерно как по вертикали так и по горизонтали

Answer 1

"... ячейки объединены неравномерно..."
А вот это вы зря, батенька!
это объединение вам еще аукнется ...
фильтры не работают, формулы массива не работают, УФ работает криво, формулы скопировать нельзя, один столбик выделить невозможно ...
Что касаемо вашего вопроса:
Правая мышка по названию любого Листа - Выделить все Листы
Все созданные вами шедевры ( текст, формулы, форматирование, шрифт, цвет...) - автоматически продублируются на всех листах.

Answer 2

Полосатый жираф Алик Искусственный Интеллект (313088) 8 лет назад

А не проще сделать пять копий первого листа и заменить в них заголовки?

Всё равно же их вводить!

sancho PПрофи (656) 8 лет назад

нет, не проще, делаю бланк для максимально быстрого заполнения. Сейчас как раз просто переписываем, нужно ускорение

Полосатый жираф Алик Искусственный Интеллект (313088) Запиши макрос для создания пяти новых листов и копирования в них информации первого листа. И запускай его.

Answer 3

я бы сделал формулами. на втором листе типа -
=Лист1!A1
и так все ячейки. главное 2 лист, а потом скопировать еще на 3.
вариант. если разница только в заголовке, тогда проще заголовок менять. выбирать из списка.
excel-vba.ru/chto-umeet-excel/vypadayushhie-spiski/
Успехов!

Answer 4

sub copyr ()
list=Array("b", "c", "d", "e", "f") ' за место букв имя листов, сколько хотите листов
for i=0 to UBound(list)
cells.Copy Destination:=Worksheets(list(i)).Range("a1") 'копи из активного листа
next i
end sub