TÁCH MỘT CỘT THÀNH NHIỀU CỘT.

be09

Member
Hội viên mới
Đặ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:

PHP:
Sub cell_Transpose()
Dim i, j, z, x, d As Long
Dim k As Boolean
Dim st As Long
Dim abc, xyz As String
On Error GoTo errh
Range("A65356").Select
Selection.End(xlUp).Select
z = ActiveCell.Row
For x = 1 To z
d = 1
st = 2
Range("a" & x).Select
abc = ActiveCell.Value
For i = st To Len(abc)
If i > Len(abc) Then
Range("a" & x).Offset(0, d).Value = abc
Exit For
End If
If Asc(Mid(abc, i, 1)) > 64 And Asc(Mid(abc, i, 1)) < 91 Then
Range("a" & x).Offset(0, d).Value = Left(abc, i - 1)
xyz = Right(abc, Len(abc) - i + 1)
abc = xyz
i = 1
d = d + 1
End If
Next i
If Len(Range("a" & x).Value) = Len(abc) Then
Range("a" & x).Offset(0, 1).Value = Range("a" & x).Value
End If
Next x
errh:
 Exit Sub
End Sub
 
[/ php]


Tiếp theo bạn chọn vùng dữ liệu cần tách họ và tên, từ menu bạn chọn Tools, chọn Macro, chọn Macro xuất hiện cửa sổ Macro, bạn nhấn nút Run vậy là xong, các bạn có được kết quả tách như ý muốn.

Lưu ý khi chia tách dữ liệu trong cột:
- Xem từng ô Cell dữ có chứa tất cả bao nhiêu từ.
- Insert (tạo) 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, tốt nhất là dư thêm 1 hoặc 2 cột càng tốt.
- Vì khi chia tách cột thì nó sẽ ghi đè lên dữ liệu của các Cell kề bên.
- Nếu bạn nào không thich sử dụng code thì xem bài này:
[url=http://www.giaiphapexcel.com/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]

Chúc các bạn thực hiện thành công.
 
Sửa lần cuối:

CẨM NANG KẾ TOÁN TRƯỞNG


Liên hệ: 090.6969.247

KÊNH YOUTUBE DKT

Kỹ thuật giải trình thanh tra BHXH

Đăng ký kênh nhé cả nhà

SÁCH QUYẾT TOÁN THUẾ


Liên hệ: 090.6969.247

Top