Lọc số điện thoại theo từng mạng! (1 người xem)

[nnd1988]

Em có 1 danh sách các số điện thoại của nhiều khách hàng của tất cả các nhà mạng! Em muốn nhờ anh chị giúp em đoạn code để có thể lọc ra được theo từng nhà mạng. Do dữ liệu em copy từ nhiều nguuòn khác nhau nên dữ liệu nhiều khi không chuẩn(Thiếu số 0) ạ!
Kết quả mong muốn em đã nhập trong File rồi ạ!

 

[giangleloi]

Em có 1 danh sách các số điện thoại của nhiều khách hàng của tất cả các nhà mạng! Em muốn nhờ anh chị giúp em đoạn code để có thể lọc ra được theo từng nhà mạng. Do dữ liệu em copy từ nhiều nguuòn khác nhau nên dữ liệu nhiều khi không chuẩn(Thiếu số 0) ạ!
Kết quả mong muốn em đã nhập trong File rồi ạ!

Cái này làm dễ ẹc. Nhưng bạn hãy cho thêm 1 bảng đầu số để phân biệt các nhà mạng đi (tự làm cái này luôn cũng được nhưng nên dành cho bạn để lần sau khi hỏi bài, bạn còn biết nên chuẩn bị những gì trước khi hỏi).

 

[nnd1988]

Cái này làm dễ ẹc. Nhưng bạn hãy cho thêm 1 bảng đầu số để phân biệt các nhà mạng đi (tự làm cái này luôn cũng được nhưng nên dành cho bạn để lần sau khi hỏi bài, bạn còn biết nên chuẩn bị những gì trước khi hỏi).

Cảm ơn bạn đã quan tâm! Mình xin đưa lại File có đầu số các nhà mạng!

 

[giangleloi]

Cảm ơn bạn đã quan tâm! Mình xin đưa lại File có đầu số các nhà mạng!

Hôm qua sỉn quá, bữa nay mới làm cho bạn đây. Xem file, bấm vào hình nhé.

 

[nnd1988]

Hôm qua sỉn quá, bữa nay mới làm cho bạn đây. Xem file, bấm vào hình nhé.

Cảm ơn bạn giangleloi nhiều lắm! Nhờ bạn mà mình rút ngắn được rất rất nhiều thời gian trong công việc!

 

[Lê Duy Thương]

Hôm qua sỉn quá, bữa nay mới làm cho bạn đây. Xem file, bấm vào hình nhé.

ngồi buồn góp vui thêm một cách

Sub LDT()
Dim Sh As Worksheet
Application.ScreenUpdating = False
Sheets("KHO SO").Range("E2:E" & [A6500].End(3).Row).FormulaR1C1 = "=VLOOKUP(""*""&LEFT(--RC4,IF(LEN(--RC4)>9,3,2))&""*"",R1C7:R7C8,2,0)"
 For Each Sh In Worksheets
   If Sh.Name <> "KHO SO" Then
   Sh.Range("A1:E1000").Clear
    With Range(Sheets("KHO SO").[A1], Sheets("KHO SO").[E6500].End(xlUp))
    .AutoFilter 5, Sh.Name
    .Copy: Sh.[A2].PasteSpecial (12)
    .AutoFilter
    Sh.Range("A:A,C:C,E:E").Delete Shift:=xlToLeft
    Sh.Cells.EntireColumn.AutoFit
   ' Sh.[A2] = "TEN": Sh.[B2] = "SO"
    End With
  End If
  Next
Sheets("KHO SO").[E:E].Clear
Sheets("KHO SO").Select
Application.ScreenUpdating = True
End Sub