Tìm kiếm dữ liệu có điều kiện (1 người xem)

[kulyvn]

Làm sao để tìm tất cả các chữ trong đó có đuôi @gmail.com ở cột A và trả kết quả về ô B2, kết quả là các địa chỉ email được viết cách nhau bởi dấu ;
Nhờ các anh chị giúp đỡ . Xin cám ơn

 

[quanluu]

Làm sao để tìm tất cả các chữ trong đó có đuôi @gmail.com ở cột A và trả kết quả về ô B2, kết quả là các địa chỉ email được viết cách nhau bởi dấu ;
Nhờ các anh chị giúp đỡ . Xin cám ơn

Định làm quả gửi mail hàng loạt hả bạn?

 

[kulyvn]

để lấy email khách hàng trong file dữ liệu à

Định làm quả gửi mail hàng loạt hả bạn?

 

[Ba Tê]

Làm sao để tìm tất cả các chữ trong đó có đuôi @gmail.com ở cột A và trả kết quả về ô B2, kết quả là các địa chỉ email được viết cách nhau bởi dấu ;
Nhờ các anh chị giúp đỡ . Xin cám ơn

để lấy email khách hàng trong file dữ liệu à

Thử xài Hàm tự tạo coi sao.
B2=GPE(A2:A6;"gmail.com")

Public Function GPE(Rng As Range, Str As String)
Dim Arr(), I As Long, Txt As String
Arr = Rng.Value
For I = 1 To UBound(Arr)
    If Arr(I, 1) Like "*" & Str Then
        Txt = Txt & Trim(Mid(Arr(I, 1), InStr(Arr(I, 1), ":") + 1, Len(Arr(I, 1)))) & "; "
    End If
Next I
GPE = Left(Txt, Len(Txt) - 2)
End Function

 

[quanluu]

để lấy email khách hàng trong file dữ liệu à

cái này làm thủ công cũng đc mà
B1: FIlter lấy dòng có @gmail, copy ra vùng mới
B2: replace để xóa "Email:"
B3: Chuyển từ cột sang hàng (copy tranpose)
B4: copy sang notepad, thay tab bằng ;

 

[kulyvn]

ok anh, đơn giản vậy mà không nghĩ ra

cái này làm thủ công cũng đc mà
B1: FIlter lấy dòng có @gmail, copy ra vùng mới
B2: replace để xóa "Email:"
B3: Chuyển từ cột sang hàng (copy tranpose)
B4: copy sang notepad, thay tab bằng ;

 

[phuyen89]

Làm sao để tìm tất cả các chữ trong đó có đuôi @gmail.com ở cột A và trả kết quả về ô B2, kết quả là các địa chỉ email được viết cách nhau bởi dấu ;
Nhờ các anh chị giúp đỡ . Xin cám ơn

Mình tách theo Công thức sau.Bạn xem được không.

=IF(FIND("@gmail.com";A2)>0;TRIM(RIGHT(A2;LEN(A2)-FIND(":";A2)));"")

 

[kulyvn]

Làm sao để bỏ dấu cách trước địa chỉ email vậy bạn.
Kiểu thế này: longpham@gmail.com; haivan@gmail.com
Sau dấu ; chỉ cần 1 dấu cách thôi
Cám ơn bạn

Thử xài Hàm tự tạo coi sao.
B2=GPE(A2:A6;"gmail.com")

Public Function GPE(Rng As Range, Str As String)
Dim Arr(), I As Long, Txt As String
Arr = Rng.Value
For I = 1 To UBound(Arr)
    If Arr(I, 1) Like "*" & Str Then
        Txt = Txt & Trim(Mid(Arr(I, 1), InStr(Arr(I, 1), ":") + 1, Len(Arr(I, 1)))) & "; "
    End If
Next I
GPE = Left(Txt, Len(Txt) - 2)
End Function

 

[quanluu]

Làm sao để bỏ dấu cách trước địa chỉ email vậy bạn.
Kiểu thế này: longpham@gmail.com; haivan@gmail.com
Sau dấu ; chỉ cần 1 dấu cách thôi
Cám ơn bạn

Mình chạy code của @BaTe thấy có 1 dấu cách sau ";" mà.
Nếu đúng có 2 dấu cách, tại sao bạn ko xử lý đc nhỉ, 1 cái replace là xong.