Tách dữ liệu một ô ra nhiều ô

[hrspring.tides]

Chào anh chị. Cho em hỏi: Tạo macro Covert Text To Columns dữ liệu sau khi tách ra hơn 1000 ô, cụ thể:
Ô D1 đang là ô trống chưa có dữ liệu
Bước 1: di chuyển đến ô D1
Bước 2: Paste dữ liệu ra.
Xong 2 bước này thì mới thực hiện các lệnh tách ra các cột.
Hiện tại em đang làm thủ công như sau: Vào ô D1 thực hiện Ctr+V, Alt A E F. Vậy có cách nào để thực hiện nhanh không vậy?
Cám ơn các anh chị.

Code có thể sử dụng:

Sub test()
    With ThisWorkbook.Worksheets("DAU VAO")
        .Range("E6").Copy
        .Range("D1").PasteSpecial xlPasteValues
        .Range("D1").TextToColumns Destination:=Range("D1"), DataType:=xlDelimited, _
                            TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, _
                            Semicolon:=False, Comma:=False, Space:=True, Other:=False, TrailingMinusNumbers:=True
    End With
End Sub

Đầu tiên, các bạn cần phải bật tính năng Enable macro trong Excel theo hướng dẫn như sau:

1. Bấm vào tab File (tab trên cùng bên trái trong cửa sổ Excel).
2. Nhấp vào nút Excel Options.
3. Nhấp vào Trust Center trong menu bên trái.
4. Nhấp vào Trust Center Settings trong cửa sổ bên phải.
5. Trong cửa sổ mới mở, nhấp vào Macro Settings trong menu bên trái.
6. Chọn Enable all macros.
7. Nhấn vào OK.
8. Nhấn vào OK một lần nữa.

9. Đóng tất cả các ứng dụng Office và khởi động lại Excel.

Tải file đính kèm, bấm nút "Tach du lieu ra nhieu o":

Kết quả:

Nếu có câu hỏi hoặc vướng mắc, các bạn vui lòng phản hồi tại đây để được giải đáp nhé.