Google Sheets хочет удалить все строки, которые принимают те, которые находятся в контрольном списке

Question

Я не очень хорош в этом, но у меня есть документ с таблицами Google, в котором есть электронные письма в столбцах и другие столбцы данных.

Затем у меня есть другой лист со списком, например, @hotmail.com @ gmail.com и другие

На главном листе я хочу удалить все строки, если нет (исключение) выше, затем сохранить эту строку.

Я нашел это для Excel, ноэто для хранения столбцов, но это вроде того, что я хочу ... в основном я хочу отправлять только электронные письма на обычные адреса электронной почты и удалять все КОМПАНИИ и другие не СОЦИАЛЬНЫЕ контакты.

Так что для этого я хочу сохранитьсписок социальных писем ... и попросите листы Google удалить все те строки, которые не содержат список "сохранить электронную почту".

Sub FOLSPrePaidRates()
    Dim keepColumn As Boolean
    Dim currentColumn As Integer
    Dim columnHeading As String

    currentColumn = 1
    While currentColumn <= ActiveSheet.UsedRange.Columns.Count
        columnHeading = ActiveSheet.UsedRange.Cells(1, currentColumn).Value

        'CHECK WHETHER TO KEEP THE COLUMN
        keepColumn = False
        If columnHeading = "Guest_Name" Then keepColumn = True
        If columnHeading = "BOOK_NUM" Then keepColumn = True
        If columnHeading = "arrival_Date" Then keepColumn = True
        If columnHeading = "Total_Amount" Then keepColumn = True
        If columnHeading = "Deposit_Paid" Then keepColumn = True
        If columnHeading = "Guaranty" Then keepColumn = True
        If columnHeading = "Rate" Then keepColumn = True


        If keepColumn Then
        'IF YES THEN SKIP TO THE NEXT COLUMN,
            currentColumn = currentColumn + 1
        Else
        'IF NO DELETE THE COLUMN
            ActiveSheet.Columns(currentColumn).Delete
        End If

        'LASTLY AN ESCAPE IN CASE THE SHEET HAS NO COLUMNS LEFT
        If (ActiveSheet.UsedRange.Address = "$A$1") And (ActiveSheet.Range("$A$1").Text = "") Then Exit Sub
    Wend
End Sub

Может кто-нибудь помочь мне, пожалуйста.

Извините. ..Я пытаюсь создать это письмо с автоматическим слияниями ... и мне нужна помощь, чтобы удалить все неправильные данные.

спасибо.

Answer 1

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