Excel VBA Autofilter - Несколько критериев «начать с»

Question

Я использую vba для автоматического создания списка в Excel 2010 и хотел бы автофильтировать список, основанный на трех или более критериях «начинается с» (например, «a * ", "До нашей эры*"). К сожалению, насколько я могу судить, у вас может быть только два критерия «начинается с» с использованием оператора: = xlOr.

Принятый ответ для VBA Autofilter (Text Filters) With Multiple Criteria of "begin with" выглядит так, как будто это сработает. Однако, зацикливая каждый элемент в списке и добавляя значения в массив, то автоподбор точного соответствия этим элементам является громоздким. Особенно с очень большими списками.

Есть ли лучший способ для автофильтра более двух критериев «начинается с»?

Answer 1

Примечание: Принимается ответ, но OP использует ответ Гэри ранее упомянутый в вопросе

Скажем, у нас есть данные, такие как:

и мы хотим, чтобы увидеть детали начиная с любой A, D, или M.

Запуск этого макроса:

Sub ThreeWay() 
    Dim rng As Range, r As Range 
    Set rng = Range("A2:A25") 

    For Each r In rng 
     v = Left(r.Value, 1) 
     If v = "A" Or v = "D" Or v = "M" Then 
      r.EntireRow.Hidden = False 
     Else 
      r.EntireRow.Hidden = True 
     End If 
    Next r 
End Sub 

будет производить:

Примечание:

• это "фильтр-от руки", а не истинный Автофильтр
• если у вас абсолютно должен быть AutoFilter, то используйте метод в моем старом столбце