Xin hàm xử lý chuỗi kí tự bị lỗi như ấn Alt + Enter trở về chuỗi bình thường (1 người xem)

[trananhtommy]

Em chào các Bác.

Em có file dưới đây, import từ file text về, 1 số dòng bị lỗi như mình ấn Alt Enter. Dữ liệu thì nhiều, E muốn xin 1 hàm hoặc marco để chuyển nó về bình thường.

Mong các Bác giúp E.

Em cảm ơn!

 

[dhn46]

Không cần tới VBA đâu bạn, bạn có thể dùng hàm

=CLEAN(B4)

1000 dòng quá ít để sử dụng VBA. Nếu cần tới VBA thì bạn dùng cái sau, chọn hết vùng cần thao tác và chạy sub

Sub Xoa()
    Dim Cls As Range
    For Each Cls In Selection
        Cls = Replace(Cls, Chr(10), "")
    Next
End Sub

 

[mhung12005]

Em chào các Bác.

Em có file dưới đây, import từ file text về, 1 số dòng bị lỗi như mình ấn Alt Enter. Dữ liệu thì nhiều, E muốn xin 1 hàm hoặc marco để chuyển nó về bình thường.

Mong các Bác giúp E.

Em cảm ơn!

Cái này là do định dang ấy mà. Bạn làm như sau:

Select (bôi đen) vùng dữ liệu --> nhấn Ctrl + 1 --> chọn thẻ Alignment --> dưới dòng Horizontal chọn General --> bỏ dấu kiểm ở dòng Wrap text --> ok.

 

[trananhtommy]

Cảm ơn Bác. Dùng Clean quá ổn Bác ạ... hì hì.

@mhung12005: Cảm ơn Bạn nhưng mình thấy hình như bị Alt Enter thì wrap text không xử được thì phải.

Mình đã xử lý được vấn đề. Rất cảm ơn mọi người đã quan tâm trợ giúp.

 

[ndu96081631]

1000 dòng quá ít để sử dụng VBA. Nếu cần tới VBA thì bạn dùng cái sau, chọn hết vùng cần thao tác và chạy sub

Sub Xoa()
    Dim Cls As Range
    For Each Cls In Selection
        Cls = Replace(Cls, Chr(10), "")
    Next
End Sub

Thay vì dùng hàm Replace, sao bạn không dùng phương thức Replace cho nó lẹ (Selection.Replace vbLf, vbNullString, xlPart)

 

[Đình Phán]

Trước giờ em hay dùng cách này =SUBSTITUTE(B4,CHAR(10),""). Đọc bài của các bác lại có thêm nhiều cách rồi.