Trang chủThủ Thuật ExcelCode VBA Excel loại bỏ tất cả ký tự trống, hàm Trim()

Code VBA Excel loại bỏ tất cả ký tự trống, hàm Trim()

Đánh giá:

0 / 5 Voted: 5 Number: 6

Your page rank:

Hôm nay LeQuocThai.Com xin gửi đến các bạn code VBA Excel dùng để loại bỏ tất cả các ký tự trống bao gồm nhưng không giới hạn ở khoảng trống nằm giữa những chữ, khoảng trống nằm đầu hay cuối văn bản, khoảng trống mà khi in ra giấy không nhìn thấy được.

Đoạn code bên dưới dùng hàm Trim và Clean để làm sạch và loại bỏ khoảng trống hoặc các ký tự không mong muốn trong một Row. Hàm Trim đặt biệt hữu dụng khi dùng để Tách họ tên trong một cột của Excel

Sub TrimData()
Dim rng As Range
Dim cell As Range
Set rng = Sheet1.Range("A1:A10") 'Pham vi data can lam sach
For Each cell In rng
cell.Value = Evaluate("IF(ROW(" & cell.Address & "),CLEAN(TRIM(" & cell.Address & ")))")
Next cell
End Sub

Hàm Trim trong Excel VBA:

Hàm Trim trong Excel VBA được sử dụng để loại bỏ các khoảng trống thừa khỏi bất kỳ ô hoặc văn bản nào và tiêu chuẩn về khoảng cách bắt buộc. Hàm Trim VBA Excel hoạt động chính xác như hàm Trim trong Excel và hàm Trim cũng loại bỏ các khoảng trắng thừa theo 3 cách:

  1. Dấu cách từ đầu văn bản.
  2. Dấu cách từ cuối văn bản.
  3. Khoảng trắng từ giữa văn bản nếu có chứa nhiều hơn 1 khoảng trắng.

Điều này chủ yếu xảy ra khi chúng ta tải dữ liệu từ mạng hoặc trong khi chèn các khoảng trống thừa theo cách thủ công. Mặc dù chúng ta có thể dễ dàng nhìn thấy khoảng trắng ở giữa văn bản, nhưng không thể dễ dàng nhìn thấy khoảng trắng ở đầu và cuối văn bản cho đến khi chúng ta theo tác chỉnh sửa ô cụ thể đó.

Các ví dụ bên dưới sẽ làm gõ cách thức hoạt động của hàm Trim VBA Excel:

Ở đây chúng ta có 3 ô trong ảnh chụp màn hình bên dưới:

Và mỗi ô có một số khoảng trắng được liên kết với chúng. Ô A1 có khoảng trắng ở cuối.

Ô A2 có khoảng trắng ở đầu văn bản.

Và ô A3 có khoảng trống ở giữa văn bản được đánh dấu trong ảnh chụp màn hình bên dưới.

Lê Quốc Tháihttps://lequocthai.com/
Yep! I am Le Quoc Thai codename name tnfsmith, one among of netizens beloved internet precious, favorite accumulate sharing all my knowledge and experience Excel, PC tips tricks, gadget news during over decades working in banking data analysis.

BÌNH LUẬN

Vui lòng nhập bình luận của bạn
Vui lòng nhập tên của bạn ở đây

Đọc nhiều nhất

BÀI VIẾT MỚI NHẤT

CÙNG CHỦ ĐỀ