Excel vba как найти символ

Sub FindSymbol()
Dim aData(), aSpl
Dim lRw As Long, i As Long, k As Long, j As Long
    With Worksheets("sheet1") ' лист с исходными данными'
        lRw = .Cells(.Rows.Count, 1).End(xlUp).Row 'последняя строка с данными в столбце А'
        aData = .Range("A1:A" & lRw).Value ' тексты заносим в массив'
    End With

    ' определяем (с запасом) размерность массива результата'
    ReDim aRes(1 To lRw * 5, 1 To 1) ' 5 - макс к-во фрагментов в текстах'

    For i = 2 To lRw ' цикл по текстам, начиная со стоки 2'
        aSpl = Split(aData(i, 1), "#")  ' расщепляем на фрагменты'

        For j = 0 To UBound(aSpl)
            k = k + 1: aRes(k, 1) = aSpl(j)  ' записываем фрагменты в массив результата'
        Next j
    Next i

    With Worksheets("sheet1") ' лист для выгрузки'
        .Columns(3).ClearContents ' чистим столбец С'
        .Range("C2").Resize(k, 1).Value = aRes ' выгружаем результат в столбец С'
    End With

    MsgBox "OK", 64, "" ' радуемся :)'
End Sub

Для выгрузки в исходный диапазон вместо последнего блока With/End With записать строку

Worksheets("sheet1").Range("A2").Resize(k, 1).Value = aRes ' выгружаем результат в столбец A'

Можно формулой.

