Đặ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:
An thần định chí hoàn -Biểu hiện: Hoạt tinh ra cả ngày và đêm, ra bất kỳ không phụ thuộc cảm hứng, ngủ ít, ngủ không yên, đầu choáng, mắt hoa, hồi hộp đánh trống ngực, có khi thỉnh thoảng đau nhói...
Thuốc trị bệnh di tinh loại nào tốt, nên uống? Các chàng nên biết