Подстрока соответствия - PullRequest
Новая
       9

Подстрока соответствия

0 голосов
/ 09 октября 2018

У меня много проблем, когда я пытаюсь выполнить простое совпадение подстроки vba.Я пытаюсь создать функцию, которая будет сопоставлять банк слов с одной ячейкой и нечувствительна к регистру.

Вот код, который у меня есть 

Function Simplematch(Rng As Range, Bank As Range) As String

Application.Volatile
Dim result1 As String
Dim singlecell As Range

For Each singlecell In Bank

  If InStr(LCase(singlecell), LCase(Rng)) <> 0 Then
  result1 = InStr(LCase(singlecell), LCase(Rng))
  End If

'exit loop if there is a match
    If result1 > 0 Then Exit For

'continue looping    
Next singlecell

simplematch= result1

End Function

Желаемый результат Result

...