Удалить все строки, когда найден активный адрес электронной почты, содержащий ячейку - PullRequest
Новая
       11

Удалить все строки, когда найден активный адрес электронной почты, содержащий ячейку

0 голосов
/ 11 октября 2019

Может быть есть другой способ удалить все строки, когда найден активный адрес электронной почты, содержащий ячейку?

Теперь мне любопытно, правильно ли я подошел к своему проекту Excel. Я написал макрос для копирования содержимого ячейки, перейдите к Листу-2, найдите все совпадения и выберите все строки, содержащие содержимое скопированной ячейки, затем удалите все строки и вернитесь домой, чтобы снова сделать это с другой ячейкой. ( это для удаления доставляемых адресов электронной почты от владельцев регистраций на моем сайте ) 

Sub Macro4()
'
' Macro4 Macro
'
' Keyboard Shortcut: Ctrl+Shift+M
'
    Range("A2").Select
    Selection.Copy
    Sheets("Sheet 2").Select
    Application.CutCopyMode = False
    Selection.EntireRow.Delete
    Range("A1").Select
    Sheets("Sheet 1").Select
    Range("A1").Select

    Range("A3").Select
    Selection.Copy
    Sheets("Sheet 2").Select
    Application.CutCopyMode = False
    Selection.EntireRow.Delete
    Range("A1").Select
    Sheets("Sheet 1").Select
    Range("A1").Select

    Range("A4").Select
    Selection.Copy
    Sheets("Sheet 2").Select
    Application.CutCopyMode = False
    Selection.EntireRow.Delete
    Range("A1").Select
    Sheets("Sheet 1").Select
    Range("A1").Select

    Range("A5").Select
    Selection.Copy
    Sheets("Sheet 2").Select
    Application.CutCopyMode = False
    Selection.EntireRow.Delete
    Range("A1").Select
    Sheets("Sheet 1").Select
    Range("A1").Select

End Sub

Макросы запускаются, но на самом деле не удаляют строки, как указано в строке 5, но возвращаются домой. на обоих листах.

Мой вопрос есть;Смогу ли я отфильтровать столбец электронной почты для адресов электронной почты на листе 1, как вы фильтровали пустые ячейки, а затем удалили строки каждого экземпляра на листе 2? (Обратите внимание: на листе 1 есть известные неточные электронные письма A2..A22, а на листе 2 есть таблица всех владельцев регистрации с адресами электронной почты в столбце «E»)

Спасибо за ваше время, внимание и ваш ответ.

...