Tách chữ

[uronmapu]

Mình có 1 cột A ghi thông tin như bên dưới

Giám đốc: Nguyễn Văn A
Phó Giám Đốc: Nguyễn Văn B
Bán Hàng: Nguyễn Thị Mẹt

Mình muốn tách ra làm 1 cột
Cột B ghi chức danh, cột C ghi tên

Xin cả nhà giúp đỡ lệnh thế nào ạ

Cảm ơn

 

[nhat chi mai]

Mình có 1 cột A ghi thông tin như bên dưới

Giám đốc: Nguyễn Văn A
Phó Giám Đốc: Nguyễn Văn B
Bán Hàng: Nguyễn Thị Mẹt

Mình muốn tách ra làm 1 cột
Cột B ghi chức danh, cột C ghi tên

Xin cả nhà giúp đỡ lệnh thế nào ạ

Cảm ơn

bạn làm hướng dẫn như trong file và kiểm tra luôn là xong

 

[uronmapu]

Chuẩn rồi bạn ạ



Cảm ơn nhé

 

[trung.aof]

Công thức ở cột B
=TRIM(LEFT(A2;FIND(":";A2;1)))
Công thức ở cột C
=TRIM(RIGHT(A2;LEN(A2)-FIND(":";A2;1)))

 

[Quang_Hải]

Mình có 1 cột A ghi thông tin như bên dưới

Giám đốc: Nguyễn Văn A
Phó Giám Đốc: Nguyễn Văn B
Bán Hàng: Nguyễn Thị Mẹt

Mình muốn tách ra làm 1 cột
Cột B ghi chức danh, cột C ghi tên

Xin cả nhà giúp đỡ lệnh thế nào ạ

Cảm ơn

Nếu lười dùng chức năng TextToColumns thì copy code này vào 1 module. Bấm cái là xong

Sub tach()
Range("A:A").Copy Range("B:C")
Range("B:B").Replace ":*", ""
Range("C:C").Replace "*: ", ""
End Sub