Добрый вечер, прошу помочь!
Необходим макрос:
В пределах одной ячейки перемещать слова по очереди. При этом не затрагивая весь столбец, только выделенную ячейку. Файл прилагаю.
На просторах интернета нашла такой макрос, но он перемещает все слова в столбце А. К сожалению, я не знаю как его подкорректировать...
Необходим макрос:
В пределах одной ячейки перемещать слова по очереди. При этом не затрагивая весь столбец, только выделенную ячейку. Файл прилагаю.
На просторах интернета нашла такой макрос, но он перемещает все слова в столбце А. К сожалению, я не знаю как его подкорректировать...
Код |
---|
Sub Перестановка_всех_слов() With Range("A1", Cells(Rows.Count, "A").End(xlUp)) .Value = Evaluate(Replace("INDEX(RIGHT(~,LEN(~)-FIND("" "",~))&"" ""&LEFT(~,FIND("" "",~)-1),)", "~", .Address)) End With End Sub |