powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / excel Копирование формул в группу
5 сообщений из 5, страница 1 из 1
excel Копирование формул в группу
    #36372078
Vesna в лесу
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Условие: Есть файл, в котором много(40) листов

Задача:Скопировать формулу из ячейки А1 и вставить во все остальные листы в ячейки А1

Как сделать?

(Просто текст так проставить в группу получается, а формулу - нет)
...
Рейтинг: 0 / 0
excel Копирование формул в группу
    #36372101
f
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Нажать Shift, щелкнуть внизу по ярлыкам первого и сорокового листов, чтобы выделились все листы и теперь вводить формулу. Она вставится во все листы.
Не забыть потом щелкнуть правой кнопкой и дать команду "Разгруппировать".
...
Рейтинг: 0 / 0
excel Копирование формул в группу
    #36372124
Vesna в лесу
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Спасибо. Ошибка наша была в том, что не с того листа начинали группу набирать.
...
Рейтинг: 0 / 0
excel Копирование формул в группу
    #36372141
Hugo121
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Макросом:
Код: plaintext
1.
2.
3.
4.
5.
6.
Sub tt()
For Each ws In ThisWorkbook.Worksheets
frml = Sheets( 1 ).Cells( 1 ,  1 ).Formula
If ws.Index <>  1  Then ws.Cells( 1 ,  1 ).Formula = frml
Next
End Sub
...
Рейтинг: 0 / 0
excel Копирование формул в группу
    #36375393
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
или так
Код: plaintext
1.
2.
3.
4.
5.
Sub test()
Sheets.Select
[a1].Activate
ActiveCell.Formula = Sheets( 1 ).Cells( 1 ,  1 ).Formula
Sheets( 1 ).Select
End Sub
...
Рейтинг: 0 / 0
5 сообщений из 5, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / excel Копирование формул в группу
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]