Допустим я хочу поменять часть текста в ячейках
А как теперь к этому a(n) применить макрос и вернуть все в зад но с изменениями? Допустим если замена
, то это же как то надо записать все назад ( причем у меня в замене еще пара циклов, по этому думал что проще сослаться на макрос)
Хотя бы верной ли логикой я иду? Как понимаю теперь нужно назад что-то типа сцепить LBound(a) to [UBound(a) - 1] + a(n)?
Код |
---|
Sub test() Dim element As Range, a As Variant 'цикл по ячейкам For Each element In Selection a = element.Value 'значение конкретной ячейки a = VBA.Split(a, ", ") ' отделяем на части по критерию ", " n = UBound(a) 'a(n) это последнее после запятой с пробелом , т.е. если у нас было "мама, папа, брат", то получим a(n)=Брат msgBox a(n) Next End Sub |
А как теперь к этому a(n) применить макрос и вернуть все в зад но с изменениями? Допустим если замена
Код |
---|
a(n) = Replace(a(n), одно, другое) |
, то это же как то надо записать все назад ( причем у меня в замене еще пара циклов, по этому думал что проще сослаться на макрос)
Хотя бы верной ли логикой я иду? Как понимаю теперь нужно назад что-то типа сцепить LBound(a) to [UBound(a) - 1] + a(n)?