Bỏ qua nội dung chính

Làm cách nào để loại bỏ nhanh các dấu ngắt dòng trong Excel?

Đôi khi, khi bạn sao chép một số dữ liệu từ trang web hoặc bạn tách các giá trị của mình bằng Alt + Enter , bạn sẽ nhận được một số dấu ngắt dòng hoặc dấu xuống dòng, nếu bạn muốn nhanh chóng loại bỏ nhiều dấu ngắt dòng trong Excel như ảnh chụp màn hình sau đây, bạn có thể thực hiện như sau:

doc-remove-line-break1 -2 doc-remove-line-break2

Loại bỏ nhiều ngắt dòng với chức năng Tìm và Thay thế

Loại bỏ nhiều ngắt dòng bằng mã VBA

Loại bỏ nhiều ngắt dòng với Kutools cho Excel


mũi tên màu xanh bong bóng bên phải Loại bỏ nhiều ngắt dòng với chức năng Tìm và Thay thế

Bạn có thể loại bỏ nhiều ngắt dòng một cách nhanh chóng bằng hàm Tìm và thay thế trong Excel, vui lòng xử lý như sau:

1. Chọn phạm vi mà bạn muốn xóa nhiều ngắt dòng.

2. Nhấp chuột Trang Chủ > Tìm thay thế > Thay thế Hoặc nhấp chuột Ctrl + F các phím tắt và một Tìm và Thay thế hộp thoại sẽ bật ra.

3. Sau đó trong Tìm hộp, vui lòng giữ ALT rồi bấm vào số 010 từ bàn phím số. Rời khỏi Thay thế bằng hộp trống hoặc nhập dấu cách. Xem ảnh chụp màn hình:

doc-remove-line-break3

4. Và sau đó nhấp vào Thay thế Tất cả , tất cả các ngắt dòng đã bị loại bỏ. Xem ảnh chụp màn hình:

doc-remove-line-break2


mũi tên màu xanh bong bóng bên phải Loại bỏ nhiều ngắt dòng bằng mã VBA

Mã VBA sau cũng có thể giúp bạn xóa tất cả các ngắt dòng trong trang tính. Vui lòng làm như sau:

1. Nhấp chuột Nhà phát triển > Visual Basic hoặc báo chí Alt + F11 phím để mở Microsoft Visual Basic cho cửa sổ ứng dụng, sau đó nhấn vào Chèn > Mô-đunvà nhập mã sau:

Mã VBA: loại bỏ nhiều ngắt dòng trong trang tính

Sub RemoveCarriage()
'Update 20131216
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
    Rng.Value = Replace(Rng.Value, Chr(10), "")
Next
End Sub

2. Sau đó nhấn F5 để chạy mã này và một hộp nhắc sẽ xuất hiện để cho bạn biết chọn một dải ô mà bạn muốn xóa các dấu ngắt dòng, hãy xem ảnh chụp màn hình:

doc-remove-line-break4

3. Sau đó nhấn vào OK và tất cả các ngắt dòng của vùng chọn đã bị xóa.


mũi tên màu xanh bong bóng bên phải Loại bỏ nhiều ngắt dòng với Kutools cho Excel

Có thể đôi khi bạn sẽ quên cách sử dụng chức năng Tìm và Thay thế hoặc không quen thuộc với mã xóa nhiều ngắt dòng, trong tình huống này, Kutools cho Excel có thể giúp bạn giải quyết vấn đề này.

Kutools cho Excel: với hơn 300 bổ trợ Excel tiện dụng, dùng thử miễn phí không giới hạn trong 30 ngày. Lấy nó ngay

Sau khi cài đặt Kutools cho Excel, vui lòng thực hiện theo các bước sau:

1. Chọn phạm vi mà bạn muốn xóa các dấu xuống dòng.

2. Nhấp chuột Kutools > Công cụ Văn bản > Xóa ký tự, xem ảnh chụp màn hình:

doc-remove-line-break5

3. Trong Xóa ký tự hộp thoại, kiểm tra Không in và bạn có thể thấy kết quả từ Xem trước cũng vậy, hãy xem ảnh chụp màn hình:

