{quote}{login=Казанский}{date=23.09.2010 01:11}{thema=Вдогонку к теме о замене "ПО" на "PO" и звездочку в конце, автор mukovnin}{post}Пока делал решение, тема исчезла :( Ее адрес был http://www.planetaexcel.ru/forum.php?thread_id=19427
Решение в приложенном файле.{/post}{/quote}
Спасибо! Это именно то, что нужно! Спасибо огроное! А тему действительно, кто-то убрал... :(
Доброго времени суток. Подскажите, пожалуйста: есть макрос:
Sub Макрос1() ' ' Макрос1 Макрос ' SAP ' With Columns("B") 'область поиска Set r = .Find(What:="ПО", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False) If r Is Nothing Then Exit Sub s = r.Address Do r = Replace(r, "ПО", "PO", , , vbTextCompare) & "*" Set r = .FindNext® Loop Until r Is Nothing End With End Sub Sub Макрос2() ' ' Макрос2 Макрос ' 1C '
' With Columns("B") 'область поиска Set r = .Find(What:="PO", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False) If r Is Nothing Then Exit Sub s = r.Address Do If Right(r, 1) = "*" Then r = Left(r, Len® - 1) r = Replace(r, "PO", "ПО", , , vbTextCompare) Set r = .FindNext® Loop Until r Is Nothing End With End Sub
Помогите, пожалуйста, как дописать чтоб менялись и ПО на PO, и ЙО на YO, и ОП на OP (и обратно)