Đặ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]
View more random threads:
QUAN HỆ NHANH RA Ở NAM GIỚI LÀ GÌ? Quan hệ nhanh ra hay còn gọi là xuất tinh sớm, là hiện tượng xuất tinh trong khoảng thời gian quá ngắn bình thường là dưới 3 phút, nam giới không thể làm chủ, điều...
"Quan hệ nhanh ra" phái mạnh có nên kiêng rượu bia không?