Excel VBA Replace

[NatalieRedFox_333]

Hi!
Решила использовать макросы вместо формул..
вот нашла примеры, мне надо пробелы поменять на нижнее подчеркивание....

вот несколько формул.... какую лучше использовать?

раз -

Sub Test()
    ActiveCell = Replace(ActiveCell, " ", "_")
End Sub

два -

Function sss(text)
    sss = Replace(text, " ", "_")
End Function

три -

Function sss(txt, s1, s2)
    sss = Replace(txt, s1, s2)
End Function

четыре -

Function sss(txt, Optional s1 = " ", Optional s2 = "_")
    sss = Replace(txt, s1, s2)
End Function

Ps мне надо получить аналог моей формулы и заменить опрделенные пробелы в определенных местах в колонке - другими словами...
выбираем столбик (все ячейки) запускаем макро и получаем результат )))

=ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(L2;" is My";" is_My");" Of ";" of_"); тут еще значения...

 

[NatalieRedFox_333]

зачем вообще они столько формул написали....?

Функция подставить, но на VBA

Ни кто не подскажет какая формула на VBA, аналог формулы ПОДСТАВИТЬ.

www.planetaexcel.ru

одной правильной недостаточно...?

 

[NatalieRedFox_333]

так... первый работает только для активной ячейки ))) не годиться... надо сразу и все...

 

[NatalieRedFox_333]

что то не работают у меня эти макросы....

 

[_MBK_]

Они все вырваны из контекста конкретного кода, вне которого бессмысленны

 

[Gad]

надо сразу и все

а так можно вообще?

 

[NatalieRedFox_333]

а так можно вообще?

а что нельзя....?

 

[NatalieRedFox_333]

Они все вырваны из контекста конкретного кода, вне которого бессмысленны

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

 

[_MBK_]

 

[NatalieRedFox_333]

Посмотреть вложение 146176

ты прав как всегда....

 

[Gad]

а что нельзя....?

Ну не знаю Если таки ограничиться диапазоном ячеек в которых что-то есть, то так можно

Sub ReplaceSpace()
    Dim c As Range
    For Each c In ActiveSheet.UsedRange
    c = Replace(c, " ", "_")
    Next
End Sub

 

[NatalieRedFox_333]

Ну не знаю Если таки ограничиться диапазоном ячеек в которых что-то есть, то так можно

Sub ReplaceSpace()
    Dim c As Range
    For Each c In ActiveSheet.UsedRange
    c = Replace(c, " ", "_")
    Next
End Sub

Супер...!!!

 

[NatalieRedFox_333]

Ну не знаю Если таки ограничиться диапазоном ячеек в которых что-то есть, то так можно

Sub ReplaceSpace()
    Dim c As Range
    For Each c In ActiveSheet.UsedRange
    c = Replace(c, " ", "_")
    Next
End Sub

а как добавить второй параметр...., третий..., пятнадцатый ))))
ну допустим надо еще заменить "no","yes" ?

 

[NatalieRedFox_333]

типа этого - ;"I Like";"I_Like");"I Run";"I_Run")
так?

Sub ReplaceSpace()
    Dim c As Range
    For Each c In ActiveSheet.UsedRange
    c = Replace(Replace(Replace(c, " ", "_");"I Like";"I_Like");"I Run";"I_Run")
    Next
End Sub

 

[NatalieRedFox_333]

типа этого - ;"I Like";"I_Like");"I Run";"I_Run")
так?

Sub ReplaceSpace()
    Dim c As Range
    For Each c In ActiveSheet.UsedRange
    c = Replace(Replace(Replace(c, " ", "_");"I Like";"I_Like");"I Run";"I_Run")
    Next
End Sub

не вроде не так....))))

 

[Gad]

ну допустим надо еще заменить "no","yes" ?

Sub ReplaceAnything()
    Dim c As Range
    For Each c In ActiveSheet.UsedRange
    c = Replace(c, " ", "_")
    c = Replace(c, "yes", "no")
    Next
End Sub

 

[NatalieRedFox_333]

Sub ReplaceAnything()
    Dim c As Range
    For Each c In ActiveSheet.UsedRange
    c = Replace(c, " ", "_")
    c = Replace(c, "yes", "no")
    Next
End Sub

Просто Гениально....)))

 

[NatalieRedFox_333]

Gad, Скажи пожалуйста... я добавила 50 значений в макрос... что то он у меня стал долго думать... крестик трясется )))
так и должно быть?
а в самом Excel 100 строк...
а если оставить только одну строку в макросе
c = Replace(c, " ", "_")
то он моментально все проходит...))))

 

[NatalieRedFox_333]

вот...

 

[splxgf]

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

Sub ReplaceAnything()
Dim t As Range
For Each t In ActiveSheet.UsedRange
c = t
с = Replace(с, " ", "_")
c = Replace(c, "yes", "no")
t = c
Next
End Sub

или
c = t.formula
...
t.formula = c