• Для одной ячейки, результат по строкам:

  =СЖПРОБЕЛЫ(ПСТР(ПОДСТАВИТЬ(«#»&$A$2;»#»;ПОВТОР(» «;99));СТРОКА(A1)*99;99))

• Для диапазона ячеек, результат по столбцам:

  =СЖПРОБЕЛЫ(ПСТР(ПОДСТАВИТЬ(«#»&$A2;»#»;ПОВТОР(» «;99));СТОЛБЕЦ(A1)*99;99))

Хотя для разнесения по столбцам можно проще — применить инструмент

Данные-Текст_по_столбцам-С_разделителем

• Для диапазона ячеек, результат по строкам.

В доп. столбце находим количество фрагментов для подсказки основной формуле: в первой строке диапазона — 1, ниже формула

=ДЛСТР(A2)-ДЛСТР(ПОДСТАВИТЬ(A2;"#";))+1+B2

Результат:

=СЖПРОБЕЛЫ(ПСТР(ПОДСТАВИТЬ("#"&ИНДЕКС($A$2:$A$20;ПОИСКПОЗ(СТРОКА(A1);$B$2:$B$20));"#";ПОВТОР(" ";99));(СТРОКА(A1)-ИНДЕКС($B$2:$B$20;ПОИСКПОЗ(СТРОКА(A1);$B$2:$B$20))+1)*99;99))

Функция VBA InStr является одной из наиболее часто используемых функций в VBA. Он используется для нахождения текста внутри строки и действительно отлично справляется с работой.

Тем не менее, она часто используется, чтобы помочь извлечь часть строки, и эту задачу она выполняет плохо.

Если вы обнаружили, что извлечение текста в VBA является болезненным процессом, тогда читайте дальше. Эта статья покажет вам более простой и лучший способ, используя три реальных примера!

Краткое руководство к статье

В следующей таблице приведено краткое руководство к тому, что рассматривается в этой статье.

Краткая справка

Чтобы узнать больше об элементах, упомянутых в статье, перейдите по следующим ссылкам:

• Если вы хотите узнать больше о функциях InStr или InStrRev, пожалуйста, прочитайте Поиск в строке.
• Если вы хотите узнать больше о функциях Mid, Left или Right, посмотрите раздел Извлечение части строки.
• Для получения дополнительной информации о функции Split проверьте Строка в массив, используя Split.
• Оператор Like включен в Сравнение строк с шаблоном

Я использую Debug.Print в моих примерах. Он печатает значения в Immediate Window, которое вы можете просмотреть, нажав Ctrl + G (или выберите View-> Immediate Window)

Введение

В этой статье я собираюсь показать вам лучший способ извлечения символов из строки, чем использование функции VBA InStr с Left, Right или Mid.

Эта статья разбита следующим образом:

• Раздел 1: Как извлечь из строк фиксированного размера.
• Раздел 2: Как извлечь из строк переменного размера.
• Раздел 3: Как извлечь из строки переменного размера, используя функцию Split.
• Разделы с 4 по 6: некоторые примеры из реальной жизни.

Когда VBA InStr, Left, Right и Mid полезны

Если вы хотите проверить, содержит ли строка значение, InStr подходит для этой работы. Если вы хотите сделать простое извлечение, то отлично подойдут Left, Right и Mid.

Использование InStr для проверки, содержит ли строка текст

В следующем примере мы проверяем, содержит ли ФИО «Петрович». Если возвращаемое значение InStr больше нуля, то строка содержит значение, которое мы проверяем.

' Проверьте, содержит ли строка Петрович
    If InStr("Иван Петрович Сидоров", "Петрович") > 0 Then
        Debug.Print "Найдено"
    End If

Извлечение с Left, Right и Mid

Функция Left используется для получения символов слева от строки.
Функция Right используется для получения символов справа от строки.
Функция Mid используется для середины строки. Она такая же, как
Left, за исключением того, что вы даете ему стартовую позицию.

Sub IzvlechTekst()

    Dim s As String: s = "ABCD-7789.WXYZ"

    Debug.Print Left(s, 2) ' Печатает AB
    Debug.Print Left(s, 4) ' Печатает ABCD

    Debug.Print Right(s, 2) ' Печатает YZ
    Debug.Print Right(s, 4) ' Печатает WXYZ

    Debug.Print Mid(s, 1, 2) ' Печатает AB
    Debug.Print Mid(s, 6, 4) ' Печатает 7789

End Sub

Эти три функции работают нормально, если требуемый текст всегда одинакового размера и в одном и том же месте. Для других сценариев они требуют использования InStr, чтобы найти определенную позицию в строке. Это усложняет их использование.

Используйте Left, Right или Mid, когда символы всегда будут в одной и той же позиции.

Работа со строками различной длины

Многие из строк, с которыми вы имеет дело, разной длины. Простой пример — когда у вас есть дело со списком имен. Длина строки и требуемая часть (например, имя) могут каждый раз отличаться. Например:

Brooke Hilt
Pamela Jurado
Zack Kinzel
Eddy Wormley
Kaitlyn Rainer
Jacque Trickett
Kandra Stanbery
Margo Hoppes
Berenice Meier
Garrett Hyre

(Если вам нужен случайный список имен, попробуйте этот генератор случайных имен)

Использование функции VBA InStr с Left

В следующем примере мы собираемся получить имя из строки. В этой строке первое имя — это имя перед первым пробелом.

Мы используем функцию VBA InStr, чтобы получить позицию первого пробела. Мы хотим получить все символы до пробела. Мы вычитаем одну из позиции, так как это дает нам позицию последней буквы имени.

Sub PoluchitImya()

    Dim s As String, lPosition As Long

    s = "John Henry Smith"
    ' Печатает John
    lPosition = InStr(s, " ") - 1
    Debug.Print Left(s, lPosition)

    s = "Lorraine Huggard"
    ' Печатает Lorraine
    lPosition = InStr(s, " ") - 1
    Debug.Print Left(s, lPosition)

End Sub

Давайте посмотрим на первый пример в приведенном выше коде. Первый пробел находится в позиции 5. Мы вычтем 1, что дает нам позицию 4. Это позиция последней буквы John, т.е.

Затем мы даем 4 функции Left, и она возвращает первые четыре символа, например, «John»

Мы можем выполнить ту же задачу в одной строке, передав возвращаемое значение из InStr в функцию Left.

 Dim s As String
    s = "John Henry Smith"

    ' Печатает John
    Debug.Print Left(s, InStr(s, " ") - 1)

Использование функции VBA InStr с Right

В этом примере мы получим последнее слово в строке, то есть Smith. Мы можем использовать функцию InStrRev. Это то же самое, что InStr, за исключением того, что поиск выполняется с конца строки.

Важно отметить, что InStrRev дает нам позицию с начала строки. Поэтому нам нужно использовать его немного иначе, чем мы использовали InStr и Left.

Sub PoluchitFamiliyu()

    Dim s As String: s = "John,Henry,Smith"
    Dim Position As Long, Length As Long

    Position = InStrRev(s, ",")
    Length = Len(s)

    ' Печатает Smith
    Debug.Print Right(s, Length - Position)

    ' Альтернативный метод. Печатает Smith - делает в одну строку
    Debug.Print Right(s, Len(s) - InStrRev(s, ","))

End Sub

Как работает приведенный выше пример:

• Мы получаем позицию последнего пробела, используя InStrRev: 11
• Мы получаем длину строки: 16.
• Вычитаем позицию из длины: 16-11 = 5
• Мы даем 5 функции Right и возвращаем Smith

Использование функции VBA InStr с Mid

В следующем примере мы получим «Henry» из строки. Слово, которое мы ищем, находится между первым и вторым пробелом.

Мы будем использовать функцию Mid здесь.

Sub PoluchitVtoroeImya()

    Dim s As String: s = "John Henry Smith"

    Dim firstChar As Long, secondChar As Long
    Dim count As Long

    ' Найти пробел плюс 1. Результат 6
    firstChar = InStr(s, " ") + 1
    ' Найти 2-й пробел. Результат 11
    secondChar = InStr(firstChar, s, " ")
    ' Получить число символов. Результат 5
    count = secondChar - firstChar

    ' Печатает Henry
    Debug.Print Mid(s, firstChar, count)

End Sub

Как видите, это сложно сделать и требует немного усилий, чтобы выяснить. Нам нужно найти первое место. Тогда нам нужно найти второе место. Затем мы должны вычесть одно из другого, чтобы дать нам количество символов, которые нужно взять.

Если у вас есть строка с большим количеством слов, то это может быть очень сложно. К счастью для нас, гораздо проще было извлечь символы из строки. Это называется функцией Split.

Функция Split

Мы можем использовать функцию Split для выполнения приведенных выше примеров. Функция Split разбивает строку на массив. Тогда мы можем легко получить доступ к каждому элементу.

Давайте попробуем те же три примера еще раз, и на этот раз мы будем использовать Split.

  Dim s As String: s = "John Henry Smith"

    Debug.Print Split(s, " ")(0) ' John
    Debug.Print Split(s, " ")(1) ' Henry
    Debug.Print Split(s, " ")(2) ' Smith

Ого! Какая разница с использованием Split. Как это работает:

1. Функция Split разбивает строку везде, где есть пробел.
2. Каждый элемент помещается в массив, начиная с нуля.
3. Используя номер местоположения, мы можем получить доступ к элементу массива.  

В следующей таблице показано, как может выглядеть массив после использования Split.

Примечание: первая позиция в массиве равна нулю. Наличие нулевых массивов является стандартным в языках программирования.

В приведенном выше коде мы разделяем строку каждый раз, когда ее используем. Мы также можем разделить строку один раз и сохранить ее в переменной массива. Тогда мы можем получить к нему доступ, когда захотим.

Sub SplitName()
    Dim s As String: s = "John Henry Smith"
    Dim arr() As String
    arr = Split(s, " ")

    Debug.Print arr(0) ' John
    Debug.Print arr(1) ' Henry
    Debug.Print arr(2) ' Smith
End Sub

Если вы хотите узнать больше о массивах, я написал о них целую статью под названием «Полное руководство по использованию массивов в Excel VBA».

В следующих разделах мы рассмотрим примеры из реальной жизни. Вы увидите преимущество использования Split вместо функции InStr.

Пожалуйста, не стесняйтесь попробовать это сами. Это отличный способ учиться, и вы можете повеселиться, пытаясь понять их (или, может быть, только у меня так!)

Пример 1: Получение части имени файла

Представьте, что мы хотим извлечь числа из следующих имен файлов

«VB_23476_Val.xls»
«VV_987_Val.txt»
«VZZA_12223_Val.doc»

Это похоже на пример, где мы получаем второй элемент. Чтобы получить значения здесь, мы используем подчеркивание (то есть «_»), чтобы разбить строку. Смотрите пример кода ниже:

Sub PoluchitNomer()

    ' Печатает 23476
    Debug.Print Split("VB_23476_Val.xls", "_")(1)
    ' Печатает 987
    Debug.Print Split("VV_987_Val.txt", "_")(1)
    ' Печатает 12223
    Debug.Print Split("ABBZA_12223_Val.doc", "_")(1)

End Sub

В реальном мире вы обычно читаете такие строки из разных ячеек. Допустим, эти имена файлов хранятся в ячейках от А1 до А3. Мы немного изменим приведенный выше код:

Sub ChitatNomera()

    Dim c As Range
    For Each c In Range("A1:A3")
        ' Разделите каждый элемент по мере его прочтения
        Debug.Print Split(c, "_")(1)
    Next c

End Sub

Пример 2: диапазон IP-адресов

Пример здесь взят из вопроса на веб-сайте StackOverflow.

У пользователя есть строка с IP-адресом в формате «BE-ABCDDD-DDS 172.16.23.3».

Он хочет, чтобы IP в диапазоне от 172,16 до 172,31 был действительным. Так например:

• «BE-ABCDDD-DDS 172.16.23.3» действителен
• «BE-ABCDDD-DDS 172.25.23.3» действителен

• «BE-ABCDDED-DDS 172.14.23.3» не действителен
• «BE-ABCDDDZZ-DDS 172.32.23.3» не действителен

Вот как бы я это сделал. Сначала я разбил строку по периодам. Число, которое мы ищем, находится между первым и вторым периодом. Поэтому это второй пункт. Когда мы разделяем строку, она помещается на первую позицию в массиве (помните, что массив начинается с нулевой позиции).

Полученный массив будет выглядеть так:

Код ниже показывает, как это сделать.

Sub IPAdd()

    ' Проверьте номер, чтобы проверить разные IP-адреса
    Dim s1 As String: s1 = "BE-ABCDDD-DDS 172.31.23.3"

    ' Разбить строку, используя символ точки
    Dim num As Long
    num = Split(s1, ".")(1)

    ' Проверьте правильность номера
    Debug.Print num >= 16 And num <= 31

End Sub

Пример 3. Проверьте правильность имени файла

В этом последнем примере мы хотим проверить правильность имени файла. Есть три правила.

1. Должно заканчиваться на .pdf
2. Он должен содержать АА
3. Он должен содержать 1234 после А

В следующих таблицах показаны некоторые допустимые и недействительные элементы:

Сначала мы сделаем это, используя функции InStr и Right.

Sub IspInstr()

    Dim f As String: f = "AA_1234_(5).pdf"

    ' Сначала найдите АА, так как 1234 должен идти после
    Dim lPos As Long: lPos = InStr(f, "AA")
    ' Ищите 1234 и убедитесь, что последние четыре символа - .pdf
    Debug.Print InStr(lPos, f, "1234") > 0 And Right(f, 4) = ".pdf"

End Sub

Этот код очень грязный. К счастью для нас, у VBA есть Сравнение с шаблоном. Мы можем проверить шаблон строки без необходимости искать элементы и позиции и т.д. Мы используем оператор Like в VBA для сопоставления с шаблоном. Пример ниже показывает, как это сделать.

Sub IspSravnenie()

    Dim f As String: f = "AA_1234_(5).pdf"

    ' Определить шаблон
    Dim pattern As String: pattern = "*AA*1234*.pdf"
    ' Проверьте каждый элемент по шаблону
    Debug.Print f Like pattern   ' ИСТИНА

End Sub

В приведенном выше примере звездочка в шаблоне относится к любому количеству символов.

Давайте разберем этот паттерн * AA * 1234 * .pdf

*- любая группа символов
AA — точные символы AА

*- любая группа символов
1234 — точные символы 1234

*- любая группа символов
.pdf — точные символы .pdf

Чтобы показать, что это работает правильно, давайте попробуем это на всех именах примеров в таблице.

Sub IspSravnenieTest()

    ' Создать коллекцию имен файлов
    Dim coll As New Collection
    coll.Add "AA1234.pdf"
    coll.Add "AA_ljgslf_1234.pdf"
    coll.Add "AA1234.pdf1"
    coll.Add "1234 AA.pdf"
    coll.Add "12_AA_1234_NM.pdf"

    ' Определить шаблон
    Dim pattern As String: pattern = "*AA*1234*.pdf"

    ' Проверьте каждый элемент по шаблону
    Dim f As Variant
    For Each f In coll
        Debug.Print f Like pattern
    Next f

End Sub

На выходе:

ИСТИНА
ИСТИНА
ЛОЖЬ
ЛОЖЬ
ИСТИНА

Чтобы узнать больше о сопоставлении с шаблоном и ключевом слове Like, ознакомьтесь с этой публикацией.

Заключение

InStr и InStrRev действительно полезны только для простых задач, таких как проверка наличия текста в строке.

Left, Right и Mid полезны, когда положение текста всегда одинаково.

Функция Split — лучший способ извлечь переменную строку.

При попытке проверить формат строки, которая не является фиксированной по размеру, ключевое слово Like (т.е. Сопоставление с образцом) обычно обеспечивает более простое решение.

Функция InStr

​Смотрите также​​ и вот так​ 0 ?​ «!» из всех​: А может отдаться​ ребята и напишут,​ макроса, нашлось слово,​ значений из столбца​:​ между ними. Поэтому​ помощью vba же,​ с элементами массива:​ + 1 Loop​ не понял, как​Start​Справочник разработчика​Option Compare​Примечание:​ вот «попал»​If InStr(k, aStringArray(i​ строк.​

​ на откуп рекордеру?​​ и протестируют, и​​ или даже лучше​​ А​​Писал бы сразу​ я в 99%​ это сделать оказалось​

​Авторские программы, библиотеки,​

​ While VBA.Mid(Cells(1, 1).Value,​

​ делать. Нужно, что​ ​>​​в раскрывающемся списке​​.​​ Мы стараемся как можно​​ikki​​ — 1), «!»)​​Sub Print() Dim​​Cells.Find(What:=»т*к», After…​​ готовый код мне​

​ слова (записанные например​​for I=1 to​​ — все в​

​ числе) строка​​ мой взгляд, заключется​​ As String Dim​: т.е. ты хочешь​ волнуйся ты так,​ Как делать -​​ с 1, т.к.​

​: VictorM, если вы​

​200?’200px’:»+(this.scrollHeight+5)+’px’);»>=—ЕЧИСЛО(ПОИСК(B$1;$A2))​​: В принципе можно​​Или работать с​ 1).Characters(Start:=ST, Length:=LN).Font .Color​

​, переменная​

​k​

​ aStringArray(i — 1),​​ i, j, k,​​ слово «телекс» на​ вопроса и со​: Функция Instr​​ 1. Далее идет​​ строки, то луче​ удобнее, т.к. вполне​=ПОДСТАВИТЬ(ПРАВСИМВ(ЛЕВСИМВ(«№»&ПОДСТАВИТЬ($A$1;»№»;ПОВТОР(«№»;999));999*СТРОКА(A2));999);»№»;»»)​ строку или переменную​ True End With​

Примеры

​ найденные слова, с​Необязательный. Числовое выражение, которое​​InStr​​vbDatabaseCompare​​ неточности и грамматические​становится больше, чем​ «!») возвращает не​ m, l As​ листе?​​ звёздочкой, т.е. с​​BeaRRR​ выражение, »которое показывает​ уж отдельную формулу​​ возможно, что потребуется​​СТРОКА(A2) — это​

​ другого типа:​

​ End SubМожно сделать​​ числом их повторений​​ задает первую позицию​используется для получения​2​ ошибки. Для нас​ длина строки и​ 0, то выполняем​​ Long ‘счетчики Dim​​Вот я сейчас​ любым символом подстановки».​

​: Да, функцию нашел,​ кол-во строк на​​ для него:​​ поиск и по​ номер вхождения. Если​Как написать функцию,​ что бы искало​

​ (если такое возможно)​

​ для каждого поиска.​​ позиции первого вхождения​​Только в Microsoft Office​ важно, чтобы эта​ цикл​ операторы после THEN,​ lLastRow As Long​ написал слово «телекс»​Я прав? Нафига​​ спасибо. но как​​ 1-м листе if​200?’200px’:»+(this.scrollHeight+5)+’px’);»>=—($A2=»»)​ другим символам.​ вытягиваете не по​

​ переворачивающую строку​ и не с​​ в искомом тексте,​

​ Если параметр опущен,​​ одной строки в​ Access 2007. Выполняется​ статья была вам​Do While​ иначе идем в​ Dim lLastColums As​ на листе, включил​ было создавать тему,​​ саму программу писать​​ instr(sheets(1).cells(I,2), sheets(1).cells(I,2)) <>​VictorM​​Спасибо.​​ строкам, а по​Как выделить числовую​ начала слова, а​

​ записались в другую,​​ поиск начинается с​​ другую.​ сравнение на основе​ полезна. Просим вас​заканчивается при проверке​

​ ELSE​
​ Long aQuantitySymbols =​ запись макроса и​ если вы даже​
​ все равно не​ 0 then ''тут​: Спасибо, то, что​
​VictorM​ столбцам, то замените​ часть текста? (в​ по части слова.​
​ третью, ячейку. (ещё​ позиции первого символа.​
​Dim SearchString, SearchChar, MyPos​ сведений из базы​ уделить пару секунд​ условия продолжения цикла.​
​Функция InStr(k, aStringArray(i​ 0 aQuantityExclamMax =​
​ ввёл строку поиска​ не успели столкнуться​
​ знаю. Не могли​ ищем строку из​
​ нужно.​: Это я начинаю​ на СТОЛБЕЦ(B1)​
​ коде строки 93-110).​Но это уже​ лучше бы было,​


support.office.com

Функция InStr

​В том случае, когда​
​SearchString ="XXpXXpXXPXXP" '​

​ данных.​​ и сообщить, помогла​​ так что даже​​ — 1), «!»)​​ 0 ‘Вычисляем кол-во​ «т*к», нажал «Найти​ с проблемой?​​ бы подсказать?​​ столбца А, в​Цитата​ только сейчас понимать,​На всякий случай​pashulka​ на самостоятельную разработку​ если б они​ значение параметра​ String to search​Возвращаемые значения​ ли она вам,​

​ замена​

​ возвращает 0 только​​ строк с данными​​ далее», макрос нашёл​Sub Макрос1()​Казанский​ подстроке В sheets(1).cells(I,3)​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Думаю, тут есть варианты​ ни разу не​ UDF Function ТриНомера(ByVal​: Ёще один вариант,​BeaRRR​ выделялись (ну или​Start​

​ in.​

​Если​ с помощью кнопок​на в данном случае​ в случае, если​

​ и вносим текст​

​ будь образом в​

​ (на английском языке).​

​ способ для нахождения​​ почему-то данное условие​​ MsgBox («Кол-во заполненных​

​ ra As Long,​ ​ И дело вовсе​ подумал даже, что​ For i =​ Byte, c As​ бы очень и​ знаю, возможно ли​ задан параметр​ position 4. Returns​строка2 является пустой​Variant​ в строке:​ я и пытаюсь​ & lLastRow) ReDim​ MatchCase:=False _​ Cells.Find(sTextToSearch, , xlFormulas,​​: да без разницы,​​ rb As Long​ не в длине​ его можно применить.​ 1 To 3​ Variant strX =​​ очень пригодилось это...​​ такое) По сему​Compare​ 6.​начало​(​​n=len(s)-len(Replace(s, sSymbol, ""))​​ разобраться...​ aStringArray(lLastRow - 1)​​, SearchFormat:=False).Activate​​ xlPart)​ в каком виде​ ​ Columns(3).ClearContents For ra​
​ (кол-ве знаков) в​

Поиск подстроки в строке

​Спасибо, будем учить​​ t(i) = Val(x(i))​ » Private Sub​ как записать?​ вкладываю файл-пример. Мне​String1​MyPos = Instr(4,​строка2 равна NULL​Long​Апострофф​Укажите, пожалуйста, к​ For i =​End Sub​If Not rFoundRng​ результат в принципе)​ = 1 To​ формуле.​ матчасть​ Next ТриНомера =​ Test2() Dim strX$,​Alex77755​ нужен сам макрос,​Обязательный. Строковое выражение,в котором​ SearchString, SearchChar, 1)​NULL​), определяющее положение первого​: Спасибо, Уважаемые Diskretor​ каким переменным относится​ 1 To lLastRow​Так что и​ Is Nothing Then​ мне даже в​ 65536 If Cells(ra,​

​Думаю, что тут​​RAN​ t End FunctionВводить​ arrX() As Byte,​: Не охота снова​ сама программа, ибо​ ведется поиск​

​’ A binary​​строка2 не найдена​ вхождения одной строки​ и ikki. Очень​ ваш комментарий, а​ aQuantityExclam = 0​

​ мой код и​​MsgBox «Найдено: «​ голову не идет​
​ 1) = «»​ дело в понимании​: SkyPro, можно и​ как формулу массива,​ i& strX =​ создавать файл для​ писать их я​String2​ comparison starting at​0​ в другую.​ помогли. Разобрался в​ то я не​ aStringArray(i — 1)​
​ записанный рекордером -​ & rFoundRng, 64,​ ничего %)​ Then Exit For​ процесса.​ не прибедняться.​ выделив 3 соседние​ «​ проверки.​ не умею. Заранее​Обязательный. Отыскиваемое строковое выражение​ position 1. Returns​строка2 найдена в строке1​Некоторые примеры​ чем косяк =).​ догоняю…​ = Cells(i, 1)​ оба находят слово​ «Поиск»​ну пусть, например,​ For rb =​До чего, кстати,​Формулы вполне на​ ячейки и нажимая​iDeus​Да и к​ благодарю​Compare​ 9.​Позиция найденного соответствия​Синтаксис​ И за код​Piton777​ ‘Вычисляем максимальную длину​ «телекс» по поиску​Else​​ окно выдаст с​
​ 1 To 65536​ мне еще учиться​ уровне…​ Ctrl+Shift+Enter.​
​: Здравствуйте, подскажите пожалуйста,​ тому же изначально​Alex77755​Необязательный. Задает тип сравнения​MyPos = Instr(1,​начало > строка2​Instr​ спасибо.​: Смысл понятен. И​ строки, и максимальное​ «т*к»​MsgBox «На листе​ найденными словами…..или в​ If Cells(rb, 2)​ и учиться)​SkyPro​VictorM​ как можно решить​
​ говорил​: В принципе возможно​

​ для строк.​​ SearchString, SearchChar, 0)​0​
​(​Есть еще 1​ его писал явно​ кол-во восклицательных знаков​Юрий М​ ничего не найдено!»,​

​ исходном тексте их​​ = «» Then​Спасибо всем за​: Но я ведь​
​: Здравствуйте, уважаемые!​ такую задачу:​На словах: добавить​
​ очень многое, но​Если значение параметра​’ Comparison is​
​Замечания​[​

​ вопрос. За VBA​​ человек, знающий С.​ в каждой строке​: А вот так:​ 48, «Поиск»​ выделит, если так​ Exit For If​ участие и науку.​

​ прав был​​Собственно, вопрос в​В таблице Excel​ ещё один цикл​ ты должен отдавать​
​Compare​ binary by default​Функция​начало,​
​ сел только пару​1) Проблема в​ If (Len(aStringArray(i -​Sub Макрос3()​
​Exit Sub​ можно (последнее лучше)​ InStr(1, Cells(rb, 2),​
​Kotaaa​У Александра формула​ названии темы. Нужно​
​ есть столбец со​ Do-Loop.​ себе отчёт, что​

CyberForum.ru

Цикл по символам строки

​равно Null, возникает​​’ (last argument​InStrB​]​ дней назад. Иногда,​ строке 29 (последний​ 1)) > aQuantitySymbols)​Cells.Find(What:=»т*к», After:=ActiveCell, LookIn:=xlFormulas,​End If​
​исходные данные не​ Cells(ra, 1), vbTextCompare)​: Всем хорошего дня!​

​ короче.​​ найти определенный символ​ строками вида:​

​Только смещать начало(ST)​​ в первом тексте​ ошибка.​ is omitted).​используется с байтовыми​строка1, строка2​ случайно, запускаю бесконечный​ «!» не будет​ Then aQuantitySymbols =​ LookAt:= _​End Sub​ важны — мне​

​ Then Cells(rb, 3)​​Пытаюсь решить такую​​Все равно спасибо.​​ в строке и​«ЭРТ №2 Такой-то​ влево до пробела​ нет слова «Бомба»​
​В том случае,​MyPos = Instr(SearchString,​ данными, содержащимися в​[​ цикл и VBA​
​ распознан; нулевого литерала​ Len(aStringArray(i — 1))​xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext,​Данный код находит​
​ нужен сам алгоритм​ = Cells(rb, 3)​ задачу. Если коротко,​ Я и сам​ если он есть,​
​ край, Такой-то район,​BeaRRR​
​BeaRRR​ когда параметр​ SearchChar) ‘ Returns​

​ строке. Функция​​, сравнение​ тупо зависает. Ctrl​ в бейсике нет).​
​ ‘Для проверки выводим​ MatchCase:=False _​ такие слова как:​ этот. что бы,​ & Cells(ra, 1)​ то ищу ключевые​ не ожидал, что​ то 1, если​ в/г ВоенныйГородок №​: Да если бы​

CyberForum.ru

Простой парсинг строки в Excel, поиск значения после символа

​: Мне важен сам​​Compare​ 9.​InStrB​
​]​ + Break не​Должно быть 2)​
​ сообщение о новом​, SearchFormat:=False).Activate​- тук​ как уже говорил,​ & «,» End​ (так называемые META​ выдам столько вариантов.​
​ нет — то​ 42 Кот 174​ я ещё умел​ алгоритм, сам макрос​опущен,тип сравнения определяется​MyPos = Instr(1,​
​возвращает позицию байта,​)​ помогает. не посоветуете​ Проблема в логике:​
​ макс значении кол-ва​End Sub​- так​ искал содержимое одной​ If Next rb​ Keywords) в наименованиях​
​VictorM​ 0.​

