Как растянуть формулу на все листы

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Как растянуть формулу на все листы (Формулы/Formulas)

alexfin

Дата: Среда, 28.09.2022, 21:58 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

Репутация: 0 ±

Замечаний: 0% ±

Здравствуйте. Помогите бестолковому.
на листе СВОД данные в диапазоне B1:B80
есть восемьдесят листов с названием 1,2,3 и т.д.
нужно вставить формулу на все листы что бы на первом в ячейку а1 бралось значение B1 свода на втором листе с ячейки B2 и тд

Ответить

Serge_007

Дата: Среда, 28.09.2022, 22:50 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2750 ±

Замечаний: ±

Excel 2016

Код

=ДВССЫЛ(ПСТР(ЯЧЕЙКА("имяфайла";A1);ПОИСК("]";ЯЧЕЙКА("имяфайла";A1))+1;99)+1&"!B1")

ЮMoney:41001419691823 | WMR:126292472390

Ответить

bigorq

Дата: Среда, 28.09.2022, 22:51 | Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 205

Репутация: 47 ±

Замечаний: 0% ±

Нет

Здраствуйте
В LibreOffice выделяю все листы и в А1 всавляю формулу

Код

=INDEX($свод.$A$1:$A$6;SHEET())

в Excel не уверен, что есть Sheet()

Ответить

Serge_007

Дата: Среда, 28.09.2022, 22:54 | Сообщение № 4

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2750 ±

Замечаний: ±

Excel 2016

Цитата bigorq, 28.09.2022 в 22:51, в сообщении № 3 (

)

в Excel не уверен, что есть Sheet()

Появилась в релизе Офиса 2016

ЮMoney:41001419691823 | WMR:126292472390

Ответить

Gustav

Дата: Среда, 28.09.2022, 23:03 | Сообщение № 5

Группа: Админы

Ранг: Участник клуба

Сообщений: 2851

Репутация: 1195 ±

Замечаний: ±

начинал с Excel 4.0, видел 2.1

Можно еще такой вариант - так сказать, с прикосновением к программированию:
1. По Alt+F11 идём в Редактор Visual Basic
2. Там Ctrl+G для перехода в Окно отладки (Immediate)
3. Вставляем в это окно такую строку кода (копируем отсюда):
[vba]

Код

For i = 1 To 80: Sheets(CStr(i)).[A1] = "=СВОД!B" & i: Next

[/vba]
4. Находясь на этой строке, жмем Enter.

МОИ: Ник, Tip box: 41001663842605

Ответить

_Boroda_

Дата: Четверг, 29.09.2022, 09:33 | Сообщение № 6

Группа: Админы

Ранг: Местный житель

Сообщений: 16956

Репутация: 6631 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Топаем на ярлык листа 1. Держа Шифт, топаем на ярлык листа 80. В ячейку А1 вводим формулу

Код

=ИНДЕКС(СВОД!B:B;ПРАВБ(ПОДСТАВИТЬ(ЯЧЕЙКА("filename";A1);"]";" ");2))

Жмем на лист СВОД, чтобы разгруппировать листы

К сообщению приложен файл: _1.xlsm (10.5 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

alexfin

Дата: Четверг, 29.09.2022, 11:06 | Сообщение № 7

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

Репутация: 0 ±

Замечаний: 0% ±

спасибо огромное, все получилось

Ответить

Как растянуть формулу на все листы (Формулы/Formulas)

Страница 1 из 1
1