[Xin giúp đỡ] Hàm trích dữ liệu theo dòng (1 người xem)

[lyly2626]

Em có một dữ liệu kiểu : Dữ liệu nằm trong cùng 1 cell, được chia thành các dòng (vẫn trong cell đó, xuống dòng theo kiểu ALT+Enter ạ)
Giờ em muốn lấy dữ liệu ở dòng 2 hoặc dòng 3 thì ko làm thế nào được.

Xin lưu ý là dòng 2 hoặc dòng 3 không có kí tự nào đặc biệt, ko có dấu cách nào thừa, số kí tự của mỗi dòng ko cố đính, tóm lại là không có quy luật nào...(vì nó được xuất ra bằng phần mềm)

Xin anh chị giúp đỡ ! Cảm ơn

 

[Quang_Hải]

Up file lên đi, nói kiểu này sao biết cách nào mà giúp

 

[lyly2626]

Up file lên đi, nói kiểu này sao biết cách nào mà giúp

Xin anh giúp đỡ
Em cám ưn trước ạ....................

 

[huuthang_bd]

em có một dữ liệu kiểu : Dữ liệu nằm trong cùng 1 cell, được chia thành các dòng (vẫn trong cell đó, xuống dòng theo kiểu alt+enter ạ)
giờ em muốn lấy dữ liệu ở dòng 2 hoặc dòng 3 thì ko làm thế nào được.

Xin lưu ý là dòng 2 hoặc dòng 3 không có kí tự nào đặc biệt, ko có dấu cách nào thừa, số kí tự của mỗi dòng ko cố đính, tóm lại là không có quy luật nào...(vì nó được xuất ra bằng phần mềm)

xin anh chị giúp đỡ ! Cảm ơn

Bạn dùng công thức này cho ô B1 sau đó fill ngang, fill dọc.

=TRIM(MID(SUBSTITUTE("
"&$A1,"
",REPT(" ",LEN($A1)*2)),(COLUMN(A1)*2-1)*LEN($A1),LEN($A1)*2))

Nhớ copy nguyên công thức trên nhé. Công thức có xuống hàng thì kệ nó đừng có chỉnh sửa.

 

[Quang_Hải]

Xin anh giúp đỡ
Em cám ưn trước ạ....................

Trường hợp của bạn nên dùng chức nắng TexttoColumns là tiện nhất

Nếu muốn dùng code thì thế này cũng được

Sub tach()
With Range([A1], [A65536].End(3))
  .TextToColumns [B1], xlDelimited, OtherChar:=vbLf
End With
End Sub

 

[lyly2626]

Bạn dùng công thức này cho ô B1 sau đó fill ngang, fill dọc.

Dạ em làm được rồi. Cám ơn anh huuthang_bd rất nhiều. Chúc anh sức khỏe và niềm vui !


P/s : Chỉ có điều em ko hiểu công thức lắm. Xin anh giải thích dùm được ko.

Trường hợp của bạn nên dùng chức nắng TexttoColumns là tiện nhất

Nếu muốn dùng code thì thế này cũng được

Sub tach()
With Range([A1], [A65536].End(3))
  .TextToColumns [B1], xlDelimited, OtherChar:=vbLf
End With
End Sub

Em chưa dùng code bao giờ. Tại máy tính sếp em mỗi lần gửi file qua lại mất công vào bật tắt Security thành ra bất tiện.
Dù sao cám ơn anh đã giúp đỡ. Em sẽ lưu lại khi cần. Chúc anh sức khỏe và thành công !

 

[lyly2626]

Dạ em làm được rồi. Cám ơn anh huuthang_bd rất nhiều. Chúc anh sức khỏe và niềm vui !


P/s : Chỉ có điều em ko hiểu công thức lắm. Xin anh giải thích dùm được ko.



Em chưa dùng code bao giờ. Tại máy tính sếp em mỗi lần gửi file qua lại mất công vào bật tắt Security thành ra bất tiện.
Dù sao cám ơn anh đã giúp đỡ. Em sẽ lưu lại khi cần. Chúc anh sức khỏe và thành công !

Xin hỏi nếu em muốn trích dòng 2, hoặc dòng 3 thì thay đổi CODE thế nào ạ

 

[concogia]

Xin hỏi nếu em muốn trích dòng 2, hoặc dòng 3 thì thay đổi CODE thế nào ạ

Đại khái nó thế này nè

Public Function Tach(Cll, Dong)
    Dim TachDong
    TachDong = Split(Cll, Chr(10))
        If Dong - 1 > UBound(TachDong) Then
            Tach = ""
        Else
            Tach = TachDong(Dong - 1)
        End If
End Function

Xem cách làm trong file
Thân

 

[huuthang_bd]

Xin hỏi nếu em muốn trích dòng 2, hoặc dòng 3 thì thay đổi CODE thế nào ạ

Không biết bạn hỏi cái nào? Công thức hay là code? Nếu là công thức thì cứ việc copy sang các cột phía sau thôi. Ở bài #4 tôi có nói rõ là "Dùng công thức cho ô B1 sau đó fill ngang fill dọc" mà.

 

[lyly2626]

Không biết bạn hỏi cái nào? Công thức hay là code? Nếu là công thức thì cứ việc copy sang các cột phía sau thôi. Ở bài #4 tôi có nói rõ là "Dùng công thức cho ô B1 sau đó fill ngang fill dọc" mà.

Dạ ko cám ơn anh. Anh nói rất rõ ràng và chi tiết. Em đã làm đúng rồi ạ ! Em đang hỏi với anh hướng dẫn làm CODE cơ. Cám ơn anh rất nhiều !

 

[lyly2626]

Xin cám ơn ! Vấn đề đã được giải quyết !