Đặ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:
Bao cao su đôn dên là sản phẩm tương trợ dục tình được người dùng tại Việt Nam ưa chuộng. Hiện tại trên thị trường sản phẩm này có rất nhiều dòng với mẫu mã đa dạng. Dưới đây là Top 5 bao cao su đôn...
Bao cao su đôn dên X78PM gai toàn thân để làm mới cuộc vui