Vba excel символы подстановки

Добрый день.
Подскажите, как в макросе использовать подстановочные символы типа «*» или «?», используемые при обычном поиске? Никак не соображу, а поиск в инете уводит в такие теоретические выкладки, что мозг закипает.
Задача такая: есть книга (заполняется она другим отделом, и повлиять на этот процесс нет возможности), в ней листы по месяцам, и к сожалению в именах листов встречаются лишние пробелы, например «май «, а есть и без «излишеств». Каким образом отсечь такие лишние пробелы?

Sub General_Work()
Dim dLastRow As Long, sLastRow As Long, sSheet As String, Mounth As String, sPath As String, sFileName As String
Set dbk = Application.ActiveWorkbook
Mounth = Sheets(1).Cells(2, 7) ' ячейка в которой указан необходимый месяц
dLastRow = Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row
    sPath = "D:отдел"
    sFileName = "реестр.xls"
    Workbooks.Open Filename:=sPath & sFileName, _
        ReadOnly:=True
Set sbk = Application.ActiveWorkbook
sLastRow = Sheets("ВЫП " & Mounth & " ").Cells(Rows.Count, 2).End(xlUp).Row 'работает, нужен подст симв
' sLastRow = Sheets("ВЫП " & Mounth & "*").Cells(Rows.Count, 2).End(xlUp).Row 'не работает

MsgBox " Последняя строка: " & sLastRow
End Sub

Оператор Like VBA

Like — это оператор в VBA, и это оператор сравнения, который сравнивает заданную строку в качестве аргумента в наборе строк и соответствует шаблону, если шаблон соответствует, то полученный результат является истинным, а если шаблон не соответствует, то полученный результат ложный, это встроенный оператор в VBA.

Оператор «LIKE» — самый недоиспользуемый оператор, несмотря на прекрасное использование. Я не видел много людей, которые использовали бы этот оператор в полной мере в своем кодировании. Фактически, я один из тех, кто не использует этот оператор достаточно часто. Оператор «VBA LIKE» позволяет нам сопоставить образец строки с полной строкой. Используя оператор VBA LIKE, мы можем сравнить две строки с заданным шаблоном. Мы можем проверить, содержит ли строка подстроку в VBA, или мы также можем проверить, содержит ли строка какой-либо определенный формат. Если шаблон соответствует строке, оператор VBA LIKE возвращает TRUE или FALSE.

При сопоставлении строк нам нужно использовать подстановочные знаки для указанного шаблона. Ниже приведены подстановочные знаки, которые мы используем в операторе VBA LIKE.

• Вопросительный знак (?): Используется для сопоставления любого символа в строке. Например, если у нас есть строка «CAT», а шаблон — «C? T», тогда оператор VBA LIKE возвращает TRUE. Если строка — «CATCH, а шаблоны -« C? T », тогда оператор VBA LIKE возвращает FALSE.
• Звездочка (*): соответствует нулю или большему количеству символов. Например, если строка имеет значение «Хорошо», а шаблон — «G ** d», оператор VBA LIKE возвращает значение ИСТИНА.
• Скобки ([]): соответствует любому одиночному символу, указанному в скобках.
• [Char-Char]: соответствует любому одиночному символу в диапазоне Char-Char.
• [! Chars]: соответствует любому одиночному символу, отсутствующему в списке.
• [! Char-Char]: соответствует любому одиночному символу, не входящему в диапазон Char-Char.

Примеры оператора VBA LIKE

Давайте теперь посмотрим на некоторые примеры оператора LIKE в VBA.

Вы можете скачать этот шаблон VBA Like Excel здесь — Шаблон VBA Like Excel

Пример №1 — С вопросительным знаком

Код:

 Sub QuestionMark_Example1 () Dim k As String k = "Good" If k Like "Go? D" Then MsgBox "Yes" Else MsgBox "No" End If End Sub 

В приведенном выше коде мы предоставили строку как «Хорошо», а шаблон — «Go? D». Поскольку вопросительный знак может соответствовать одному символу, результат будет отображаться как «Да».

Теперь поменяю строку на «Доброе утро».

Код:

 Sub QuestionMark_Example1 () Dim k As String k = "Доброе утро" Если k Like "Go? D" Тогда MsgBox "Yes" Else MsgBox "No" End If End Sub 

В этом случае будет показано «Нет», потому что мы добавили в строку еще одно слово, то есть «Утро». Чтобы соответствовать любому количеству символов, нам нужно использовать звездочку.

Пример # 2 — Со звездочкой

Код:

 Sub QuestionMark_Example2 () Dim k As String k = "Доброе утро" Если k Like "* Good *" Then MsgBox "Yes" Else MsgBox "No" End If End Sub 

В приведенном выше примере я добавил две звездочки до и после символа «* Хорошо *». Это будет соответствовать слову «Хорошо» в строке «Доброе утро» и вернет «Да».

Пример № 3 — Со скобками []

Код:

 Sub QuestionMark_Example3 () Dim k As String k = "Доброе утро" Если k Like "* [M] *" Then MsgBox "Yes" Else MsgBox "No" End If End Sub 

Приведенный выше код соответствует единственной букве, указанной в скобке «M», и возвращает ответ «Да».

Пример №4 — Со скобками и алфавитами [AZ]

Код:

 Sub QuestionMark_Example4 () Dim k As String k = "Доброе утро" Если k Like "* [AD] *" Then MsgBox "Yes" Else MsgBox "No" End If End Sub 

Выше я упомянул символы для соответствия от A до D.

Это возвращает «Нет» , потому что нет никаких символов от А до D в строке «Доброе утро» .

Теперь я изменю шаблон на [AH]

Код:

 Sub QuestionMark_Example4 () Dim k As String k = "Доброе утро" Если k Like "* [AH] *" Then MsgBox "Yes" Else MsgBox "No" End If End Sub 

Это вернет «Да», потому что от A до H у нас есть символ «G» в строке «Доброе утро».

Таким образом, мы можем использовать оператор VBA «LIKE» для сопоставления любой строки из шаблона с символами подстановки.