Замена части формул в excel

 

Приветствую.
Подскажите, как для выбранного диапазона во всех формулах заменить Q1 на Q1 2013?

Спасибо!
 

ikki

Пользователь

Сообщений: 9709
Регистрация: 22.12.2012

Ctrl+H

фрилансер Excel, VBA — контакты в профиле
«Совершенствоваться не обязательно. Выживание — дело добровольное.» Э.Деминг

 

Спасибо!

Изменено: Alexander Kuznetsov — 06.02.2013 00:08:40
 

Nic70y

Пользователь

Сообщений: 3289
Регистрация: 22.12.2012

Win7 MSO 2013

#4

05.02.2013 17:21:43

Цитата
Alexander Kuznetsov пишет:
В формулах

Конечно!
 

V

Пользователь

Сообщений: 5018
Регистрация: 22.12.2012

Alexander Kuznetsov а почему нет. попробуйте.
 

Разобрался. Никогда не задумывался, что и в формулах можно
 

alexhorse

Пользователь

Сообщений: 43
Регистрация: 11.02.2013

Здравствуйте! Эксель 2010. Не дает заменить название таблицы в формуле на название другой таблицы с помощью «Найти и заменить». Как еще можно поменять?

Пробовал даже просто скопировать текст формулы в ячейку, чтоб без «=» изменить в тексте нужное имя таблицы на другое — не получается. Подскажите как это сделать? Можно ли задать Ctrl+H только для одной ячейки, на которой стоишь?

Изменено: alexhorse — 11.02.2013 01:41:39
 

Юрий М

Модератор

Сообщений: 60580
Регистрация: 14.09.2012

Контакты см. в профиле

#8

11.02.2013 01:55:25

Цитата
alexhorse пишет:
Можно ли задать Ctrl+H только для одной ячейки, на которой стоишь?

Ячейка, «на которой стоишь», называется активной ячейкой )) Если по Сtrl+H нажать на кнопку «Заменить», а не «Заменить все», то замена будет произведена только в активной ячейке.
 

Nic70y

Пользователь

Сообщений: 3289
Регистрация: 22.12.2012

Win7 MSO 2013

С одной ячейкой: Заменить, но не заменить все!
На счет названия таблицы не пробовал, но думаю, что нет разницы.
Выложите часть своего файла — проверим.
 

alexhorse

Пользователь

Сообщений: 43
Регистрация: 11.02.2013

#10

11.02.2013 02:24:37

Всем спасибо. Разобрался — проблема была в формуле =) а не в «Найти и выбрать»
Источник

Замена формул вычисляемой величиной

При замене формул их значениями Excel окончательно удаляет их. Если вы случайно заменяете формулу значением и хотите ее восстановить, нажмите кнопку Отменить Кнопка "Отменить" сразу после ввода или вжатия значения.

  1. Вы можете выбрать ячейку или диапазон ячеек, которые содержат формулы.

    Если формула является формула массива, выделите диапазон ячеек, содержащих формулу массива.

    Как выбрать диапазон, содержащий формулу массива

    1. Щелкните ячейку в формуле массива.

    2. На вкладке Главная в группе Редактирование нажмите кнопку Найти и выделить, а затем выберите команду Перейти.

    3. Нажмите кнопку Дополнительный.

    4. Щелкните Текущий массив.

  2. Нажмите кнопку Копировать Изображение кнопки.

  3. Нажмите кнопку В Изображение кнопки .

  4. Щелкните стрелку рядом с кнопкой Параметры в Изображение кнопкии выберите только значения.

В следующем примере показана формула в ячейке D2, которая умножает ячейки A2, B2 и скидку из ячейки C2 для расчета суммы счета для продажи. Чтобы скопировать фактическое значение вместо формулы из ячейки на другой книгу или на другой, можно преобразовать формулу в ячейку в ее значение, выстроив следующее:

  1. Нажмите F2, чтобы изменить ячейку.

  2. Нажмите F9, а затем ввод.

В строке формул показана формула.

После преобразования ячейки из формулы в значение в области формул отображается значение 1932,322. Обратите внимание, что 1932,322 — фактическое вычисляемого значения, а 1932,32 — значение, отображаемого в ячейке в валютном формате.

