Trong trường hợp bạn muốn một mã VBA để loại bỏ tất cả các dấu cách ở cuối trang chỉ hoạt động thì bài viết này chắc chắn sẽ giúp bạn. Nhiều khi chúng tôi để một khoảng trống ở cuối do nhầm lẫn hoặc đôi khi chúng tôi sao chép dữ liệu từ web và không nhận thấy. Trong bài viết này, chúng ta sẽ học cách loại bỏ khoảng trống bị lỗi.

Câu hỏi): Trong Excel, chúng ta có thể sử dụng hàm TRIM với SUBSTITUTE & CHAR tức là = TRIM (SUBSTITUTE (A1, CHAR (160), “”)) để xóa khoảng trắng ở cuối văn bản bất kỳ.

Tôi muốn Macro giúp tôi loại bỏ tất cả các khoảng trắng không cần thiết còn lại ở cuối chuỗi.

Để lấy mã xóa khoảng trắng ở cuối văn bản; chúng ta cần làm theo các bước dưới đây để khởi chạy trình soạn thảo VB.

Nhấp vào tab Nhà phát triển Từ nhóm Mã, chọn Visual Basic

img1

Sao chép đoạn mã sau trong mô-đun trang tính

Sub trimspace ()

Dim c As Range, rngConstants As Range

Khi có lỗi Tiếp tục tiếp theo

Đặt rngConstants = ActiveSheet.UsedRange.SpecialCells (2, 2)

Lỗi GoTo 0

Nếu không rngConstants Is Nothing Then

‘tối ưu hóa hiệu suất

Application.ScreenUpdating = False

Application.Calculation = xlCalculationManual

‘xén ô bao gồm char 160

Đối với mỗi c Trong rngConstants

c.Value = Trim $ (Application.Clean (Replace (c.Value, Chr (160), “”)))

Tiếp theo c

‘đặt lại cài đặt

Application.ScreenUpdating = True

Application.Calculation = xlCalculationAutomatic

Kết thúc Nếu

End Sub

img2

  • Thao tác này sẽ xóa tất cả các khoảng trắng ở cuối.

Lưu ý: Macro trên sẽ chỉ chạy trên trang tính hoạt động.

Bằng cách này, chúng ta có thể loại bỏ các khoảng trắng ở cuối bằng cách sử dụng mã VBA.

image 4