Excel Script - Разделить список на 3 листа

Question

Каждый месяц я запускаю отчет по адресам электронной почты и разбиваю список на 3 разных листа в одной книге в зависимости от домена каждого адреса. Каждая строка содержит около 5 столбцов данных, поэтому вся строка должна быть перенесена на следующий лист.

Это будет выглядеть примерно так:

Если столбец B содержит "@ aaaaaa.com" держать строку на листе 1.

Если столбец B содержит "@ bbbbbb.com" переместить весь строка на лист 2.

Если столбец B содержит "@ cccccc.com" переместить всю строку лист 3. Проверки следующей строке

В конце концов мне нужно 3 отдельных листа, которые содержат список каждого из трех доменных адресов электронной почты. Я делаю это вручную, и через 400+ строк слишком утомительно, когда я теперь лучший способ. Любая помощь по этому поводу будет высоко оценена!

Answer 1

Этого должно быть достаточно, чтобы вы начали.

Sub split() 

Dim lastrow As Integer 
Dim ws1 As Worksheet 
Dim ws2 As Worksheet 
Dim ws3 As Worksheet 
Dim domain As String 
Dim a As String 
Dim b As String 
Dim c As String 

Set ws1 = Worksheets(1) 
Set ws2 = Worksheets(2) 
Set ws3 = Worksheets(3) 

a = "aaaaaa.com" 
b = "bbbbbb.com" 
c = "cccccc.com" 

lastrow = ws1.Cells(ws1.Rows.Count, "B").End(xlUp).Row 

ws1.Select 

For i = 1 To lastrow 

    domain = Right(Cells(i, 2), 10) 

    If domain = b Then 

     Rows(i).Copy 
     ws2.Cells(i, 1).PasteSpecial 

    End If 

Next i 

End Sub