Đặ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:
Ở Hải Phòng, không quá khó để bạn tìm được shop Đồ chơi tình dục nữ, nơi bán các sản phẩm hỗ trợ cho các chị em. Trứng rung ái tình cũng là một trong số những sản phẩm giúp giải tỏa sinh lý cực kỳ...
Chày rung tình yêu Bắc Giang - Phân phối dụng cụ tình yêu cho nữ