Chuyển đổi chuỗi email trên word sang dạng cột (2) (1 người xem)

[vts2013]

Chào các bạn!
Tôi có danh sách các email theo dạng (1) như trên hình, giờ muốn chuyển thành dạng (2) thì phải làm gì trên excel. Danh sách này rất dài nên mong mọi người giúp đỡ làm sao thao tác nhanh nhất.

Chẳng hạn chuyển từ một chuối cách nhau dấu "," như sau:
12345dfsadf@yahoo.com.vn, 12345dfsadf 25245@vnn.vn, 12345dfsadf546546r@gmail.com, 12345dfsadf 15566899@yahoo.com, 156512345dfsadf @yahoo.com, hongpr558902@yahoo.com, tuyen156899@yahoo.com, vutuye11155t@gmail.com,

Thành cột như sau
12345dfsadf@yahoo.com.vn,
12345dfsadf 25245@vnn.vn,
12345dfsadf546546r@gmail.com,
12345dfsadf 15566899@yahoo.com,
156512345dfsadf @yahoo.com,
hongpr558902@yahoo.com,
tuyen156899@yahoo.com,
vutuye11155t@gmail.com,

Mục đích là copy nó ném qua excel để quản lý nhưng tôi chưa nghĩ ra cách, mong được giúp đỡ. Làm thủ công nhấn enter thì rất mệt.
Xin gửi hình + file mẫu đính kèm. Cám ơn mọi người và mong nhận được sự trợ giúp của các bạn.

 

[leonguyenz]

Chào các bạn!
Tôi có danh sách các email theo dạng (1) như trên hình, giờ muốn chuyển thành dạng (2) thì phải làm gì trên excel. Danh sách này rất dài nên mong mọi người giúp đỡ làm sao thao tác nhanh nhất.
...
Mục đích là copy nó ném qua excel để quản lý nhưng tôi chưa nghĩ ra cách, mong được giúp đỡ. Làm thủ công nhấn enter thì rất mệt.
Xin gửi hình + file mẫu đính kèm. Cám ơn mọi người và mong nhận được sự trợ giúp của các bạn.

Nhấn Alt+F8 để tạo Marco, đặt tên Tach_Chuoi, nhấn Create và đưa code này vào cửa sổ VBA:

Sub Tach_Chuoi()
Dim Arr As Variant, i As Integer
Arr = Split(Selection, ",")
Selection.EndKey Unit:=wdStory
For i = 0 To UBound(Arr)
    Selection.TypeParagraph
    Selection.TypeText Text:=Trim(Arr(i))
Next i
End Sub

Đóng cửa sổ VBA lại.
Bôi đen hết danh sách mail, nhấn Alt+F8, chọn Tach_Chuoi và nhấn Run.
Code tôi chèn sẵn trong file đính kèm, bạn xem và làm theo thử, rồi chèn code lại trong file gốc của bạn. Hoặc copy dữ liệu từ file gốc qua file đính kèm này, sau đó thao tác: Bôi đen hết danh sách mail, nhấn Alt+F8, chọn Tach_Chuoi và nhấn Run.

 

[vts2013]

Quá tuyệt vời. Cám ơn anh đã chỉ rất chi tiết. Chúc anh sức khỏe và may mắn.