В строке формул показано значение.

Совет: При редактировании ячейки с формулой можно нажать F9, чтобы окончательно заменить формулу ее вычисляемой величиной.

Замена части формулы значением, полученным при ее вычислении

Иногда требуется заменить только часть формулы ее вычисляемой величиной. Например, вы хотите заблокировать значение, которое используется в качестве аванса по кредиту на автомобиль. Этот первый взнос вычислялся на основе процента от годового дохода компании. В настоящее время сумма дохода не изменится, поэтому вы хотите заблокировать первый взнос в формуле, которая вычисляет платеж на основе различных сумм ссуды.

При замене части формулы ее значением ее часть восстановить невозможно.

  1. Щелкните ячейку с формулой.

  2. В строка формул Изображение кнопкивыберите часть формулы, которую нужно заменить ее вычисляемой величиной. При выборе части формулы, которую вы хотите заменить, убедитесь, что вы включили все операнд. Например, при выборе функции необходимо выбрать имя функции целиком, открываемую скобки, аргументы и закрываюю скобки.

  3. Чтобы вычислить выбранную часть, нажмите F9.

  4. Чтобы заменить выбранную часть формулы ее вычисляемой величиной, нажмите ввод.

В Excel в Интернете результаты уже отображаются в ячейке книги, а формула отображается только в Изображение кнопки .

Источник

Автоматичиская замена части формулы

Автор Евгений1986, 26.01.2012, 08:48

« назад — далее »

Есть итоговая таблица на листе январь. В эту таблицу собираются данные с других листов (Затраты_январь, Выручка_январь). Для следующего месяца копируются листы января, получаются листы январь (2), Затраты_январь (2), Выручка_январь (2). В названии листов январь заменяется на февраль. Получаются листы — февраль, Затраты_февраль, Выручка_февраль.

Проблема: Как автоматизировать замену части формулы в итоговой таблице февраль? пример: в формуле =Затраты_январь!C9, «январь» заменить на «февраль» и получить формулу — =Затраты_февраль!C9. Если кто знает, пожалуйста, напишите как это сделать быстро!

Как вариант решения проблемы:
на листе «февраль» — комбинация клавиш Ctrl+H (открыть окно Найти и заменить),
затем — как на рисунке (для разворачивания нижней части окна используйте кнопку «Параметры»),
Заменить все.

Действует! Спасибо, Виктория!

Посмотрите формулу в красной ячейке. Сама ссылается на нужный лист нужного месяца в зависимости от названия листа, в котором формула находится

Скажи мне, кудесник, любимец ба’гов…

Яндекс-деньги: 41001632713405
Webmoney: R289877159277; Z102172301748; E177867141995

Большое спасибо за предложенное решение! Однако, хотелось бы до конца понять как формула работает. Если перенести формулу из выделенной красной ячейки в ячейку C9, то формула работает, а вот если перенести на ячейку C12 и нижестояшие, то не работате, даже если заменить b4 на c9 и так далее.  _Boroda_, пожалуйста, покажите какие формулы должны быть в ячейках, ссылающихся на лист затраты_январь, чтобы в них были значения с листа затраты_февраль.

Посмотрите в таком виде. Вроде понятнее.
Переименуйте первый лист в январь, потом обратно в февраль

Скажи мне, кудесник, любимец ба’гов…

Яндекс-деньги: 41001632713405
Webmoney: R289877159277; Z102172301748; E177867141995

  • Профессиональные приемы работы в Microsoft Excel
  • ►
    Обмен опытом
  • ►
    Microsoft Excel
  • ►
    Автоматичиская замена части формулы

Источник

Надо изменить часть формул в 257460 ячейках

Nordic1962

 Дата: Вторник, 04.09.2012, 15:36 |
Сообщение № 1

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

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

Сообщений: 7


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

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


Добрый всем день!