​ Здание контрольно-пропускного пункта​​ это делать… Я​ (прошу написать)) а​ установками оператора​ SearchString, «W») ‘​ а не позицию​Функция​ таблетку против этой​ даже если п.1​ символов MsgBox (aQuantitySymbols)​На листе два​- тампакс​ ячейки в другой​ Next ra End​ товаров.​: Уважаемые, а можно​Я вроде как​ (караулка)(встроенная) №174» без​ ноль почти в​ текст я поменяю​Option Compare​ Returns 0.​

​ знака первого вхождения​​InStr​ напасти? Как остановить​ сделать, последний «!»​

​ End If k​​ слова: Ток и​​- томск​​Заранее благодарю​ Sub​Подробнее. Есть столбик​ вопрос вдогонку, чтобы​ что-то сделал, написал​

​ кавычек.​​ программировании. И именно​​ потом. помогите пожалуйста​​Установки​InStr([Start,]String1,String2[,Compare])​ одной строки в​имеет следующие аргументы:​ макрос?​
​ в строке выполнит​ = 1 Do​ Телекс. Находится ток.​- телекс​Казанский​Kotaaa​ «А» с определенными​

​ уж все решить.​​200?’200px’:»+(this.scrollHeight+5)+’px’);»>=ЕСЛИ(НАЙТИ(«Ф»;A2);1;0)​Необходимо в три​ поэтому прошу помощи​
​Alex77755​
​Для параметра​InStrB([Start,]String1,String2[,Compare])​ другую.​Аргумент​Piton777​ первую часть if,​

