Ai Giúp mình lọc lấy chuỗi trong Excel! (2 người xem)

[phamminhdu]

Đầu tiên, gửi lời chúc mừng đến tất cả anh chị emtrên diễn đàn một năm mới an khang, thịnh vượng và sức khoẻ!

Nhờ các anh chị giải đáp hộ em với. E có 1 bảngtrên Excel như sau File đính kèm)
13 vanphongso@sgddt.vungtau.vn[/TD]
10 ubndmychanh@phumy.vungtau.vn[/TD]
7 khanhhd@stnmt.vungtau.vn[/TD]
6 thuyptl@anlao.vungtau.vn[/TD]
6 tramnm@sct.vungtau.vn[/TD]
6 pgddthoaian@sgddt.vungtau.vn[/TD]
6 thptchuvanan@sgddt.vungtau.vn[/TD]
5 khoana@sct.vungtau.vn[/TD]
5 vp@sct.vungtau.vn[/TD]
4 toanpt@anlao.vungtau.vn[/TD]
4 longnt@bdt.vungtau.vn[/TD]
4 qldn@kkt.vungtau.vn[/TD]
4 vp@phucat.vungtau.vn[/TD]
4 bqldadtxd@quynhon.vungtau.vn[/TD]
4 hunghx@sct.vungtau.vn[/TD]
4 kient@sct.vungtau.vn[/TD]
4 minhnq@sct.vungtau.vn[/TD]
12 tan@stc.vungtau.vn[/TD]
12 tamtcf@stc.vungtau.vn[/TD]
234 toanpt@anlao.vungtau.vn[/TD]
234 tamtcf@stc.vungtau.vn[/TD]

Các vấn đề ở đây là :
Thứ 1: Em muốn lọc những dòng có chuỗi "stc.vungtau.vn" bên cột A1 sang cột B1 mà vẫn dữ nguyên nội dung như bên cột A1.
Nếu lọc được chắc chắn nó sẽ hiển thị tiêu biểu như sau:
12 tamtcf@stc.vungtau.vn
234 tamtcf@stc.vungtau.vn
Thứ 2: Sau khi có dữ liệu ở cột B1 xong, ở cột C1 e cần lấy những tài khoản trùng nhau, ví dụ ở đây trong cột B1 có 2 tài khoản trùng nhau là "tamtcf@stc.vungtau.vn" thì e cần lấy 1 cột. Mặt dù phía trước nó những con số khác nhau. Hoặc a chị nào làm gộp chung 2 bước lại cũng được ạ. Miễn sao kết quả cuối cùng trả về ở 1 cột khác A1 là "tamtcf@stc.vungtau.vn"
là được ạ. (Lưu ý trong danh sách trên có những dòng trùng số kí tự, nếu dùng hàm right hoặc left thì nó lọc luôn ra thằng " sct.vungtau.vn" # "stc.vungtau.vn". Mặt dù chúng cùng 14 kí tự, nên không chính xác).
Một lần nữa cảm ơn a/c đã giúp đỡ!

 

[dhn46]

Đặt Name: DATA

=IF(RIGHT(Sheet3!$A$1:$A$21,14)="stc.vungtau.vn",TRIM(MID(Sheet3!$A$1:$A$21,9,LEN(Sheet3!$A$1:$A$21)-8)),"")

Công thức

=IF(COUNTA(Data)>ROW(1:1),INDEX(Data,LARGE(IF(MATCH(Data,Data,0)=ROW(INDIRECT("1:"&ROWS(Data))),ROW(INDIRECT("1:"&ROWS(Data))),""),ROW(1:1))),"")

Cụ thể bạn xem File nhé

 

[phamminhdu]

cảm ơn bạn dhn46 đã giúp đỡ...rất đúng cái mình cần...

 

[phamminhdu]

A hnd46 ơi đặt code này ở đâu vậy anh =IF(RIGHT(Sheet3!$A$1:$A$21,14)="stc.vungtau.vn",TRIM(MID(Sheet3!$A$1:$A$21,9,LEN(Sheet3!$A$1:$A$21)-8)),"")

E đặt code này sang cột C mà nó không hiểu..A chỉ e dùm..cảm ơn a

 

[vanle33]

A hnd46 ơi đặt code này ở đâu vậy anh =IF(RIGHT(Sheet3!$A$1:$A$21,14)="stc.vungtau.vn",TRIM(MID(Sheet3!$A$1:$A$21,9,LEN(Sheet3!$A$1:$A$21)-8)),"")

E đặt code này sang cột C mà nó không hiểu..A chỉ e dùm..cảm ơn a

Đó là Name
Bạn vào excel nhấn Ctrl+F3
ấn New
tại name ghi Data
tại Refers to thì copy công thức trên
OK
Sau đó sử dụng công thức như bài #2

 

[dhn46]

A hnd46 ơi đặt code này ở đâu vậy anh =IF(RIGHT(Sheet3!$A$1:$A$21,14)="stc.vungtau.vn",TRIM(MID(Sheet3!$A$1:$A$21,9,LEN(Sheet3!$A$1:$A$21)-8)),"")

E đặt code này sang cột C mà nó không hiểu..A chỉ e dùm..cảm ơn a

+1) Trong bài giải có Name và công thức trên Cell (Name bạn bấm Ctrl + F3 là thấy). Nếu bạn muốn đổi dữ liệu chỗ nào thì thay tất cả đoạn Sheet3!$A$1:$A$21 trong Name và công thức bằng địa chỉ vùng dữ liệu của bạn
+2) Hổng có biết bạn hnd46 nha

 

