Xin các Thầy giúp code lọc và tách dữ liệu theo chữ cái ABC :( (1 người xem)

[ducky2301]

Em có 2 file txt toàn là email (mấy trăm ngàn cái), em muốn đưa vào excel và lọc lại.
Trong file excel em làm có 1 cái form để import file text vào (nhờ thầy siwtom chỉ làm), em đã vẽ thêm 3 cái button trên form đó bao gồm 3 việc em cần giúp :
1. Xoá hotmail.com : xoá tất cả email của hotmail.com
2. Xoá aol.com : xoá tất cả email của aol.com
3. Lọc ABC : lọc email theo chữ cái ABC và đưa vào từng sheet tương ứng, em đã tạo 26 sheet chữ cái (còn mail bắt đầu bằng Số thì xoá bỏ). Khi đưa email vào từng Sheet chữ Cái thì luôn luôn đưa vào cell dưới cùng của cột A.

Tất cả các Sheet chỉ làm việc trên cột A. Em gửi kèm file excel và file text mẫu (file thật nặng quá) xin các Thầy giúp đỡ .

 

[vu_tuan_manh_linh]

Em có 2 file txt toàn là email (mấy trăm ngàn cái), em muốn đưa vào excel và lọc lại.
Trong file excel em làm có 1 cái form để import file text vào (nhờ thầy siwtom chỉ làm), em đã vẽ thêm 3 cái button trên form đó bao gồm 3 việc em cần giúp :
1. Xoá hotmail.com : xoá tất cả email của hotmail.com
2. Xoá aol.com : xoá tất cả email của aol.com
3. Lọc ABC : lọc email theo chữ cái ABC và đưa vào từng sheet tương ứng, em đã tạo 26 sheet chữ cái (còn mail bắt đầu bằng Số thì xoá bỏ). Khi đưa email vào từng Sheet chữ Cái thì luôn luôn đưa vào cell dưới cùng của cột A.

Tất cả các Sheet chỉ làm việc trên cột A. Em gửi kèm file excel và file text mẫu (file thật nặng quá) xin các Thầy giúp đỡ .

Không cần phải xóa gì cả, mục tiêu của bạn là lọc mai thôi. Copy toàn bộ dữ liệu từ file text vào sheet Data, rồi bấm nút Lọc mail là xong.

 

[ducky2301]

Không cần phải xóa gì cả, mục tiêu của bạn là lọc mai thôi. Copy toàn bộ dữ liệu từ file text vào sheet Data, rồi bấm nút Lọc mail là xong.

Cám ơn Bạn nhiều lắm, Bạn có thể giải thích 1 chút về các dòng code cho mình hiểu được không , mình muốn vừa làm vừa học, ko phải chỉ biết copy ko thôi .

Sub locmail()
Dim i, Sh, Chk
For i = 3 To Worksheets("Data").Range("A65536").End(xlUp).Row
Chk = Worksheets("Data").Cells(i, 1).Value
If InStr(1, Chk, "@hotmail") = 0 And _
InStr(1, Chk, "@aol") = 0 And _
Not IsNumeric(Left(Chk, 1)) Then
Sh = UCase(Left(Chk, 1))
Worksheets(Sh).Cells(Worksheets(Sh).Range("A65536").End(xlUp).Row + 1, 1).ClearContents
Worksheets(Sh).Cells(Worksheets(Sh).Range("A65536").End(xlUp).Row + 1, 1).Value = Chk
End If
Next
End Sub

_ Với lại nếu như mình chỉ muốn lấy những mail có đuôi là .com, .vn, .net, .org thì sửa code lại như thế nào ??

 

[Quang_Hải]

Em có 2 file txt toàn là email (mấy trăm ngàn cái), em muốn đưa vào excel và lọc lại.
Trong file excel em làm có 1 cái form để import file text vào (nhờ thầy siwtom chỉ làm), em đã vẽ thêm 3 cái button trên form đó bao gồm 3 việc em cần giúp :
1. Xoá hotmail.com : xoá tất cả email của hotmail.com
2. Xoá aol.com : xoá tất cả email của aol.com
3. Lọc ABC : lọc email theo chữ cái ABC và đưa vào từng sheet tương ứng, em đã tạo 26 sheet chữ cái (còn mail bắt đầu bằng Số thì xoá bỏ). Khi đưa email vào từng Sheet chữ Cái thì luôn luôn đưa vào cell dưới cùng của cột A.

Tất cả các Sheet chỉ làm việc trên cột A. Em gửi kèm file excel và file text mẫu (file thật nặng quá) xin các Thầy giúp đỡ .

Cũng may là bảng chữ cái chỉ có bi nhiêu đó, nếu bảng chữ cái có khoảng 1000 mẫu tự thì chết. Theo mình thì chỉ cần 2 sheet là đủ, 1 sheet tổng hợp và 1 sheet lọc theo yêu cầu, có ai xem được 2 sheet cùng lúc đâu

 

[ducky2301]

Cũng may là bảng chữ cái chỉ có bi nhiêu đó, nếu bảng chữ cái có khoảng 1000 mẫu tự thì chết. Theo mình thì chỉ cần 2 sheet là đủ, 1 sheet tổng hợp và 1 sheet lọc theo yêu cầu, có ai xem được 2 sheet cùng lúc đâu

_ Em không hiểu ý Thầy lắm, Thầy có thể hướng dẫn cụ thể hơn ko ??

 

[Quang_Hải]

_ Em không hiểu ý Thầy lắm, Thầy có thể hướng dẫn cụ thể hơn ko ??

Xem file đính kèm. Code đơn giản chỉ 1 dòng duy nhất. Có thể tùy biến bên ngoài sheet
Thích lọc bao nhiêu dk thì cứ thêm nối tiếp vào cột F và G. Nếu cột F có ký tự mà G bỏ trống thì sẽ lọc tất cả