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

Вход

Регистрация

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

 

= Мир MS Excel/Поиск определенных символов и вывод их в колонку - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Поиск определенных символов и вывод их в колонку (Макросы/Sub)
Поиск определенных символов и вывод их в колонку
rtv206 Дата: Суббота, 21.08.2021, 19:06 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 120
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Доброго времени суток, форумчане!
Прошу Вашей помощи в решении проблемы:
Нужно макросом осуществить поиск в ячейках столбца А определенных символов "1Я" или "3К" и если они есть то вывести в столбец В.
Формула ЛЕВСИМВ и ПРАВСИМВ не катит так как длина слова и место "1Я" или "3К" может меняться
К сообщению приложен файл: 3211453.xlsx(8.0 Kb)
 
Ответить
СообщениеДоброго времени суток, форумчане!
Прошу Вашей помощи в решении проблемы:
Нужно макросом осуществить поиск в ячейках столбца А определенных символов "1Я" или "3К" и если они есть то вывести в столбец В.
Формула ЛЕВСИМВ и ПРАВСИМВ не катит так как длина слова и место "1Я" или "3К" может меняться

Автор - rtv206
Дата добавления - 21.08.2021 в 19:06
Nic70y Дата: Суббота, 21.08.2021, 19:19 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 7034
Репутация: 1627 ±
Замечаний: 0% ±

Excel 2010
ЛЕВСИМВ и ПРАВСИМВ не катит
конечно, для этого есть
Код
=ПОИСК()


ЮMoney(Яндекс Деньги) 41001841029809
 
Ответить
Сообщение
ЛЕВСИМВ и ПРАВСИМВ не катит
конечно, для этого есть
Код
=ПОИСК()

Автор - Nic70y
Дата добавления - 21.08.2021 в 19:19
Kuzmich Дата: Суббота, 21.08.2021, 19:46 | Сообщение № 3
Группа: Проверенные
Ранг: Ветеран
Сообщений: 615
Репутация: 131 ±
Замечаний: 0% ±

Excel 2003
Цитата
макросом осуществить поиск в ячейках столбца А определенных символов "1Я" или "3К"

[vba]
Код
Sub iLetterRed()
Dim i As Long
Dim j As Integer
Dim iLastRow As Long
Dim re As Object
Dim objMatches As Object
Dim objMatch As Object
  iLastRow = Cells(Rows.Count, "B").End(xlUp).Row
    Range("A1:A" & iLastRow).Font.ColorIndex = 0
    Range("B1:B" & iLastRow).ClearContents
      Set re = CreateObject("VBScript.RegExp")
        re.Global = True
        re.Pattern = "1Я|3К"
  For i = 1 To iLastRow
     Set objMatches = re.Execute(Cells(i, "A"))
       If objMatches.Count <> 0 Then
          For j = 0 To objMatches.Count - 1
             Set objMatch = objMatches.Item(j)
               Cells(i, "B") = Cells(i, "B") & objMatch & " "
             With Cells(i, "A").Characters(Start:=objMatch.FirstIndex + 1, Length:=objMatch.Length).Font
                .ColorIndex = 3
             End With
          Next
       End If
    Next
      Set re = Nothing
End Sub
[/vba]
Найденные символы подсвечиваются красным цветом в столбце А
 
Ответить
Сообщение
Цитата
макросом осуществить поиск в ячейках столбца А определенных символов "1Я" или "3К"

[vba]
Код
Sub iLetterRed()
Dim i As Long
Dim j As Integer
Dim iLastRow As Long
Dim re As Object
Dim objMatches As Object
Dim objMatch As Object
  iLastRow = Cells(Rows.Count, "B").End(xlUp).Row
    Range("A1:A" & iLastRow).Font.ColorIndex = 0
    Range("B1:B" & iLastRow).ClearContents
      Set re = CreateObject("VBScript.RegExp")
        re.Global = True
        re.Pattern = "1Я|3К"
  For i = 1 To iLastRow
     Set objMatches = re.Execute(Cells(i, "A"))
       If objMatches.Count <> 0 Then
          For j = 0 To objMatches.Count - 1
             Set objMatch = objMatches.Item(j)
               Cells(i, "B") = Cells(i, "B") & objMatch & " "
             With Cells(i, "A").Characters(Start:=objMatch.FirstIndex + 1, Length:=objMatch.Length).Font
                .ColorIndex = 3
             End With
          Next
       End If
    Next
      Set re = Nothing
End Sub
[/vba]
Найденные символы подсвечиваются красным цветом в столбце А

Автор - Kuzmich
Дата добавления - 21.08.2021 в 19:46
rtv206 Дата: Воскресенье, 22.08.2021, 11:27 | Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 120
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Kuzmich, спасибо за подсказку
 
Ответить
СообщениеKuzmich, спасибо за подсказку

Автор - rtv206
Дата добавления - 22.08.2021 в 11:27
rtv206 Дата: Воскресенье, 22.08.2021, 11:28 | Сообщение № 5
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 120
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Nic70y, спасибо
 
Ответить
СообщениеNic70y, спасибо

Автор - rtv206
Дата добавления - 22.08.2021 в 11:28
rtv206 Дата: Пятница, 27.08.2021, 20:26 | Сообщение № 6
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 120
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Kuzmich, Макрос останавливается на первой строчке.
А необходимо что бы поиск осуществился до последней ячейке в столбце А
 
Ответить
СообщениеKuzmich, Макрос останавливается на первой строчке.
А необходимо что бы поиск осуществился до последней ячейке в столбце А

Автор - rtv206
Дата добавления - 27.08.2021 в 20:26
RAN Дата: Пятница, 27.08.2021, 21:02 | Сообщение № 7
Группа: Друзья
Ранг: Участник клуба
Сообщений: 5496
Репутация: 1100 ±
Замечаний: 0% ±

2010
Макрос останавливается на первой строчке.

Мы, конечно, просто рядом проходили, хвостиком махали, но позвольте полюбопытствовать, первая- это якая?


Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщение
Макрос останавливается на первой строчке.

Мы, конечно, просто рядом проходили, хвостиком махали, но позвольте полюбопытствовать, первая- это якая?

Автор - RAN
Дата добавления - 27.08.2021 в 21:02
rtv206 Дата: Суббота, 28.08.2021, 12:47 | Сообщение № 8
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 120
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
RAN, Сори за флуд.
Но в 2013 офисе макрос с Сообщения №3 для файла с сообщения №1 отработал только в строке 1.
А в 2010 отработал все строки
 
Ответить
СообщениеRAN, Сори за флуд.
Но в 2013 офисе макрос с Сообщения №3 для файла с сообщения №1 отработал только в строке 1.
А в 2010 отработал все строки

Автор - rtv206
Дата добавления - 28.08.2021 в 12:47
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Поиск определенных символов и вывод их в колонку (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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