Cách tách địa chỉ email khỏi văn bản trong excel

Chào mọi người,

Bất cứ ai có thể tư vấn làm thế nào để giải quyết vấn đề trên

Tôi có nhiều địa chỉ email trong một ô. Nhưng để giải nén chúng ra, tôi phải làm thủ công từng cái một

Có cách nào thoát khỏi điều này không?

làm ơn tư vấn, cảm ơn

Chắc chắn rồi. VBA hoặc một số công thức có thể làm điều đó, hãy đăng một bộ dữ liệu mẫu tốt

Xin chào jbeaucaire

đây là dữ liệu, đánh giá cao sự giúp đỡ của bạn, cảm ơn


apus98@singnet. com. sg;aptreal@singnet. com. sg;aptkl@singnet. com. sg;aptech@singnet. com. sg;aptconst@singnet. com. sg;apt212@singnet. com. sg;apssin@singnet. com. sg;apspl@singnet. com. sg;apspi@singnet. com. sg;aprsi@singnet. com. sg;aprkeng@singnet. com. sg;apptech@singnet. com. sg;applica@singnet. com. sg;appleton@singnet. com. sg;appic@singnet. com. sg;appco@singnet. com. sg;apparels@singnet. com. sg;apower@singnet. com. sg;apossys@singnet. com. sg;apnprop@singnet. com. sg;apmstech@singnet. com. sg;apmmb@singnet. com. sg;aplusea@singnet. com. sg;aplsin@singnet. com. sg;aplsbs@singnet. com. sg;apljob@singnet. com. sg;aplio@singnet. com. sg;aplc01@singnet. com. sg;apimd@singnet. com. sg;apifa@singnet. com. sg;apiepl@singnet. com. sg;apexsin@singnet. com. sg;apexphar@singnet. com. sg

Nếu dữ liệu thực sự đơn giản như vậy, thì

1] Đảm bảo rằng tất cả dữ liệu nằm trong một cột và các cột bên phải trống
2] Đánh dấu cột dữ liệu
3] Chọn Dữ liệu > Văn bản thành Cột > Được phân cách > Khác. ;

Nên làm vậy

Nếu tất cả các địa chỉ email đó nằm hoàn toàn bên trong A1 và cột B trống, hãy thử macro này để đặt tất cả chúng vào cột B cho bạn

Mã số

Option Explicit

Sub ParseStrings[]
Dim MyArr As Variant

MyArr = Split[Range["A1"], ";"]
Range["B1"].Resize[UBound[MyArr] + 1].Value = _
    Application.WorksheetFunction.Transpose[MyArr]

End Sub

jbeaucaire anh ấy nói

Nếu dữ liệu thực sự đơn giản như vậy, thì

1] Đảm bảo rằng tất cả dữ liệu nằm trong một cột và các cột bên phải trống
2] Đánh dấu cột dữ liệu
3] Chọn Dữ liệu > Văn bản thành Cột > Được phân cách > Khác. ;

Nên làm vậy

Bấm để mở rộng

Để làm điều này chỉ bằng cách sử dụng công thức, chúng ta cần xem một ví dụ rất rõ ràng và chính xác về tất cả các biến thể sẽ thấy trong các ô được đề cập. Hãy cho chúng tôi xem một số ví dụ điển hình và chúng tôi sẽ xem những gì chúng tôi có thể nghĩ ra

Tất nhiên bạn dùng đến VBA, Anything is Possible. Nhưng nó có lẽ là có thể với các công thức để. Cho chúng tôi thấy trước và sau và chúng tôi sẽ xem liệu chúng tôi có thể kết nối các dấu chấm không

Xin chào, cảm ơn vì sự hoàn nguyên của bạn - Vui lòng tìm chi tiết bên dưới theo yêu cầu

Tên trang tính. Nguồn

ABC1Danh sách quốc giaGửi email tới2Quốc gia AAmit. kumar@châu Á. mkassociate. com;Sejal. vyas@algeria. mkassociate. com;nitin. sharan@asia. mkassociate. com=Proper[Iferror[Trái[B2,Tìm kiếm[". ",B2]-1,""]]3Country BDelly. Dsouza@asia. mkassociate. com;prinu. Patel@Châu Á. mkassociate. com=Proper[Iferror[Trái[B3,Tìm kiếm[". ",B3]-1,""]]4Country CVikas. Kumar@châu Á. mkassociate. com;royse. ph@asia. mkassociate. com;Mike. hoa hồng@nhật bản. mkassociate. com;Tejal. Kumar@châu Á. mkassociate. com=Proper[Iferror[Trái[B4

,Tìm kiếm[". ",B4]-1,""]]​