-1

У меня есть список имен.
Мне нужно отделить имена, которые содержат символы g,j,p,q,y .
Имена могут начинаться с G,J,P,Q,Y то есть с символов в качестве первой буквы. Но символы g, j, p, q, y не должны быть в какой-либо другой части имени.

Пожалуйста, помогите мне.

Пример: необходимо отфильтровать имена, такие как
Кэти, ди-джей, диего, грей и т.д.

Исключения:
Джина, Грейси, Джейн, Присцилла и т.д.

1 ответ1

0

Я не знаю, как вы делаете это с формулой рабочего листа, но поскольку у вас нет ответа, VBa сделает это

Option Explicit
Sub WalkThePlank()

Dim column As String
column = "A"                      'Update this to ye starting col

Dim row As Integer
row = 1                             'Aye cap'an, this be your first row

Dim badLetters As String
badLetters = "gjpqy"               'piracy! Enter the scurvy seadog letters you don't want as a complete word

'don't touch below or be fed to the sharks

Do While Range(column & row).Value <> ""

    Dim name As String
    name = Range(column & row).Value

    Dim i As Integer
    For i = 0 To Len(badLetters)
        Dim c As String
        c = Mid(badLetters, i + 1, 1)
        If InStr(1, name, c) > 0 And c <> "" Then
            Range(column & row).Value = ""
            Exit For
        End If


    Next i

    row = row + 1

Loop    
End Sub

Как добавить VBA в MS Office?

Помните, что нет функции отмены, поэтому сначала сохраните копию !!

До

После

Всё ещё ищете ответ? Посмотрите другие вопросы с метками .