Gộp chuỗi ký tự ở các cells thành một với điều kiện?

[mrducnt]

Nguồn gốc thắc mắc của em là vì khi convert file pdf (có bảng) về excel thì đoạn ký tự không còn được liền mạch nữa mà tách thành các cells từ trên xuống. Sử dụng & không ổn vì dữ liệu rất lớn, nhiều dạng (đoạn văn dài hơn thì chia thành nhiều cell hơn). Trước mỗi đoạn có ghi thời gian đoạn hội thoại diễn ra. Em nghĩ là sử dụng hàm gì đó count số ô # 0 rồi dùng &, tuy nhiên không biết làm thế nào. Giúp em xử lý cái này với.
P/s: Giải thích thì lằng nhằng vì văn em kém, các bác down file về xem là hiểu ý mà.

 

[nghiaphuc]

Nguồn gốc thắc mắc của em là vì khi convert file pdf (có bảng) về excel thì đoạn ký tự không còn được liền mạch nữa mà tách thành các cells từ trên xuống. Sử dụng & không ổn vì dữ liệu rất lớn, nhiều dạng (đoạn văn dài hơn thì chia thành nhiều cell hơn). Trước mỗi đoạn có ghi thời gian đoạn hội thoại diễn ra. Em nghĩ là sử dụng hàm gì đó count số ô # 0 rồi dùng &, tuy nhiên không biết làm thế nào. Giúp em xử lý cái này với.
P/s: Giải thích thì lằng nhằng vì văn em kém, các bác down file về xem là hiểu ý mà.

Bạn thử dùng code này xem nhé:

Sub NoiChuoi()
    Dim Cll As Range
    Set Cll = [D65536].End(xlUp)
    Do While Cll.Row > 1
        If Cll.Offset(1, -1) = "" Then
            Cll = WorksheetFunction.Trim(Cll & " " & Cll.Offset(1))
            Cll.Offset(1).EntireRow.Delete
        End If
        Set Cll = Cll.Offset(-1)
    Loop
End Sub

 

[mrducnt]

Thanks bác. Vấn đề đã được giải quyết.