Cần hỏi E có file excel như đính kèm, cột F có 3 dẫy ký tự e muốn tách 3 dẫy ký tự thành từng dòng khác nhau trong 1 dòng đấy mà các dòng khác vẫn giữ nguyên thì có làm được ko ạ?

[thangdq]

E có file excel như đính kèm, cột F có 3 dẫy ký tự e muốn tách 3 dẫy ký tự thành từng dòng khác nhau trong 1 dòng đấy mà các dòng khác vẫn giữ nguyên thì có làm được ko ạ?

 

[VanNguyen123]

Tách ô đấy thành 3 dòng khác nhau rồi xài merge cell nha bạn

 

[riyou]

Bác copy lệnh VBA:
Sub TachNoiDungXuongDong()
Dim arr() As String
Dim i As Long
Dim r As Range

' Lấy ô đang chọn (ví dụ F1)
Set r = ActiveCell

' Tách nội dung theo dấu xuống dòng (Alt + Enter)
arr = Split(r.Value, Chr(10))

' Ghi nội dung tách ra các ô dưới cùng cột
For i = LBound(arr) To UBound(arr)
r.Offset(i, 0).Value = Trim(arr(i))
Next i
End Sub

Cách dùng:

1. Mở VBA bằng Alt + F11 → Insert → Module → dán code trên.
2. Quay lại Excel, chọn ô F1.
3. Nhấn Alt + F8 → chọn TachNoiDungXuongDong → Run.