​ While k <​Да ладно -​Юрий М​: Вам лень рисовать​: Спасибо! А что​ фразами (может быть​Сделал вывод единицы,​НО. Определяется только​ соседних ячейки той​ здесь.​: Вот так загоняешь​Compare​Функция​Использование функции InStr в​Описание​: не запускать бесконечный​

CyberForum.ru

Найти символ в строке (Функция ЕСЛИ)

​ и команды в​​ Len(aStringArray(i — 1))​
​ я сам вижу,​: Павел, что-то мне​ пример — мне​ за переменная «I»​ одно слово,может состоять​ если строка пустая​ символ в зависимости​ же строки, выдернуть​
​Alex77755​ в массив слова:​
​используются следующие установки:​
​InStr​ выражении.​начало​ цикл.​ else будут опущены.​ If InStr(k, aStringArray(i​ что и в​
​ показалось подозрительным: по​ тем более.​ здесь?​ из двух и​ (может быть и​
​ от регистра. Мне​ числа после первого,​: По большому счёту​
​Dim m() As​Константа​(​    Функцию​
​Необязательный аргумент. Числовое выражение,​

​а вообще кнопка​​3) Объявляйте Dim​​ - 1), "!")​
​ Word поиск не​
​ маске «т*к» слово​
​Выделить часть часть​

​Апострофф​​ более), короче столбик​
​ такое) вот так​ же нужно ,​
​ второго и третьего​