Часто приходилось менять «оптом» часть формул в ячейках книги, трудностей никогда не было. Но вот сегодня в одной книге (делал не сам, но править пришлось, увы, мне sad ) как всегда, выделяю диапазон ячеек в количестве 257460, затем даю изменить, что, на что, щелкаю кнопку «Заменить все» — и облом! Начинает лезть в другие книги и приходится жать кнопку отмена бессчетное количество раз (не жму, ессно, вырубаю через диспетчер). К примеру если в ячейке формула » «=’W:СТАТИСТИКА201261-РДАРХИВВВОД с 1[2Ц_1206.xls]АДМ’!$J$78 «, то начинает лезть в книгу 2Ц_1206.xls и бегать там ПО ВСЕМ ЯЧЕйКАМ !!! dry
Пытался отключать все что только нашел по изменениям связей, и в настройках параметров, и в макросах, и в измененях связей — дохлый номер. Может, кто уже сталкивался с подобной проблемой?

Сообщение отредактировал Nordic1962 — Вторник, 04.09.2012, 15:59
 

Ответить

Serge_007

 Дата: Вторник, 04.09.2012, 15:40 |
Сообщение № 2

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

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

Сообщений: 15894


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

Замечаний:
±


Excel 2016

Перед тем как начать изменения замените все «=» на букву «ё», например.
После того как всё сделаете — поменяйте её обратно на «=»

Другой вариант — откройте книгу источник перед изменениями формул

ЮMoney:41001419691823 | WMR:126292472390

 

Ответить

Nordic1962

 Дата: Вторник, 04.09.2012, 15:58 |
Сообщение № 3

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

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

Сообщений: 7


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

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


Мысль отличная. Но….увы, при обратной замене ё на = происходит та же пакость… лезет в книги забитые в формулы ячеек.
 

Ответить

KuklP

 Дата: Вторник, 04.09.2012, 16:00 |
Сообщение № 4

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

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

Сообщений: 2369


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

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


2003-2010

Еще бы автопересчет отключить.:-)

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

Сообщение отредактировал KuklP — Вторник, 04.09.2012, 16:00
 

Ответить

Nordic1962

 Дата: Вторник, 04.09.2012, 16:08 |
Сообщение № 5

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

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

Сообщений: 7


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

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


