Например, у меня есть две ячейки
A1: =1/2 A2: /abc
Я хочу заменить / char во второй ячейке чем-то другим, не меняя первую ячейку, которая содержит формулу. Конечный результат должен быть таким
/
A1: = 1/2 A2: #abc
Заменить /a на #a, как показано ниже:
/a
#a
Вы можете использовать формулу для создания нового столбца: допустим, что значение находится в ячейке A1, вы можете поместить это в ячейку b1:
=IF(ISFORMULA(A1),A1,SUBSTITUTE(A1,"/",""))
Выберите ваши клетки и запустите:
Sub dural() Dim r As Range For Each r In Selection If Not r.HasFormula Then r = Replace(r.Text, "/", "#") End If Next r End Sub