replace работает, replacement нет
Ввожу код
Range(Cells(5, 2), Cells(10, 2)).Replace What:=";12", Replacement:=";2"
в ячейках ничего не меняет, но если нажать ctrl+H видно что в графе "Найти" стоит ;12, а во второй пусто.
В чем может быть причина не подскажете.
Range(Cells(5, 2), Cells(10, 2)).Replace What:=";12", Replacement:=";2"
в ячейках ничего не меняет, но если нажать ctrl+H видно что в графе "Найти" стоит ;12, а во второй пусто.
В чем может быть причина не подскажете.
Одной из причин может быть наличие "мусора", оставшегося от предыдущего поиска и/или замены, т.е., если в указанном диапазоне "B5:B10" будет наличествовать, например, 5;12;17 и будет установлена опция Ячейка целиком, то замены, разумеется, не произойдёт.
Бороться же с таким безобразием - можно явно указав все необходимые параметры, т.е.
или
Бороться же с таким безобразием - можно явно указав все необходимые параметры, т.е.
Код:
Range(Cells(5, 2), Cells(10, 2)).Replace What:=";12", Replacement:=";2", LookAt:=xlPart
Код:
Range("B5:B10").Replace ";12", ";2", xlPart
Ещё один вариант, при котором Ваш вариант не будет работать, это попытка замены части текста в формуле, например =ЕСЛИ(ЕПУСТО(A1);12;0)
В этом случае - нужно просто вспомнить, что формулы хранятся в локально-независимом формате, где разделитель аргументов, всегда запятая (,) то бишь :
В этом случае - нужно просто вспомнить, что формулы хранятся в локально-независимом формате, где разделитель аргументов, всегда запятая (,) то бишь :
Код:
Range(Cells(5, 2), Cells(10, 2)).Replace What:=",12", Replacement:=",2", LookAt:=xlPart
Код:
Range("B5:B10").Replace ",12", ",2", xlPart
Второй вариант то что нужно.
Спасибо Вам большое!!!
Спасибо Вам большое!!!