Làm cách nào để tách các dữ liệu nằm trong cùng 1ô excel ra nhiều ô. Các bác giúp với (1 người xem)

[anh3ren]

VD: o A2 có các dữ liệu như:Lan Anh Hoa Khoi
==> Mình muốn Tại ô A2 chỉ có Lan
A3 Anh
A4 Hoa
......Mà không dùng đến cut, copy, paste

 

[vanle33]

VD: o A2 có các dữ liệu như:Lan Anh Hoa Khoi
==> Mình muốn Tại ô A2 chỉ có Lan
A3 Anh
A4 Hoa
......Mà không dùng đến cut, copy, paste

Bạn dùng Text to Column trong Excel 2007 với lựa chọn Space

 

[Ba Tê]

VD: o A2 có các dữ liệu như:Lan Anh Hoa Khoi
==> Mình muốn Tại ô A2 chỉ có Lan
A3 Anh
A4 Hoa
......Mà không dùng đến cut, copy, paste

Với điều kiện này chắc chỉ có VBA làm được thôi, chưa thấy có công thức nào tự chuyển A2 từ "Lan Anh Hoa Khôi" thành "Lan" rồi đưa "Anh" vào A3, "Hoa" vào A4, "Khôi" vào A5...
Nếu Text to Columns thì cũng phải Copy Paste Transpose..."phạm quy"!

 

[vanle33]

Với điều kiện này chắc chỉ có VBA làm được thôi, chưa thấy có công thức nào tự chuyển A2 từ "Lan Anh Hoa Khôi" thành "Lan" rồi đưa "Anh" vào A3, "Hoa" vào A4, "Khôi" vào A5...
Nếu Text to Columns thì cũng phải Copy Paste Transpose..."phạm quy"!

ah. Sorry. Bạn muốn ra kết quả ở nhiều hàng

 

[anh3ren]

Bạn dùng Text to Column trong Excel 2007 với lựa chọn Space

Bạn ơi, vậy có cách nào chuyển thành text to row không?. Vì mình làm cách của bạn thấy nằm hàng ngang

 

[anh3ren]

Với điều kiện này chắc chỉ có VBA làm được thôi, chưa thấy có công thức nào tự chuyển A2 từ "Lan Anh Hoa Khôi" thành "Lan" rồi đưa "Anh" vào A3, "Hoa" vào A4, "Khôi" vào A5...
Nếu Text to Columns thì cũng phải Copy Paste Transpose..."phạm quy"!

vậy bác vui lòng cho mình 1 đoạn code với

 

[nghiaphuc]

vậy bác vui lòng cho mình 1 đoạn code với

Giả sử ô A1 chứa chuỗi ban đầu (có thể chứa khoảng trắng dư) và các ô A2:A... lưu các từ có trong chuỗi tại A1. Bạn có thể sử dụng code sau:

Sub SplitText()
    Dim Arr() As String
    Arr = Split(WorksheetFunction.Trim([A1]), " ")
    [A2].Resize(UBound(Arr) + 1) = WorksheetFunction.Transpose(Arr)
End Sub

 

[anh3ren]

Giả sử ô A1 chứa chuỗi ban đầu (có thể chứa khoảng trắng dư) và các ô A2:A... lưu các từ có trong chuỗi tại A1. Bạn có thể sử dụng code sau:

Sub SplitText()
    Dim Arr() As String
    Arr = Split(WorksheetFunction.Trim([A1]), " ")
    [A2].Resize(UBound(Arr) + 1) = WorksheetFunction.Transpose(Arr)
End Sub

Đúng rồi. Nó rất có ích cho mình. tks bạn nhe.