Tách dòng cho 1 ô dữ liệu (5 người xem)

[Trần Công Tuyền]

A.Đường
A.Nhâm
Ô.Vị
A.Đường
Miêu thờ
Ô.Cư
A.Hùng
A.Cương
Em có 1 ô dữ liệu như này, bây giờ làm cách nào để tách ra nhiều ô mà mỗi ô chứa 1 tên theo đúng chiều dọc ( nếu copy thì lâu quá mà file em làm hàng nghìn công việc) mong các anh chị giúp đỡ.

 

[Phan Thế Hiệp]

A.Đường
A.Nhâm
Ô.Vị
A.Đường
Miêu thờ
Ô.Cư
A.Hùng
A.Cương
Em có 1 ô dữ liệu như này, bây giờ làm cách nào để tách ra nhiều ô mà mỗi ô chứa 1 tên theo đúng chiều dọc ( nếu copy thì lâu quá mà file em làm hàng nghìn công việc) mong các anh chị giúp đỡ.

Giả sử A1 chứa dữ liệu tên của bạn muốn tách, thử:

B2=TRIM(MID(SUBSTITUTE($A$1,CHAR(10),REPT(" ",100)),(ROW($A1)-1)*100+1,100))

Enter, fill xuống
Thân.

 

[phulien1902]

A.Đường
A.Nhâm
Ô.Vị
A.Đường
Miêu thờ
Ô.Cư
A.Hùng
A.Cương
Em có 1 ô dữ liệu như này, bây giờ làm cách nào để tách ra nhiều ô mà mỗi ô chứa 1 tên theo đúng chiều dọc ( nếu copy thì lâu quá mà file em làm hàng nghìn công việc) mong các anh chị giúp đỡ.

Thử 1 cách không phải hàm:

Sub abc()
    Dim St
    St = Split([a1], Chr(10))
    [a1].Offset(, 2).Resize(, UBound(St) + 1) = St
End Sub

Với A1 là ô chứa các ký tự của bạn.

 

[giaiphap]

Thử 1 cách không phải hàm:

Sub abc()
    Dim St
    St = Split([a1], Chr(10))
    [a1].Offset(, 2).Resize(, UBound(St) + 1) = St
End Sub

Vập Split, Chr và Ubound là gì vậy bạn?

 

[Phan Thế Hiệp]

Vập Split, Chr và Ubound là gì vậy bạn?

Chỉ là các "Functions" trong VBA.
Biết mà "gây khó" cho bạn hữu nữa!
Chúc anh em ngày vui.

 

[befaint]

Hình như copy từ Exel paste vào notepad rồi copy ngược lại Excel là được.

 

[Phan Thế Hiệp]

Hình như copy từ Exel paste vào notepad rồi copy ngược lại Excel là được.

Hì hì!
Cái này của em mới đúng là không dùng hàm
Chúc em ngày vui.

 

[phulien1902]

Hình như copy từ Exel paste vào notepad rồi copy ngược lại Excel là được.

Cách này rất hay, anh lại biết thêm 1 cách mới, khà khà.

 

[be_09]

A.Đường
A.Nhâm
Ô.Vị
A.Đường
Miêu thờ
Ô.Cư
A.Hùng
A.Cương
Em có 1 ô dữ liệu như này, bây giờ làm cách nào để tách ra nhiều ô mà mỗi ô chứa 1 tên theo đúng chiều dọc ( nếu copy thì lâu quá mà file em làm hàng nghìn công việc) mong các anh chị giúp đỡ.

Hỏi không có đầu đuôi gì hết vậy bạn.
Tìm người thân mà không có địa là chỉ số nhà, tên đường, khu phố, phường, xã thì biết đâu mà tìm.
Nhất là tại thành phố Hồ Chí Minh, dù cho có biết chính xác địa chỉ là số nhà, tên đường, khu phố, phường, xã thì đi tìm cũng đỏ con mắt.

 

[Trần Công Tuyền]

Giả sử A1 chứa dữ liệu tên của bạn muốn tách, thử:

B2=TRIM(MID(SUBSTITUTE($A$1,CHAR(10),REPT(" ",100)),(ROW($A1)-1)*100+1,100))

Enter, fill xuống
Thân.

Em cảm ơn anh ạ.

Bài đã được tự động gộp: 26/7/18

Em cảm ơn các anh chị nhé, rất hữu ích ạ ^^