[phamminhdu]

+1) Trong bài giải có Name và công thức trên Cell (Name bạn bấm Ctrl + F3 là thấy). Nếu bạn muốn đổi dữ liệu chỗ nào thì thay tất cả đoạn Sheet3!$A$1:$A$21 trong Name và công thức bằng địa chỉ vùng dữ liệu của bạn
+2) Hổng có biết bạn hnd46 nha

Chỗ này thì em hiểu,,,Tùy cơ ứng biến..đúng không a? Sorry vì đánh nhầm tên a...Chúc a Sức khỏe

 

[phamminhdu]

E đã thành công rồi...Chân thành cảm ơn các anh...Đặt biệt anh dhn46 và bạn vanle33

 

[hungpecc1]

Đầu tiên, gửi lời chúc mừng đến tất cả anh chị emtrên diễn đàn một năm mới an khang, thịnh vượng và sức khoẻ!

Nhờ các anh chị giải đáp hộ em với. E có 1 bảngtrên Excel như sau File đính kèm)

Các vấn đề ở đây là :
Thứ 1: Em muốn lọc những dòng có chuỗi "stc.vungtau.vn" bên cột A1 sang cột B1 mà vẫn dữ nguyên nội dung như bên cột A1.
Nếu lọc được chắc chắn nó sẽ hiển thị tiêu biểu như sau:
12 tamtcf@stc.vungtau.vn
234 tamtcf@stc.vungtau.vn
Thứ 2: Sau khi có dữ liệu ở cột B1 xong, ở cột C1 e cần lấy những tài khoản trùng nhau, ví dụ ở đây trong cột B1 có 2 tài khoản trùng nhau là "tamtcf@stc.vungtau.vn" thì e cần lấy 1 cột. Mặt dù phía trước nó những con số khác nhau. Hoặc a chị nào làm gộp chung 2 bước lại cũng được ạ. Miễn sao kết quả cuối cùng trả về ở 1 cột khác A1 là "tamtcf@stc.vungtau.vn"
là được ạ. (Lưu ý trong danh sách trên có những dòng trùng số kí tự, nếu dùng hàm right hoặc left thì nó lọc luôn ra thằng " sct.vungtau.vn" # "stc.vungtau.vn". Mặt dù chúng cùng 14 kí tự, nên không chính xác).
Một lần nữa cảm ơn a/c đã giúp đỡ!

Theo mình bài này nếu số lượng mail lên đến hàng nghìn, thì dùng code cho khỏe!
Mình bổ sung thêm cái DropDowns cho nó màu mè ,

Private Sub FilterMail()    
    Dim tmparr, Arr, item, tmp As String
    Dim n As Long
    Dim cbo As DropDown, sCboval As String
        Set cbo = ActiveSheet.DropDowns("Drop Down 2")
        sCboval = cbo.List(cbo.ListIndex)
        tmparr = Range([A1], [A65536].End(3)).Value
        ReDim Arr(1 To UBound(tmparr, 1), 1 To 2)
        With CreateObject("Scripting.Dictionary")
            For Each item In tmparr
                If Replace(Right$(CStr(item), Len(CStr(item)) - _
                                            InStr(CStr(item), "@") + 1), " ", "") Like sCboval Then
                    tmp = mail(item)
                    If Not .exists(tmp) Then
                        n = n + 1
                        .Add tmp, ""
                        Arr(n, 1) = tmp
                    End If
                End If
            Next
            MsgBox " Tim duoc tat ca " & .Count & " dia chi mail thoa man ", vbOKOnly
        End With
        [B1:C1000].Clear
        If n Then [b1].Resize(n, 2) = Arr
End Sub

Tham khảo file đính kèm !


^^ Sợ cuối năm anh Ndu bận nên :
Nếu anh Ndu có xem qua bài này ---> em uốn hỏi :
Thuộc tính .value của thằng DropDowns và .List(ListIndex) em thấy nó đều cho ra số thứ tự trong list DropDowns --> em không hiểu 2 thằng này cụ thể nó khác nhau ntn ( em nhờ google rồi mà không ra vấn đề )
Anh có thể giải thích , khai thông bế tắc cho em không ****Thanks*****