​ помощь это когда​​ String If InStr(1,​

​Значение​​In Str​
​InStr​ которое задает начальное​

​reset​​ правильно.​ <> 0 Then​

​ совсем так. Я​​ телекс не должно​
​ текста в ячейке​

​,​​ «А» со строками.​200?’200px’:»+(this.scrollHeight+5)+’px’);»>=СЧЁТЕСЛИ(A2;»»)​​ чтобы символ определялся​
​ символа «№» соответственно.​ делаешь сам и​ Cells(1, 2).Value, «,»)​Описание​ing) служит для поиска​

​можно использовать в​​ положение для каждого​на корпусе ещё​4) Для Instr​ aQuantityExclam = aQuantityExclam​ про подстановки. Только​ находиться. Вот если​ — ищите​Спасибо! Прикинул в​ И столбик «В»​Работает.​ вне зависимости о​Учитывая, что между​
​ тебе помогают.​ > 0 Then​
​vbUseCompareOption​

​ номера символа(номера байта​​ любых выражениях. Например,​ поиска. Если аргумент​ ни разу не​ пользуйтесь вот такой​ + 1 k​
​ хотел сказать, что​

​ бы «т*к*», то​​Characters​ уме сначала, что​ с наименованиями товаров​А вот в​ регистра.​
​ № и цифрой​Не смотря на​ m = Split(Replace(Cells(1,​-1​ для​
​ если требуется определить​ не задан, поиск​

​ подводила​​ логикой:​ = InStr(k, aStringArray(i​
​ корректнее было бы​ да. Штатный поиск​

​в сочетании с​​ будет происходить -​ (взятый из прайс-листа).​
​ понравившихся мне вариантах​И если такого​
​ может быть или​ это несоответствие я​ 2).Value, » «,​Сравнение выполняется с использованием​

​InStrB​​ позицию первой точки​ начинается с первого​Piton777​
​k = 0:​ — 1), «!»)​ выполнение поиска по​ именно так и​
​InStr​
​ коротко и логично.​
​ Нужно искать вхождение​ из постов №8​ символа нет, мне​
​ не быть пробел.​
​ показал как это​
​ «»), «,») Else​
​ установок для оператора​
​), с которого начинается​ (​
​ символа. Если аргумент​

​: Меня Ctrl +​​ aQuantityExclam = 0​​ + 1 MsgBox​
​ маске, например, для​ сработает. А Ваш​

​(можно в сочетании​​ И все работает!​ (точное соответствие фразы)​Код200?’200px’:»+(this.scrollHeight+5)+’px’);»>=СЧЁТЕСЛИ($A2;»*»&B$1&»*»)​ нужен 0, а​
​Я так понимаю,​ можно сделать.​ ReDim m(0): m(0)​Option Compare​
​ в заданной строке​.​начало​ Break всегда спасал​

​ Do k =​​ («Номер символа в​ слов токсин, такси,​ макрос нашёл и​ с моим ником).​Интересно, что Вы​ фразы из столбика​и №9​
​ у меня пишется​ необходимо 3 формулы,​И даже больше​ = Trim(Cells(1, 2).Value)​vbBinaryCompare​ образец поиска. Поиск​) в поле, которое​содержит значение NULL,​Ну попробуй​ InStr(k + 1,​ строке » &​ таксофон не «т*к»,​ слово «стук», хотя​
​vladk​ просто число 65536​ «А» в каждой​Код200?’200px’:»+(this.scrollHeight+5)+’px’);»>=—ЕЧИСЛО(ПОИСК(B$1;$A2))​ ошибка #ЗНАЧ!​ но никак не​

​ того: показал как​​ End IfА потом​
​0​ идет от указанной​ содержит IP-адрес (IPAddress),​

​ возникает ошибка. Если​​DoEvents​ aStringArray(i — 1),​ i & «​ а «т*к*». Т.е.​ не должен был.​: Подскажите, пожалуйста, можно​
​ поставили для цикла.​

​ из ячеек столбика​​не получается сделать.​Подскажите, пожалуйста, как​
​ получается сообразить, как​​ можно сделать выделение​ в цикле по​Выполняется побитовое сравнение​ позиции слева направо.​
​ можно использовать функцию​
​ задан аргумент​в цикл вставить?​ «!») If k​ равен » &​ после К любое​
​ Или я чего-то​ ли в маске​ Это реально ускоряет​
​ «В» и, если​Можно как-то это​ можно все это​
​ получить число неизвестной​ по началу слова.​

excelworld.ru

Поиск подстроки в строке — сравнение строк в VBA

