Как поменять в большом диапазоне ссылку

Старая форма входа

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

Как поменять в большом диапазоне ссылку (Формулы)

rafsit61

Дата: Четверг, 28.11.2013, 19:31 | Сообщение № 1

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

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

Сообщений: 114

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

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

Excel 360

Доброго дня всем! Подскажите, пожалуйста, как быстро поменять в формулах расположенных в диапозоне В2-Н859
относительную ссылку на абсолютную. Перебирать каждую ячейку и в нём менять ссылку с помощью F4 можно тронутся
Возможно ли, это сделать попроще проселектировав нужную область.

К сообщению приложен файл: 7124365.xlsx (89.4 Kb)

Ответить

SkyPro

Дата: Четверг, 28.11.2013, 19:33 | Сообщение № 2

Группа: Друзья

Ранг: Старожил

Сообщений: 1206

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

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

2010

~~Выделить диапазон - нажать ctrl+H - в "найти" поставить $, а в заменить ничего не вводить - нажать "заменить все".~~
Перепутал грешное с праведным

Видел подобный функционал в надстройке "PLEX".
Вобщем без макроса не обойтись (как мне кажется).

skypro1111@gmail.com

Сообщение отредактировал SkyPro - Четверг, 28.11.2013, 19:36

Ответить

MacSieM

Дата: Четверг, 28.11.2013, 19:42 | Сообщение № 3

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

Ранг: Участник

Сообщений: 84

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

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

Excel 2010

rafsit61, что именно Вы хотите получить? Если ссылка будет на какую-то одну ячейку, то в первой пишите ее абсолютное значение и протягивайте до конца. Но я полагаю, что Вы что-то другое хотите.

Ответить

_Boroda_

Дата: Четверг, 28.11.2013, 19:42 | Сообщение № 4

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

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

Сообщений: 16790

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Мышь в В2, далее жмем Контрл Стрелка вниз, затем Контрл Н (латинское), в "Найти" пишем С, в "Заменить на" пишем $C$, жмем "Заменить все".
И так по каждому из 7-и столбцов

По подсказке SergeyKorotun, добавляю - конечно Контрл Шифт Стрелка вниз (а не Контрл Стрелка)

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

Ответить

rafsit61

Дата: Четверг, 28.11.2013, 19:44 | Сообщение № 5

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

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

Сообщений: 114

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

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

Excel 360

_Boroda_, Огромное спасибо , буду делать.

Сообщение отредактировал rafsit61 - Четверг, 28.11.2013, 19:44

Ответить

SkyPro

Дата: Четверг, 28.11.2013, 19:44 | Сообщение № 6

Группа: Друзья

Ранг: Старожил

Сообщений: 1206

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

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

2010

[vba]

Код

Sub convertF()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
     Dim rCell As Range
         For Each rCell In Selection
             rCell.Value = Application.ConvertFormula(Formula:=rCell.Formula, _
             FromReferenceStyle:=xlA1, ToReferenceStyle:=xlA1, ToAbsolute:=xlAbsolute)
         Next
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub

[/vba]
Выделяете диапазон и запускаете макрос.