Đặt code vào cửa sổ code:
Trước tiên bạn click phải chuột vào tên sheet chứa dữ liệu bạn cần tách, chọn View code và dán đoạn Code này vào cửa sổ code:



Mã nguồn PHP:
[COLOR=#000000]
Sub cell_Transpose[/COLOR][COLOR=#007700]() [/COLOR][COLOR=#0000BB]Dim i[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]j[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]z[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]x[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]d [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Long Dim k [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Boolean Dim st [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Long Dim abc[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]xyz [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]String On Error [/COLOR][COLOR=#007700]GoTo [/COLOR][COLOR=#0000BB]errh Range[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"A65356"[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Select Selection[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]End[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]xlUp[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Select z [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]ActiveCell[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Row [/COLOR][COLOR=#007700]For [/COLOR][COLOR=#0000BB]x [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]1 To z d [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]1 st [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]2 Range[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"a" [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000BB]x[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Select abc [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]ActiveCell[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]For [/COLOR][COLOR=#0000BB]i [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]st To Len[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]abc[/COLOR][COLOR=#007700]) If [/COLOR][COLOR=#0000BB]i [/COLOR][COLOR=#007700]> [/COLOR][COLOR=#0000BB]Len[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]abc[/COLOR][COLOR=#007700]) [/COLOR][COLOR=#0000BB]Then Range[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"a" [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000BB]x[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Offset[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]0[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]d[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]abc [/COLOR][COLOR=#007700]Exit For [/COLOR][COLOR=#0000BB]End [/COLOR][COLOR=#007700]If If [/COLOR][COLOR=#0000BB]Asc[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Mid[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]abc[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]i[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700])) > [/COLOR][COLOR=#0000BB]64 [/COLOR][COLOR=#007700]And [/COLOR][COLOR=#0000BB]Asc[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Mid[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]abc[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]i[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700])) < [/COLOR][COLOR=#0000BB]91 Then Range[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"a" [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000BB]x[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Offset[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]0[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]d[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Left[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]abc[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]i [/COLOR][COLOR=#007700]- [/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700]) [/COLOR][COLOR=#0000BB]xyz [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Right[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]abc[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]Len[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]abc[/COLOR][COLOR=#007700]) - [/COLOR][COLOR=#0000BB]i [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700]) [/COLOR][COLOR=#0000BB]abc [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]xyz i [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]1 d [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]d [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#0000BB]1 End [/COLOR][COLOR=#007700]If [/COLOR][COLOR=#0000BB]Next i [/COLOR][COLOR=#007700]If [/COLOR][COLOR=#0000BB]Len[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"a" [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000BB]x[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Value[/COLOR][COLOR=#007700]) = [/COLOR][COLOR=#0000BB]Len[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]abc[/COLOR][COLOR=#007700]) [/COLOR][COLOR=#0000BB]Then Range[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"a" [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000BB]x[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Offset[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]0[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"a" [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000BB]x[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Value End [/COLOR][COLOR=#007700]If [/COLOR][COLOR=#0000BB]Next x errh[/COLOR][COLOR=#007700]: Exit [/COLOR][COLOR=#0000BB]Sub End Sub [/COLOR][COLOR=#007700][/ [/COLOR][COLOR=#0000BB]php[/COLOR][COLOR=#007700]] [/COLOR][COLOR=#0000BB]Tiếp theo bạn chọn vùng dữ liệu cần tách họ và tên[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]từ menu bạn chọn Tools[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]chọn Macro[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]chọn Macro xuất hiện cửa sổ Macro[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]bạn nhấn nút Run vậy là xong[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]các bạn có được kết quả tách như ý muốn[/COLOR][COLOR=#007700]. [/COLOR][COLOR=#0000BB]Lưu ý khi chia tách dữ liệu trong cột[/COLOR][COLOR=#007700]: - [/COLOR][COLOR=#0000BB]Xem từng ô Cell dữ có chứa tất cả bao nhiêu từ[/COLOR][COLOR=#007700]. - [/COLOR][COLOR=#0000BB]Insert [/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]tạo[/COLOR][COLOR=#007700]) [/COLOR][COLOR=#0000BB]thêm số cột phía bên phải cột cần tách ứng với số từ ngữ có chứa trong Cell[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]tốt nhất là dư thêm 1 hoặc 2 cột càng tốt[/COLOR][COLOR=#007700]. - [/COLOR][COLOR=#0000BB]Vì khi chia tách cột thì nó sẽ ghi đè lên dữ liệu của các Cell kề bên[/COLOR][COLOR=#007700]. - [/COLOR][COLOR=#0000BB]Nếu bạn nào không thich sử dụng code thì xem bài này[/COLOR][COLOR=#007700]: [[/COLOR][COLOR=#0000BB]url[/COLOR][COLOR=#007700]=[/COLOR][COLOR=#0000BB]http[/COLOR][COLOR=#007700]:[/COLOR][COLOR=#FF8000]//www.******************/forum/showthread.php?3702-Cách-nào-để-tách-từ-trong-chuổi-văn-bẳn&p=328062#post328062]C�ch n�o ?? t�ch t? trong chu?i v?n b?n - Page 2[/url] [/COLOR][COLOR=#0000BB]Chúc các bạn thực hiện thành công[/COLOR][COLOR=#007700].[/COLOR]