Перенести Eng текст (A-Z, a-z) в другую ячейку

Вход

Регистрация

Напомнить пароль

= Мир MS Excel/Перенести Eng текст (A-Z, a-z) в другую ячейку - Мир MS Excel

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Перенести Eng текст (A-Z, a-z) в другую ячейку (Макросы/Sub)

Перенести Eng текст (A-Z, a-z) в другую ячейку

Kiset

Дата: Вторник, 29.10.2019, 20:50 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 1

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

Нужно перенести весь текст включая цифры и символы {} [] () | / и т.п. после появления в тексте первого eng символа в соседнюю ячейку.
Помогите , пж.

К сообщению приложен файл: Help.xls (54.5 Kb)

Сообщение отредактировал Kiset - Вторник, 29.10.2019, 20:52

Ответить

Kuzmich

Дата: Вторник, 29.10.2019, 22:04 | Сообщение № 2

Группа: Проверенные

Ранг: Ветеран

Сообщений: 714

Репутация: 157 ±

Замечаний: 0% ±

Excel 2003

[vba]

Код

Sub Raznesti()
Dim i As Long
Dim iLastRow As Long
Columns("C:D").Insert
With CreateObject("VBScript.RegExp")
     .Global = True
     .IgnoreCase = True
     .Pattern = "[a-z]"
       iLastRow = Cells(Rows.Count, 1).End(xlUp).Row
     For i = 2 To iLastRow
      Cells(i, "C") = Left(Cells(i, "B"), .Execute(Cells(i, "B"))(0).FirstIndex)
      Cells(i, "D") = Mid(Cells(i, "B"), .Execute(Cells(i, "B"))(0).FirstIndex)
     Next
End With
End Sub

[/vba]

Ответить

Перенести Eng текст (A-Z, a-z) в другую ячейку (Макросы/Sub)

Страница 1 из 1
1