​ всем словам ищешь(опять​​vbTextCompare​
​ Поиск вхождения одной​InStr​сравнение​Из полностью безопасных​ <> 0 Then​ k — 1)​
​ количество любых символов.​ не того?​ строки поиска (VBA)методом​ обработку?​ вхождение найдено, то​ победить?​ сделать.​ длинны после символа.​Там осталась самая​ же в цикле.​1​ строки в другую​для его поиска:​, аргумент​ способов знаю такие:​ aQuantityExclam = aQuantityExclam​ Else k =​ И ведь в​New​ Find​А как мне​ в столбик «С»,​Спасибо.​
​Скорее всего нужна​Excel 7-10 года,​
​ малость. на словах​
​ во вложенном)​
​Выполняется текстовое сравнение​
​ весьма часто используемая​
​InStr(1,[IPAddress],».»)​
​начало​
​1) Вставить в​
​ + 1 MsgBox​
​ Len(aStringArray(i — 1))​
​ командере именно так​: а по-моему, должно​
​использовать *,? для​ кнопку влепить на​
​ напротив ячейки, в​SkyPro​
​ другая формула, но​
​ Windows.​
​ я её рассказал.​Option Compare Text​
​vbDatabaseCompare​ операция. Нумерация символов​
​Функция​является обязательным.​ подозрительный цикл команду:​ «Номер символа в​ If aQuantityExclam >​ и происходит.​ )​ расширения вариантов поиска​ этот лист? Буду​
​ которой сейчас ищется​:​

​ это все что​​Апострофф​
​Как я говорю​ Option Explicit Sub​2​ всегда начинается с​InStr​строка1​DoEvents2) внимательно за​
​ строке » &​ aQuantityExclamMax Then aQuantityExclamMax​New​Вот ещё пример​ как в обычном​ вставлять во 2-ю​ совпадение — вписывать​200?’200px’:»+(this.scrollHeight+5)+’px’);»>=ЕСЛИ($A2=»»;1;СЧЁТЕСЛИ($A2;»*»&B$1&»*»))​ я смог придумать)​: Информация к размышлению​ своему внуку: включай​ QWERT() Dim R,​Только для Microsoft Access.​ единицы​проверяет каждое значение​Обязательный аргумент. Представляет собой​ этим следить и​ i & «​

​ = aQuantityExclam MsgBox​​: По-моему, я понял!​ поиска слова «телекс»​ поиске​ колонку наименования и​ эту фразу с​Это если долго​Спасибо.​ — MsgBox Val(Split(«ЭРТ​ голову(или доставай кошелёк)​ N, K Dim​ Сравнение выполняется с​Примечание​ в поле IPAddress​ строковое выражение, в​ успеть нажать Ctrl+Break,​ равен » &​ («На данный момент​Тут важную роль​sTextToSearch = «т???к»​Excel или Windows​ затем кнопку нажимать,​ «,» в конце.​

​ не думать.​​SkyPro​ №2 Такой-то край,​Четыре бокала пива​
​ m() As String​​ применением сведений из​
​В функции​ и возвращает позицию​ котором выполняется поиск.​ пока еще не​ k End If​
​ максимальное кол-во воскл​ играет аргумент LookAt,​А, чтобы найти​New​ чтобы в редактор​
​Ну скажем такой​RAN​:​ Такой-то район, в/г​ — смешно назвать​ If InStr(1, Cells(1,​ базы данных пользователя​InStr​ первой точки. Следовательно,​

​строка2​​ прошло секунды 3​

​ Loop Until k​

​ знаков равно «​ который может быть​ «стук» можно так​​: Может это поможет?​

​ не входить лишний​ вот пример:​: Сереж, на одном​200?’200px’:»+(this.scrollHeight+5)+’px’);»>=ЕСЛИОШИБКА(—(ПОИСК(«ф»;A2;1)>0);0)​ ВоенныйГородок № 42​​ это ценой!​​ 2).Value, «,») >​​Пример​​при очень длинных​ если значение первого​

​Обязательный аргумент. Искомое строковое​​ бесконечного цикла.​ = 0 If​ & aQuantityExclamMax) End​ либо xlPart, либо​sTextToSearch = «т?к»​vladk​ раз.​
​»А»​ из форумов (не​Код200?’200px’:»+(this.scrollHeight+5)+’px’);»>=ЕСЛИ(ЕОШ(ПОИСК(«ф»;A2;1));0;1)​
​ Кот 174 Здание​sku144​​ 0 Then m​​’ В данном примере​

CyberForum.ru

Банальный поиск подстроки в строке

​ строках при текстовом​​ октета IP-адреса равно​ выражение.​3) Внимательно писать​ aQuantityExclam > aQuantityExclamMax​ If End If​ xlWhole, т.е. искать​Т.е. Звёздочка (*)​: Эта тема про​Апострофф​механизм​ помню, на каком)​Код200?’200px’:»+(this.scrollHeight+5)+’px’);»>=—НЕ(ЕНД(ВПР(«*ф*»;A1;1;0)))​

​ контрольно-пропускного пункта (караулка)(встроенная)​​: Есть непустая строковая​

​ = Split(Replace(Cells(1, 2).Value,​​ функция InStr ‘​ методе сравнения, возможно​10.​сравнение​ циклы и не​ Then aQuantityExclamMax =​

​ Loop Next i​​ часть ячейки или​ заменяет любое количество​ другое.​:​механизм выключателя​

​ прозвучало​​Код200?’200px’:»+(this.scrollHeight+5)+’px’);»>=СЧЁТЕСЛИ(A2;»*ф*»)​ №174″, «№»)(1)) MsgBox​ переменная x, хочу​ » «, «»),​ возвращает позицию первого​ возникновение ошибки времени​
​, функция возвращает значение​Необязательный аргумент. Задает тип​ допускать такого. Предусматривать​ aQuantityExclam MsgBox «На​ End SubВопрос, почему​ ячейка целиком (галочка​
​ символов и в​Так как нет​Не по теме:​механизм переключателя​»Нормальные люди меряются,​VictorM​ Val(Split(«ЭРТ №2 Такой-то​
​ перебрать ее посимвольно​

​ «,») Else ReDim​​ появления ‘ одной​ исполнения Stack overflow.​ 3.​
​ сравнения строк. Если​ обязательный выход из​ данный момент максимальное​​ нижеприведенный кусок кода​​ снята или поставлена)​​ примере «т*к» буквы​​ ответов, то ,наверное,​Нет, просто мне лень​

CyberForum.ru

Как методом Find в VBA найти строку с использованием *,? как в обычном поиске Windows

​адаптер​​ у кого длиннее,​: Во как.​ край, Такой-то район,​ в цикле. Умеет​
​ m(0): m(0) =​ строки внутри другой​ Избежать этой ошибки​Можно использовать другие функции,​
​ аргумент​

​ ниразу не срабатывает,​​Так вот, если​ «т» и «к»​
​ такая возможность нереализвана​ каждый раз вспоминать​адаптер питания​ а формулисты -​Сразу три варианта​ в/г ВоенныйГородок №​ ли VBA как​
​ Trim(Cells(1, 2).Value) End​ строки Dim SearchString,​

​ можно, переведя исходную​​ использующие результат функции​сравнение​
​ Это хороший тон.​ равно » &​
​ если известно, что​ мы задаём критерий​
​ не обязательно должны​ в стандартных процедурах​
​ конструкции типа​
​рамка​ у кого короче.»​ формул!​

​ 42 Кот 174​​ в пайтоне запускать​

​ задачу -> Ждать…​​не будет срабатывать​ кол-во знаков «!».​ и телекс и​ — последней. Тоже​Буду признателен за​ есть необходимость), следует​ проходного​ МШ!​VictorM​ Такой-то край, Такой-то​ in x …​ Cells(1, 1).Value, m(R))​ найти «P» ‘​Возвращаемое значение​

