Компьютеры, софт

Проблемы, железо, цены, Linux, Microsoft
who-am-i
Тема № 1817886
11 568
Подскажите кто знает,просмотрел интернет нигде не нашел ответа.
Есть файл .xls
Первый лист содержит данные таблицы и формулы.
Я выделяю лист и копирую на второй.
Лист2.
В файле 200 листов.
Нужно лист1 скопировать на все остальные листы, при этом чтоб названия, лист2,лист3,лист4 не поменялись.
Такое возможно?
***
Если нет и нужно вручную копировать.
Нижний левый угол где листы просматривать.
Нажимаю ctrl правую кнопку мыши, вижу книгу и все 200 листов.
Щелкаю на лист100, два раза-не переходит.
Щелкаю раз и нажимаю ок, -не переходит.
Офис 2016.
Может что подключать надо?
11 568
всем большое спасибо.
Нашел решение в виде настройки.
Есть энтузиасты, что упрощают жизнь новичкам.
Одна проблема, на выходе файл 90 мб.
Sub CopySheet()
Sheets(ActiveWorkbook.Worksheets(1).Name).Select
Cells.Select
Selection.Copy
Dim WS_Count As Integer
Dim I As Integer
WS_Count = ActiveWorkbook.Worksheets.Count
For I = 2 To WS_Count
Sheets(ActiveWorkbook.Worksheets(I).Name).Select
ActiveSheet.Paste
Next I
End Sub
Я ж тебе макрос написал, размер файла не увеличивается...
я проверил, с ним файл стал 120 мб.
и почему то не весь пронумеровал на 600 листе остановился из 900.выдал ошибку может памяти не хватает.
Макрос увеличивает страницу на 4Кб.
А вот результаты копирования зависят от размера исходной страницы)))
(Добавлено через 5 минут)
Проверил на 900 листов, нормально отработал. Но у меня первый лист маленький.
600 листов, 900 листов, куда столько?
проще вместо Икселя другую БД юзать
Мне надо для простых людей,чтоб понимали, открыли,внесли данные, сохранили и закрыли.
Я хочу разместить файл на облаке.
***
Другую это в смысле acess?
простые люди элементарно запутаются среди такого количества данных, либо перепутают.
Для занесения инфы проще формы использовать, на том же гугле они есть
Спасибо.
Если с макросами не знаком, проще все листы выделить и на первом листе данные перебить
На остальных твои формулы автоматом встанут без танцев с бубном
Sub CopySheet()
Sheets(ActiveWorkbook.Worksheets(1).Name).Select
Cells.Select
Selection.Copy
Dim WS_Count As Integer
Dim I As Integer
WS_Count = ActiveWorkbook.Worksheets.Count
For I = 2 To WS_Count
Sheets(ActiveWorkbook.Worksheets(I).Name).Select
ActiveSheet.Paste
Next I
End Sub
Наверное надо намакросить слегка. Но если этим не владеешь, то сложно будет. На форумах по макросам для экселя нужно поискать.
9 378
3 258
23 877
33 592
6 411
1