Здравствуйте, Профи Эксэль!!!
Прошу помочь в изменение кода. Код удаляет текст в ячейке который находиться между пробелами текст текст текст а нужно чтоб удалял текст с краев то есть текст между пробелами должен остаться.
пример: Иванов Иван Иванович = Иван
а он делает: Иванов Иван Иванович = Иванов Иванович
Спасибо за ранее
Прошу помочь в изменение кода. Код удаляет текст в ячейке который находиться между пробелами текст текст текст а нужно чтоб удалял текст с краев то есть текст между пробелами должен остаться.
пример: Иванов Иван Иванович = Иван
а он делает: Иванов Иван Иванович = Иванов Иванович
Код |
---|
Dim c As Objectt Sub Korekt() With CreateObject("VBScript.RegExp") .Pattern = "\ .+\ " For Each c In Range("B4:B9") c.Value = .Replace(c.Value, "") Next End With End Sub |
Спасибо за ранее