Страницы: 1
RSS
Удаление символов перед и после определенных цифр, Нужна помощь!
 
Даны наборы символов и нужно удалить лишь те скобки, которые закрывают (01) и (21), все остальные скобки, которые есть в коде, должны остаться
(01)04670216880022(21)5Bc)p0ZeBG8qO
(01)04670216880022(21)5KSj*q(N+JJuV
(01)04670216880015(21)5C>smxpNdfOlb
(01)04670216880015(21)5nW=J8KSvWFOf
(01)04670216880015(21)5qh1iGjH7OfSY
(01)04670216880015(21)5RZVZgAM7LII+
(01)04670216880015(21)5T!yht%CNJ8M;
 
Код
=ПОДСТАВИТЬ(ПОДСТАВИТЬ(A1;"(01)";"01");"(21)";"21")
Алексей М.
 
Shalopay,
Код
=ПОДСТАВИТЬ(ПОДСТАВИТЬ(A1;"(01)";"01");"(21)";"21")
Кто ясно мыслит, тот ясно излагает.
 
Ctrl+H найти (01) заменить 01 заменить все, потом так же с (21)
 
АlехМ, спасибо большое!!!!
 
Maximich, Спасибо!!!
 
bigorq, спасибо!!!
 
Цитата
нужно удалить лишь те скобки, которые закрывают (01) и (21)
UDF
Код
Function iResult(cell$)
 With CreateObject("VBScript.RegExp")
     .Global = True
     .Pattern = "\((01|21)\)"
   If .test(cell) Then
     iResult = .Replace(cell, "$1")
   Else
     iResult = cell
   End If
 End With
End Function
Страницы: 1
Наверх