​ Len(aStringArray(i — 1))​​ а если xlWhole,​ знаком вопроса (?).​ytk5kyky​ стандартный метод​ в сборе​: Да какая разница?​Все в копилку,​ № 42 Кот​snipe​ K = InStr(N,​ с позиции 4.​ указывающее позицию первого​В этом примере функция​Option​ ПКМ -> Перейти​

​но, возможно, вы​​ If aQuantityExclam >​ то код найдёт​Юрий М​: Что-то не увидел​Find​Merten механизм переключателя​ Что за мания​ пригодится!​

​ 174 Здание контрольно-пропускного​​: dim stroka as​ Cells(1, 1).Value, m(R))​
​ Возвращает 10 MyPos​
​ появления одной строки​

​: Добавил еще один​​ «№»)(3))​
​sku144​
​ Len(m(R)) N =​Instr​
​Перечень возвращаемых значений​ точки. В результате​
​ (код языка), чтобы​
​ Да.Вот reset -ом​
​ меня процедура с​ («На данный момент​Вроде загадка разгадана)​
​ DOS и NC.​ макрорекордер:​+ много чего​R2234 адаптер питания​ сколько символов будет​ вариант​iDeus​: да, спасибо большое,​ K + Len(m(R))​(4, SearchString, SearchChar, vbTextCompare)​Вариант​ вычитания 1 определяется​ использовать для сравнения​ до сих пор​ таким именем даже​ максимальное кол-во воскл​ можно спать спокойно​ Так вот там​

​ Cells(1, 1).Value, m(R))​​ начиная с позиции​

​String1​​ первой точке, в​ стандартом.​

planetaexcel.ru

Проверка наличия символа в строке + подсчет

​Спасибо, функция реально​​Piton777​
​ & aQuantityExclamMax)​Юрий М​
​ сработает. Преемники NC​xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,​: Возможно этого будет​Berker выключатель двойной,​У меня тут​Спасибо!​ что нужно.​ символу, но вопрос​ Loop While K​ 1. Возвращает 1​имеет нулевую длину​ данном случае —​Совет:​
​ помогает, буду вставлять​: Так я и​Piton777​: :-)​ Windows/Total командиры продолжают​ MatchCase:=False _​ достаточно. 1-я колонка​ 2-клав.​ на работе недавно​SkyPro​iDeus​ все-таки о возможности​ > 0 End​ MyPos =​0​ 2. Затем функция​ ​ во все циклы​ не понял -​: В отличие от​Guest​ его традиции: создал​, SearchFormat:=False).Activate​ ориентировочно 200-300 строк​Основная проблема в​ было — написал​: В вашем файле​:​ запуска цикла по​ If Next R​Instr​String1​Left​В Access 2010 построитель​ на момент отладки,​ почему… Судя по​ языка C, в​: тема на 10​ сейчас файл с​При прогоне нашел​ будет содержать в​ том, что не​ формулу с несколькими​ будет удобнее так:​iDeus​ элементам строки а​ End Sub Sub​(1, SearchString, SearchChar, 0)​имеет значение Null​получает эти символы​ выражений включает функцию​ ибо умудряюсь запороть​ всему, Diskretor пытается​ бейсике любой строковой​ строк ниже​ именем «телекс». Попросил​ и «так» и​ будущем, а 2-я​ понимаю, как искать​ СМЕЩ символов на​200?’200px’:»+(this.scrollHeight+5)+’px’);»>=СЧЁТЕСЛИ($A2;»*»&B$1&»*»)​, но во втором​ не по его​ ПОКРАСИТЬ(ST, LN) With​ ‘ Сравнение является​Null​ из левой части​ IntelliSense, которая указывает​ даже простейшие циклыНе​ мне объяснить ПОЧЕМУ,​ тип не содержит​Piton777​ командира по маске​ «тук»​ реально может быть​ строку, состоящую из​
​ 120 примерно, размножил​Думаю, тут есть​ сообщении решение с​ длине с последующими​ Cells(1, 1).Characters(Start:=ST, Length:=LN).Font​ двоичным по умолчанию​String2​ поля IPAddress, возвращая​ требуемые аргументы.​

​ забывайте потом удалять,​​ но я не​ в конце литеры​: Всем, Здравствуйте.​ «т*к» найти его​vladk​ в 49000 строк.​
​ одного или нескольких​ на диапазон, а​ варианты и короче,​
​ помощью VBA, а​ калькуляциями нужного на​ .Color = RGB(0,​ (последний аргумент опущен)​имеет нулевую длину​ значение 10.​

​ ​​ если это не​ понимаю, в чем​ ,​
​Помогите разобраться в​ — нету, говорит.​: Спасибо за помощь.​А можете пример​ слов, в другой​ она тормозит. Пришлось​
​ но для этого​ вы хотели с​ данной итерации символа​ 0, 255) .Bold​ MyPos =​Start​Использование функции InStr в​
​Параметры​ будет мешать работе​ тут смысл и​а значит всю​ следующем примере​ Набираю маску «т*к*»​New​ привести? Как это​ строке. Нужно точное​ переписывать, вместо СМЕЩ(…)​ нужно быть Мастером​
​ помощью формул.​Казанский​ = True End​Instr​String2​

​ коде VBA​​Аргумент​ и не будет​ почему если «!»​
​ логику последней конструкции​Имеется таблица (excel​ — находится.​: Иными словами вы​ работает?​
​ совпадение, т.е. задача​ написал ИНДЕКС(…):ИНДЕКС(…). Итог​ Экселя​The_Prist​:​ With End Sub​(SearchString, SearchChar) ‘ Возвращает​имеет значение Null​
​    ​сравнение​
​ приводить к дальнейшим​ стоит в конце,​ Вам придется переписывать.​
​ 2003) с данными.​New​ задаёте вопрос на​Как в VBA​ немного легче.​ — формула за​_Boroda_​:​sku144​Добавлено через 15 минут​ 1 MyPos =​Null​Примечание:​может принимать следующие​ зависаниям.​ то моё условие​P.S. Каждую переменную​ Информация имеется только​: конечно, я согласен​ форуме, хотя сами​ будет выглядеть оператор​Заранее благодарен за​ полтыщи символов, а​

​: НАЙТИ реагирует на​​Скрипт​
​, а что Вы​А вот так​Instr​
​String2​ В примерах ниже показано,​
​ значения:​Процедура имеет свойство​ работает не так​ нужно отдельно объявлять​

​ в первом столбце.​​ с вами. Какой-то​ даже не попробовали​Find​ любую помощь!​ работает намного быстрее.​ регистр, а ПОИСК​верно, но я​ хотите делать с​ будет искать по​(1, SearchString, «W») ‘​не найдена​ как использовать эту​Константа​ притормаживать работу цикла​ как мне бы​ variable1 AS [тип],​ Необходимо проверить имеется​
​ косячок ). Отсюда​ написать и строчки​из Excel?​S.V.I.N.​

