Tách ký tự

[mimili]

Mình có vấn đề như thế này.

Mình muốn tách thông tin ở cột A như sau: cứ 40 ký tự sẽ tách sang cột C,D,E,F. Bạn xem file đính kèm nha!

 

[Ếch Xanh]

Bạn vào text to column rồi qua step 2 bạn dời những mũi tên qua vị trí 40, 80, 120, 160 ... những mũi tên khác bạn double click nó, nó sẽ tự xóa. sau đó bạn Finish. Chúc bạn thành công.

 

[bebo021999]

Mình có vấn đề như thế này.

Mình muốn tách thông tin ở cột A như sau: cứ 40 ký tự sẽ tách sang cột C,D,E,F. Bạn xem file đính kèm nha!

Bạn ơi, mình dùng hàm được không?
P/s: Ngoài lề 1 chút: Tại sao không phải là 39 hay 41, cứ phải là 40 mới được?

 

[Ếch Xanh]

Bạn ơi, mình dùng hàm được không?
P/s: Ngoài lề 1 chút: Tại sao không phải là 39 hay 41, cứ phải là 40 mới được?

Dùng hàm cũng tốt mà bạn. Bạn cứ làm đi, giải pháp nào hay là được sự chấp nhận thôi. Còn 40 ký tự là "kiểu nó là vậy" đó mà. Lấn cấn khoảng trắng sau khi tách có tính không nhỉ???

 

[bebo021999]

Dùng hàm cũng tốt mà bạn. Bạn cứ làm đi, giải pháp nào hay là được sự chấp nhận thôi. Còn 40 ký tự là "kiểu nó là vậy" đó mà. Lấn cấn khoảng trắng sau khi tách có tính không nhỉ???

Tại ô C1:
=MID($A$1,1,40)
Tại ô D1:
=MID($A$1,COLUMNS($C:C)*40,40)
Copy D1 sang E1,F1,...
Nếu không muốn khoảng trắng thì dùng TRIM bao ở ngoài.
(Mắc cười con số 40 quá!!!)

 

[Ếch Xanh]

Tại ô C1:
=MID($A$1,1,40)
Tại ô D1:
=MID($A$1,COLUMNS($C:C)*40,40)
Copy D1 sang E1,F1,...
Nếu không muốn khoảng trắng thì dùng TRIM bao ở ngoài.
(Mắc cười con số 40 quá!!!)

Ô C1 dùng hàm left gọn hơn nhỉ? =LEFT(A1,40)

 

[mimili]

Mình đã làm theo như hướng dẫn của bạn nhưng ở cột E khi ráp chữ lại bị thiếu chữ N. Bạn xem file này nha!

 

[bebo021999]

Mình đã làm theo như hướng dẫn của bạn nhưng ở cột E khi ráp chữ lại bị thiếu chữ N. Bạn xem file này nha!

Cột D và E bạn sửa thành *40 chứ không phải *41 nhé.

 

[mimili]

Sửa thành 40 thì ghép chữ với cột C cũng không khớp bạn ơi!

 

[Ếch Xanh]

Sửa thành 40 thì ghép chữ với cột C cũng không khớp bạn ơi!

Bạn ui, làm VBA cho nó lẹ bạn ui!

Code chỉ có như vầy:

Private Sub Tach_40_KyTu_Click()
  Application.DisplayAlerts = False
  Range("A2:A25").TextToColumns Destination:=Range("C2"), DataType:=xlFixedWidth, _
    FieldInfo:=Array(Array(0, 1), Array(40, 1), Array(80, 1), Array(120, 1)), _
    TrailingMinusNumbers:=True
  Application.DisplayAlerts = True
End Sub

Bạn tùy chỉnh theo nguồn cần tách ("A2:A25") và nơi cần tách ("C2") là được!

 

[bebo021999]

Sửa thành 40 thì ghép chữ với cột C cũng không khớp bạn ơi!

Sao lại không khớp nhỉ?

 

[huuthang_bd]

Sao lại không khớp nhỉ?

Công thức của bạn được cột E thì lại sai ở cột D.

Mình có vấn đề như thế này.

Mình muốn tách thông tin ở cột A như sau: cứ 40 ký tự sẽ tách sang cột C,D,E,F. Bạn xem file đính kèm nha!

Bạn dùng công thức này cho tất cả các ô:

=MID($A1,(COLUMNS($A:A)-1)*40+1,40)

 

[bebo021999]

Bạn dùng công thức này cho tất cả các ô:
=MID($A1,(COLUMNS($A:A)-1)*40+1,40)[/code]

Thanks huuthang nhiều, tuy nhiên chỉ dùng cho ô đầu tiên thôi, các ô khác
thì fill qua