Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

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

 

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

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Перенести 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
 
Ответить
СообщениеНужно перенести весь текст включая цифры и символы {} [] () | / и т.п. после появления в тексте первого eng символа в соседнюю ячейку.
Помогите , пж.

Автор - Kiset
Дата добавления - 29.10.2019 в 20:50
Kuzmich Дата: Вторник, 29.10.2019, 22:04 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 404
Репутация: 80 ±
Замечаний: 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]
 
Ответить
Сообщение[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]

Автор - Kuzmich
Дата добавления - 29.10.2019 в 22:04
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Перенести Eng текст (A-Z, a-z) в другую ячейку (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2019 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!