Отключил. Та же история… (((
 

Ответить

KuklP

 Дата: Вторник, 04.09.2012, 16:40 |
Сообщение № 6

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

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

Сообщений: 2369


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

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


2003-2010

Выложите пример, попробуем поколдовать. 30 строк будет достаточно.

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

 

Ответить

Nordic1962

 Дата: Вторник, 04.09.2012, 16:53 |
Сообщение № 7

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

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

Сообщений: 7


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

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


Вот кусок таблицы из 30 строк. Можно попробовать хотя бы заменить W: на D:

К сообщению приложен файл:

8927577.xls
(57.5 Kb)
 

Ответить

_Boroda_

 Дата: Вторник, 04.09.2012, 17:12 |
Сообщение № 8

Группа: Модераторы

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

Сообщений: 16618


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

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


2003; 2007; 2010; 2013 RUS

Когда выскакивает такое окошко с выбором, это означает, что по указанному пути не существует такого файла или такого листа или такой ячейки (про ячейку например, в файле xls нет ячейки A100000). Хорошенько проверьте путь.

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

 

Ответить

Nordic1962

 Дата: Вторник, 04.09.2012, 17:16 |
Сообщение № 9

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

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

Сообщений: 7


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

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


Естественно, такого пути не существует. Поэтому и пытаюсь изменить путь в формулах с диска W: на диск D:. Но, похоже, проще присвоить диску другую букву, чем ковырять в формулах… (((
 

Ответить

KuklP

 Дата: Вторник, 04.09.2012, 17:18 |
Сообщение № 10

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

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

Сообщений: 2369


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

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


2003-2010

[vba]

Code

Public Sub www()
       Dim a, i&, j&
       a = [a1].CurrentRegion.FormulaR1C1
       For i = 1 To UBound(a)
           For j = 1 To UBound(a, 2)
               If Left(a(i, j), 1) = «=» Then _
                  a(i, j) = Replace(a(i, j), «W:», «D:», , 1, vbTextCompare)
           Next
       Next
       ActiveWorkbook.UpdateLinks = xlUpdateLinksNever
       Application.DisplayAlerts = 0
       Application.Calculation = xlCalculationManual
       [a1].CurrentRegion.FormulaR1C1 = a
       ThisWorkbook.Save
       ActiveWorkbook.UpdateLinks = xlUpdateLinksUserSetting’ или xlUpdateLinksAlways
       Application.DisplayAlerts = -1
       Application.Calculation = xlCalculationAutomatic
End Sub

[/vba]

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

Сообщение отредактировал KuklP — Вторник, 04.09.2012, 17:22
 

Ответить

_Boroda_

 Дата: Вторник, 04.09.2012, 17:42 |
Сообщение № 11

Группа: Модераторы

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

Сообщений: 16618


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

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


2003; 2007; 2010; 2013 RUS

Quote (Nordic1962)

Естественно, такого пути не существует. Поэтому и пытаюсь изменить путь в формулах с диска W: на диск D:. Но, похоже, проще присвоить диску другую букву, чем ковырять в формулах… (((

Нет, я писал про то, что не существует такого пути на диске D, а не на W.

Если пошагово — мы заменяем букву диска в первой ячейке, компутер пытается вычислить формулу и дать результат, не находит по указанному пути такого файла и предлагает нам выбрать файл из проводника. И так для каждой формулы.

Для проверки — откройте нужный Вам файл с диска D, в любом другом напишите = и ткните мышой в этот только что открытый файл, например, в ячейку А1. Потом закройте тот файл, который открывали и посмотрите на формулу-ссылку. Она примет вид =’D:СТАТИСТИКА2012…
А теперь сверьте полученное и ту формулу, которая получилась бы у Вас при замене в нужном файле (в котором Вы с самого начала хотели поменять ссылки) W на D.
Уверяю Вас, что в промежутке от двоеточия до восклицательного знака эти две ссылки не совпадут. Проверим?

А прекрасный макрос, который Сергей написал в посте выше — он заменит Вам W на D, как Вы и хотели, но формулы считаться не будут.

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

 

Ответить

KuklP

 Дата: Вторник, 04.09.2012, 17:53 |
Сообщение № 12

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

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

Сообщений: 2369


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

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


2003-2010

Quote (_Boroda_)

А прекрасный макрос, который Сергей написал в посте выше

+5! Ты прав, Саш:-)

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

 

Ответить

Nordic1962

 Дата: Вторник, 04.09.2012, 17:55 |
Сообщение № 13

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

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

Сообщений: 7


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

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


На вырезке попробовал — работает! :-)

Запущу на всем диапазоне ячеек. Спасибо!

Всем отозвавшимся — удачи и всех благ!
 

Ответить

Nordic1962

 Дата: Вторник, 04.09.2012, 17:56 |
Сообщение № 14

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

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

Сообщений: 7


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

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


А формулы — доковыряем! biggrin
 

Ответить
Источник

0 / 0 / 0

Регистрация: 23.09.2011

Сообщений: 61

1

03.09.2012, 00:55. Показов 28829. Ответов 15

Студворк — интернет-сервис помощи студентам

Доброго времени суток !
Вот столкнулся с такой пробелмой, ищу помощи..

На листе Excel 2003 имеет несколько тысяч формул типа

Код

='C: Budget- 2013[Co-Financing17.xls]1.1'!$AR$10
='C: Budget- 2013[Co-Financing17.xls]1.1'!$AА$10
='C: Budget- 2013[Co-Financing17.xls]1.1'!$AB$10
='C: Budget- 2013[Co-Financing17.xls]1.1'!$AC$105
='C: Budget- 2013[Co-Financing17.xls]1.1'!$AC$109

итд.

Нужно через автозамену (заменить все) заменить последнюю цифру во всех формулах, которые заканчиваются на 10 — в даном примере на 14 например, однако через автозамену это сделать не получается, так как $105, $109 также меняется на $145, $149, так как присутствует $10. Как сделать, чтобы замена не происходила в тех числах, которые состоят «визуально» в т.ч. и из заменяемого числа.

Благодарю и низко кланяюсь..



0

Alex77755

11482 / 3773 / 677

Регистрация: 13.02.2009

Сообщений: 11,145

03.09.2012, 08:58

2

Несколько тысяч ссылок!!!
Не стал бы такого делать никогда
заменить можно макросом

Visual Basic 
1
2
3
4
5

Sub AVTOZAM()
    For Each c In UsedRange.Cells
        If Right(c.Formula, 2) = 10 Then c.Formula = Replace(c.Formula, "10", "14")
    Next
End Sub



2

Апострофф

Заблокирован

03.09.2012, 10:08

3

Alex77755, 3-я строка

Visual Basic 
1

If Right(c.Formula, 2) = 10 Then c.Formula = Left$(c.Formula, Len(c.Formula) - 2) & 14

иначе для подобных случаев с Replace результат м.б. непредсказуем

=’C: Budget- 2010[Co-Financing10.xls]1.1′!$AR$10

Результат
=’C: Budget- 2014[Co-Financing14.xls]1.1′!$AR$14



2

11482 / 3773 / 677

Регистрация: 13.02.2009

Сообщений: 11,145

03.09.2012, 10:10

4

Согласен



1

0 / 0 / 0

Регистрация: 23.09.2011

Сообщений: 61

03.09.2012, 13:00

 [ТС]

5

Здорово..А можно было бы кнопку сделать де указываем число, которое надо заменить и число на которое надо сделать замену ?

Добавлено через 32 минуты

Цитата
Сообщение от Pandora12
Посмотреть сообщение

Здорово..А можно было бы кнопку сделать де указываем число, которое надо заменить и число на которое надо сделать замену ?

P.S.не запускается макрос, требует объект «object required»



0

Казанский

15136 / 6410 / 1730

Регистрация: 24.09.2011

Сообщений: 9,999

03.09.2012, 13:11

6
Visual Basic 
1

For Each c In ActiveSheet.UsedRange.Cells

Добавлено через 5 минут
Можно оптимизировать:

Visual Basic 
1
2
3
4
5
6
7

Sub AVTOZAM()
    Dim c As Object, s$
    For Each c In Cells.SpecialCells(xlCellTypeFormulas)
        s = c.Formula
        If Right$(s, 2) = "10" Then Mid(s, Len(s) - 1) = "14": c.Formula = s
    Next
End Sub



1

Alex77755

11482 / 3773 / 677

Регистрация: 13.02.2009

Сообщений: 11,145

03.09.2012, 13:24

7
Visual Basic 
1
2
3
4
5
6
7
8
9

Sub AVTOZAM()
 
s = InputBox("Введите через запятую что на что менять", "", "10,14")
    For Each c In ActiveSheet.UsedRange.Cells
        If Right(c.Formula, Len(Trim(Split(s, ",")(0)))) = Trim(Split(s, ",")(0)) Then
            c.Formula = Left$(c.Formula, Len(c.Formula) - Len(Trim(Split(s, ",")(0)))) & Trim(Split(s, ",")(1))
        End If
    Next
End Sub

Добавлено через 4 минуты
Или так:

Visual Basic 
1
2
3
4
5
6
7
8
9
10
11
12
13

Sub AVTOZAM()
Dim K, N
 
s = InputBox("Введите через запятую что на что менять", "", "10,14")
If s = "" Then Exit Sub
K = Trim(Split(s, ",")(0))
N = Trim(Split(s, ",")(1))
    For Each c In ActiveSheet.UsedRange.Cells
        If Right(c.Formula, Len(K)) = K Then
            c.Formula = Left$(c.Formula, Len(c.Formula) - Len(K)) & N
        End If
    Next
End Sub



0

15136 / 6410 / 1730

Регистрация: 24.09.2011

Сообщений: 9,999

03.09.2012, 14:32

8

Все-таки важно пробегать циклом только по ячейкам с формулами, иначе константы тоже будут заменяться, например 910 на 914.



1

Alex77755

11482 / 3773 / 677

Регистрация: 13.02.2009

Сообщений: 11,145

03.09.2012, 14:43

9

Казанский,
Справедливо.
Может тогда так?

Visual Basic 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

Sub AVTOZAM()
Dim K, N
 
s = InputBox("Введите через запятую что на что менять", "", "10,14")
If s = "" Then Exit Sub
K = Trim(Split(s, ",")(0))
N = Trim(Split(s, ",")(1))
    For Each C In ActiveSheet.UsedRange.Cells
    If C.Text <> C.Formula Then
        If Right(C.Formula, Len(K)) = K Then
            C.Formula = Left$(C.Formula, Len(C.Formula) - Len(K)) & N
        End If
    End If
    Next
End Sub



0

Казанский

15136 / 6410 / 1730

Регистрация: 24.09.2011

Сообщений: 9,999

03.09.2012, 14:51

10

Проще

Visual Basic 
1

If C.HasFormula Then

Но я же приводил выше код для цикла по ячейкам с формулами — меньше работы:

Visual Basic 
1

For Each c In Cells.SpecialCells(xlCellTypeFormulas)



2

0 / 0 / 0

Регистрация: 23.09.2011

Сообщений: 61

03.09.2012, 15:37

 [ТС]

11

Не работает кнопка в моем Excel 2003. Выдает ошибку типа нарушения в » Advanced Find and Replace» Able bits.com и предлагает купить эту программку и инсталлировать ее… Как этот скрипт переписать в просто в макрос.. без кнопки тогда ? Действительно, как написал товрищ, скрипт меняет в том числе и то, что менять НЕ требуется, как раз, как в примере, который он привел.. И еще на один момент обратил внимание..если надо заменить ОДНОЗНАЧНОЕ число например 9 на 13,то замена не производится .. Скрипт начинает считать и довольно быстро завершается, но ошибку не выдает, может что-то и меняет (сразу не определишь -большой массив), но полноценной замены не производится..во всех тех местах, где это требуется..



0

Alex77755

11482 / 3773 / 677

Регистрация: 13.02.2009

Сообщений: 11,145

03.09.2012, 15:53

12

Проверял в своём 2003.

как написал товрищ, скрипт меняет в том числе и то, что менять НЕ требуется

Проверяет и меняет только последние символы в количестве равном количесву символов в первом числе на второе число. Меняет только в формулах. Переделать в макрос? Легко!

Visual Basic 
1
2
3
4
5
6
7
8
9
10
11
12
13

Sub Макрос()
Dim K, N
 
s = InputBox("Введите через запятую что на что менять", "", "10,14")
If s = "" Then Exit Sub
K = Trim(Split(s, ",")(0))
N = Trim(Split(s, ",")(1))
    For Each C In ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas)
        If Right(C.Formula, Len(K)) = K Then
            C.Formula = Left$(C.Formula, Len(C.Formula) - Len(K)) & N
        End If
    Next
End Sub



1

Dmitrii

2617 / 547 / 109

Регистрация: 21.03.2012

Сообщений: 1,051

03.09.2012, 16:36

13

Регулярные выражения должны сработать быстрее, чем строковые функции. Пример:

Visual Basic 
1
2
3
4
5
6

Set objRegExp = CreateObject("VBScript.RegExp")
objRegExp.Pattern = "10$"
For Each c In Cells.SpecialCells(xlCellTypeFormulas)
    c.Formula = objRegExp.Replace(c.Formula, "14")
Next
Set objRegExp = Nothing



1

15136 / 6410 / 1730

Регистрация: 24.09.2011

Сообщений: 9,999

03.09.2012, 17:12

14

И что, если заменять нечего, все равно присваивать формулу? Тогда уж .Test допишите.



1

0 / 0 / 0

Регистрация: 23.09.2011

Сообщений: 61

03.09.2012, 18:23

 [ТС]

15

Рябята..вроде зработало..Щас еще поизучаю и наишу.. респект и уважуха..!!!!!!



0

2617 / 547 / 109

Регистрация: 21.03.2012

Сообщений: 1,051

03.09.2012, 22:48

16

Казанский, это лишь пример.



0
Источник

Like this post? Please share to your friends:
  • Замена фразы в excel
  • Замена формул макросом excel
  • Замена формул excel их результатом
  • Замена формата ячеек excel
  • Замена формата даты в excel