Диапазон поиска, основанный на частичном укусе, соответствует неизвестному имени листа

Question

Я пытаюсь найти текст в MonthlyData, который может быть частичным совпадением с именем листа.

Я не буду знать имена листов, и я предполагаю, что пользователи могут вводить частичные имена в Поле MonthlyData.

Sub GetData()

Dim Data As Worksheet, WkSh As Worksheet
Set Data = ThisWorkbook.Worksheets("Data")

Dim TITLE As Range, MktPlace As Range, NetUnitsSold As Range, MonthlyData As Range
Set MonthlyData = Data.Range("A1:M500")
Set TITLE = MonthlyData.Columns("A")
Set MktPlace = MonthlyData.Columns("D")
Set NetUnitsSold = MonthlyData.Columns("G")

With MonthlyData.Cells
    .Find(what:=WkSh.Name, LookIn:=xlValues, lookat:=xlPart, MatchCase:=False)
End With

End Sub

Answer 1

Я бы использовал для l oop. Вот одна из идей:

dim r as range
dim result as string

for each r in monthlycells
    if lcase(wksh.name) like "*" & lcase(r.value2) & "*" then
        result = r.value2
    end if
next

Примечание: оператор как чувствителен к регистру.