doc-remove-line-break6

4. Và sau đó nhấp vào OK or Đăng Nhập. Tất cả các ngắt dòng sẽ bị xóa khỏi các ô đã chọn.

Nhấp để biết thêm về tính năng Xóa ký tự này.


Bài viết liên quan:

Công cụ năng suất văn phòng tốt nhất

Các tính năng phổ biến: Tìm, đánh dấu hoặc xác định các bản sao   |  Xóa hàng trống   |  Kết hợp các cột hoặc ô mà không làm mất dữ liệu   |   Vòng không có công thức hữu ích. Cảm ơn !
Siêu tra cứu: Nhiều tiêu chí VLookup    VLookup Nhiều Giá Trị  |   VLookup trên nhiều trang tính   |   Tra cứu mờ ....
Danh sách thả xuống nâng cao: Tạo nhanh danh sách thả xuống   |  Danh sách thả xuống phụ thuộc   |  Danh sách thả xuống nhiều lựa chọn ....
Trình quản lý cột: Thêm một số cột cụ thể  |  Di chuyển cột  |  Chuyển đổi trạng thái hiển thị của các cột ẩn  |  So sánh dãy và cột hữu ích. Cảm ơn !
Các tính năng nổi bật: Tiêu điểm lưới   |  Chế độ xem thiết kế   |   Thanh công thức lớn    Trình quản lý sổ làm việc & trang tính   |  Thư viện tài nguyên (Văn bản tự động)   |  Bảng chọn ngày   |  Kết hợp các bảng tính   |  Mã hóa/Giải mã ô    Gửi email theo danh sách   |  Siêu lọc   |   Bộ lọc đặc biệt (lọc in đậm/nghiêng/gạch ngang...) ...
15 bộ công cụ hàng đầu12 bản văn CÔNG CỤ (thêm văn bản, Xóa ký tự,...)   |   50 + Biểu đồ Các loại (Biểu đồ Gantt,...)   |   40+ Thực tế Công thức (Tính tuổi dựa trên ngày sinh,...)   |   19 chèn CÔNG CỤ (Chèn mã QR, Chèn ảnh từ đường dẫn,...)   |   12 Chuyển đổi CÔNG CỤ (Số thành từ, Chuyển đổi tiền tệ,...)   |   7 Hợp nhất & Tách CÔNG CỤ (Các hàng kết hợp nâng cao, Chia ô,...)   |   ... và nhiều hơn nữa

Nâng cao kỹ năng Excel của bạn với Kutools for Excel và trải nghiệm hiệu quả hơn bao giờ hết. Kutools for Excel cung cấp hơn 300 tính năng nâng cao để tăng năng suất và tiết kiệm thời gian.  Bấm vào đây để có được tính năng bạn cần nhất...

tab kte 201905


Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều

  • Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
  • Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
  • Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!
Comments (6)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Obrigado pela dica! Funcionou muito bem aqui!
This comment was minimized by the moderator on the site
Thank You so much yaar. I found it very useful for my day to day office works.
This comment was minimized by the moderator on the site
Thank you very much. it is really superb
This comment was minimized by the moderator on the site
Thank you werry helpfull for my and my MYSQL CSV import :-)
This comment was minimized by the moderator on the site
THANK YOU!!! I have been battling blank lines in cell for too long. You solved the problem...thank you so much
This comment was minimized by the moderator on the site
I am very inexperienced when it comes to macros/VBA code. How would I tweak the code you provided above and which I have pasted below to search for 2 consecutive carriage returns and replace with just one carriage return? Sub RemoveCarriage() 'Update 20131216 Dim Rng As Range Dim WorkRng As Range On Error Resume Next xTitleId = "KutoolsforExcel" Set WorkRng = Application.Selection Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8) For Each Rng In WorkRng Rng.Value = Replace(Rng.Value, Chr(10), "") Next End Sub Also, how would I locate and delete single carriage returns that have no text after them in a cell. Thank you for any assistance.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations