Список поиска Excel для элемента и его суффиксы

Question

Я пытаюсь найти все экземпляры в списке для записей, которые соответствуют или начинаются с тех, которые перечислены в группе критериев.Представьте себе список серверов, состоящий из следующих.Там, где у нас есть база данных на этом сервере, она обозначается суффиксом _SQL, _ORACLE:

Столбец A

• VM001
• VM001_SQL
• VM002
• VM002_SQL
• VM003
• VM003_SQL
• VM0003_ORACLE
• VM004
• VM004_SQL
• VM005
• VM006

Мне нужно найти все серверы из группы ниже

Столбец D

• VM002
• VM003

Мне нужно иметь возможность идентифицировать 2 списка VM002 и 3 списка VM003 в списке в столбце A.

Я могу легко искать сколько разVM002 или VM003 появляются в общем списке с помощью функции =COUNTIF(A:A,D1&"*").

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

Answer 1

Сначала введите следующую пользовательскую функцию (UDF) в стандартном модуле:

Public Function Keyword(r1 As Range, r2 As Range) As Variant
    v1 = r1.Text
    For Each r In r2
        If InStr(v1, r.Text) = 1 Then
            Keyword = 1
            Exit Function
        End If
    Next r
    Keyword = ""
End Function

Затем в B1 введите:

=keyword(A1,$D$1:$D$2)

и копирование вниз:

Пользовательские функции (UDF) очень легко установить и использовать:

1. ALT-F11 открывает окно VBE
2. ALT-I ALT-M открывает новый модуль
3. вставляет содержимое и закрывает окно VBE

Если вы сохраните книгу, UDF будет сохранен вместе с ней.Если вы используете версию Excel более поздней, чем в 2003 году, вы должны сохранить файл как .xlsm, а не .xlsx

В удалить UDF:

1. откройте окно VBE, как указано выше
2. очистите код
3. закройте окно VBE

до используйте UDF из Excel:

= myfunction (A1)

Чтобы узнать больше о макросах в целом, см.

http://www.mvps.org/dmcritchie/excel/getstarted.htm

и

http://msdn.microsoft.com/en-us/library/ee814735(v=office.14).aspx

и подробности о UDF см .:

http://www.cpearson.com/excel/WritingFunctionsInVBA.aspx

Для работы этой функции необходимо включить макросы!

РЕДАКТИРОВАТЬ # 1:

Чтобы использовать UDF для полного столбца, используйте эту версию вместо:

Public Function Keyword(r1 As Range, r2 As Range) As Variant
    v1 = r1.Text

    Set r2 = Intersect(r2, r2.Parent.UsedRange)

    For Each r In r2
        If r.Value <> "" Then
            If InStr(v1, r.Text) = 1 Then
                Keyword = 1
                Exit Function
            End If
        End If
    Next r
    Keyword = ""
End Function