​Да, вспомнил я,​​ не реагирует. В​ пробовал сделать это​ символами и почему​​ началу слова а​​ Возвращает 0​​0​​ функцию в модуле​Значение​ (сказывается на быстродействии).Спасибо​​ хотелось… Тупо воспользуюсь​​ variable2 as [тип],​ ли символ «!»​ резонный вопрос, как​ кода? Типа «А​​dnb_dnb​: Добрый день!​
​ что я тут​ этом (и еще​ с помощью формул,​ Mid не устраивает?​ выделять всё слово​
​Категория​

​String2​​ Visual Basic для​Описание​ за совет, не​ его примером и​ иначе тип автоматически​ в каждой из​
​ найти слово(а) начинающиеся​ нафига мне писать​: Help! нужно, что​Можно рассмотреть такой​ модератор вроде. Если​ в возможности использования​ получается страшная жесть,​Если по быстродействию​Sub ПОКРАСИТЬ(ST, LN)​Функции обработки строк​найдена внутри​ приложений (VBA). Чтобы​

​vbUseCompareOption​​ сразу увидел эффективность​ будут учить «Матчасть».​
​ присваивается Variant.​​ строк, узнать кол-во​​ на «т» и​ код и его​ бы в определенном​

​ вариант. В цикле​​ еще потрепаться охота​ подстановочных знаков -​
​ вроде:​​ — можно отобразить​​ LN = LN​

​BeaRRR​String1​
​ получить дополнительные сведения​–1​
​ данного кода в​ =)​ikki​ символов «!» в​ заканчивающиеся на «к»…​ тестировать, если можно​
​ тексте, введенном в​ проходим все строки​ — в свободное​ в ПОИСКе можно,​=ЕСЛИ( ПСТР(C7;ПОИСК(«№»;C7;ПОИСК(«№»;C7;1)+1)+1;1)=» «;​ символьный массив на​
​ — 1 Do​
​: Тему уже создавал,​Позиция, в которой обнаружено​ о работе с​Выполняется сравнение с помощью​
​ решении моего вопроса​Переименовал произвольно при​: Немного не понял.​ каждой строке и​ надо подумать)​ создать тему на​ одну ячейку в​
​ и просматривать столбец​ общение.​ в НАЙТИ нельзя)​ ПСТР(C7;ПОИСК(«№»;C7;ПОИСК(«№»;C7;1)+1)+2;(ПОИСК(» «;C7;ПОИСК(«№»;C7;ПОИСК(«№»;C7;1)+1)+1)-ПОИСК(» «;C7;ПОИСК(«​ строку и работать​ LN = LN​ но так и​ совпадение​ VBA, выберите​ параметра инструкции​ =).​ переносе на форум​
​ Вы про этот​ найти максимальное кол-во​Юрий М​ форуме, а там​ эксель, с помощью​ В на наличие​RAN​ и заключается разница​

CyberForum.ru

​ «;C7;ПОИСК(«№»;C7;ПОИСК(«№»;C7;1)+1)+1)+1)); ПСТР(C7;ПОИСК(«№»;C7;ПОИСК(«№»;C7;1)+1)+1;(ПОИСК(» «;C7;ПОИСК(«№»;C7;ПОИСК(«№»;C7;1)+1)+1)-ПОИСК(«№»;C7;ПОИСК(«№»;C7;1)+1)-1)))с​

INSTR Function

The VBA Instr Function checks if a string of text is found in another string of text.  It returns 0 if the text is not found. Otherwise it returns the character position where the text is found.

The Instr Function performs exact matches. The VBA Like Operator can be used instead to perform inexact matches / pattern matching by using Wildcards.

Instr Example

The following code snippet searches the string “Look in this string” for the word “Look”. The Instr Function returns 1 because the text is found in the first position.

Sub FindSomeText()
  MsgBox InStr("Look in this string", "Look")
End Sub

This second example returns 7 because the text is found starting in the 7th position:

Sub FindSomeText2()
  MsgBox InStr("Don't Look in this string", "Look")
End Sub

Important! The Instr Function is case-sensitive by default. This means “look” will not match with “Look”. To make the test case-insensitive read below.

Instr Syntax

The syntax for the Instr function is as follows:

Instr( [start], string, substring, [compare] )

[start] (optional) – This optional argument is the starting position of the search. Enter 1 to start searching from position 1 (or leave blank). Enter 5 to start searching from position 5. Important! The INSTR function calculates the character position by counting from 1 NOT from the [start] position.

string – The string of text to search in.

substring – The string of text to find in the primary string.

[compare] (optional) – By default, Instr is case-sensitive. By setting this argument you can make Instr Case insensitive:

Instr Start Position

The Instr start position allows you to indicate the character position where you will begin your search.  Keep in mind however, the Instr output will always count from 1.

Here we set the start position to 3 to skip the first B:

Sub Instr_StartPosition()
  MsgBox InStr(3, "ABC ABC", "B")
End Sub

The result is 6 because the second B is the 6th character in the string.

Case-Insensitive INSTR Test

By default, VBA treats “L” different from “l”. In other words, VBA is case-sensitive. This is true of all text functions.  To make VBA case-insensitive, set the [compare] argument to 1 or vbTextCompare.

Public Sub FindText_IgnoreCase()
  MsgBox InStr(1, "Don't Look in this string", "look", vbTextCompare)
End Sub

Alternatively, you can add Option Compare Text to the top of your code module:

Option Compare Text

Option Compare Text

Public Sub FindText_IgnoreCase2()
  MsgBox InStr("Don't Look in this string", "look")
End Sub

Option Compare Text will impact all of the code in that module. I personally place this at the top of any module that deals with text because I never care about case differences.

InstrRev Function

The Instr Function searches from the left. Instead you can search from the right using the InstrRev Function.  The InstrRev Function works very similarly to the Instr function.

Sub FindSomeText_FromRight()
  MsgBox InStrRev("Look in this string", "Look")
End Sub

Just like the Instr function this will return 1 because there is only one instance of “Look” in the text. But if we add a second “Look”, you’ll see that it returns the position of the right-most “Look”:

Sub FindSomeText_FromRight()
  MsgBox InStrRev("Look in this string Look", "Look")
End Sub

Next we will review more Instr examples.

InString Examples

If String Contains Substring

Here we will use an If statement to test if a string contains a a substring of text:

Public Sub FindSomeText()

If InStr("Look in this string", "look") = 0 Then
   MsgBox "No match"
Else
   MsgBox "At least one match"
End If

End Sub

Find Text String in a Cell

You can also find a string in a cell:

Sub Find_String_Cell()
    If InStr(Range("B2").Value, "Dr.") > 0 Then
        Range("C2").Value = "Doctor"
    End If
End Sub

Or loop through a range of cells to test if the cells contain some text:

Sub Search_Range_For_Text()
Dim cell As Range

    For Each cell In Range("b2:b6")
        If InStr(cell.Value, "Dr.") > 0 Then
            cell.Offset(0, 1).Value = "Doctor"
        End If
    Next cell
    
End Sub

VBA Programming | Code Generator does work for you!

Find Position of a Character in a String

This code will find the position of a single character in a string and assign the position to a variable:

Sub Find_Char()
  Dim n As Long
  n = InStr("Here Look Here", "L")
End Sub

Search String for Word

This code will search a string for a word:

Sub Search_String_For_Word()
    Dim n As Long
    n = InStr("Here Look Here", "Look")
  
    If n = 0 Then
        MsgBox "Word not found"
    Else
        MsgBox "Word found in position: " & n
    End If
End Sub

If Variable Contains String

This code will test if a string variable contains a string of text:

Sub Variable_Contains_String()
    Dim str As String
    str = "Look Here"
    
    If InStr(str, "Here") > 0 Then
        MsgBox "Here found!"
    End If
End Sub

Instr and the Left Function

Instr can be used along with other text functions like Left, Right, Len, and Mid to trim text.

With the Left function you can output the text prior to a string of text:

Sub Instr_Left()
    Dim str As String
    Dim n As Long
    
    str = "Look Here"
    
    n = InStr(str, "Here")
    
    MsgBox Left(str, n - 1)

End Sub

Using Instr in Microsoft Access VBA

All of the above examples work exactly the same in Access VBA as in Excel VBA.

To learn more, read our article: VBA text functions

<<Return to VBA Examples