Hàm TRIM trong Excel VBA
VBA TRIM được phân loại theo chuỗi và hàm văn bản, hàm này là một hàm trang tính trong VBA và tương tự như tham chiếu trang tính, hàm này được sử dụng để cắt hoặc loại bỏ các khoảng trắng không mong muốn khỏi một chuỗi, nó cần một đối số duy nhất là một chuỗi đầu vào và trả về một đầu ra dưới dạng một chuỗi.
Có một số tình huống khi chúng tôi tải dữ liệu xuống từ các máy chủ trực tuyến và chúng tôi gặp phải tình huống dữ liệu không được sắp xếp và các khoảng trống không mong muốn trong ô. Đối phó với những không gian không cần thiết là rất khó để làm việc. Trong các hàm trang tính thông thường, chúng ta có một hàm gọi là TRIM trong excel để loại bỏ “Khoảng trắng hàng đầu, Khoảng cách cuối và khoảng trắng ở giữa”. Trong VBA, chúng ta cũng có một hàm gọi là TRIM, hoạt động giống hệt như hàm excel, nhưng chỉ có một sự khác biệt nhỏ ở đó. Chúng ta sẽ thấy điều đó trong bài viết này sau một chút.
Chức năng Trim làm gì?
TRIM là một hàm chuỗi loại bỏ khoảng trắng trong excel khỏi ô đã chọn. Trong khoảng trắng, chúng ta có 3 loại "Khoảng cách dẫn đầu, Khoảng cách cuối và khoảng cách ở giữa."
Không gian hàng đầu là không có gì, nhưng trước khi bất kỳ giá trị nào bắt đầu trong ô, nếu có bất kỳ khoảng trống nào, thì nó được gọi là Không gian hàng đầu.
Trailing Space là không có gì nhưng sau khi kết thúc giá trị trong ô nếu có bất kỳ khoảng trắng nào, thì nó được gọi là Trailing Space.
In-between Space là không có gì sau khi kết thúc mỗi từ; lý tưởng là chúng ta nên có một ký tự khoảng trắng. Bất kỳ thứ gì nhiều hơn một ký tự khoảng trắng được gọi là In-between Space.
Để khắc phục tất cả các loại vấn đề này, chúng tôi có một chức năng gọi là TRIM.
Cú pháp
Chuỗi: Chuỗi hoặc giá trị bạn muốn cắt là gì? Nó có thể là tham chiếu ô cũng như cung cấp trực tiếp giá trị cho công thức.
Ví dụ
Ví dụ 1
Bây giờ chúng ta sẽ xem cách loại bỏ khoảng trắng ở đầu trong excel bằng cách sử dụng hàm TRIM. Làm theo các bước dưới đây
Bước 1: Tạo tên macro và khai báo một biến là String.
Mã:
Sub Trim_Example1 () Dim k As String End Sub
Bước 2: Bây giờ, đối với biến đã khai báo này, hãy gán một giá trị bằng cách sử dụng TRIM.
Mã:
Sub Trim_Example1 () Dim k As String k = Trim (End Sub
Bước 3: Đối với loại chuỗi này, từ trong dấu ngoặc kép là “Chào mừng bạn đến với VBA”.
Mã:
Sub Trim_Example1 () Dim k As String k = Trim ("Chào mừng bạn đến với VBA") End Sub
Bước 4: Bây giờ hiển thị kết quả của biến này trong hộp thông báo.
Mã:
Sub Trim_Example1 () Dim k As String k = Trim ("Chào mừng bạn đến với VBA") MsgBox k End Sub
Bước 5: Chạy mã này bằng phím F5 hoặc chạy thủ công. Chúng ta sẽ nhận được một chuỗi chính xác trong hộp tin nhắn.
Đầu ra:
Vì vậy, hàm TRIM đã loại bỏ tất cả các khoảng trắng hàng đầu mà chúng ta đã nhập vào giá trị chuỗi. Bây giờ kết quả là một câu đúng, tức là, “Chào mừng đến với VBA.”
Ví dụ số 2
Bây giờ, hãy xem thêm một ví dụ để loại bỏ dấu cách ở cuối. Lấy cùng một từ nhưng lần này, nhập dấu cách ở cuối.
“Chào mừng đến với VBA. “
Mã:
Sub Trim_Example2 () Dim k As String k = Trim ("Chào mừng bạn đến với VBA") MsgBox k End Sub
Chạy mã này theo cách thủ công hoặc thông qua phím F5 Chức năng Trim cũng loại bỏ các dấu cách ở cuối.
Đầu ra:
Ví dụ # 3 - Làm sạch dữ liệu trong ô
Bây giờ chúng ta sẽ xem ví dụ thực tế về việc làm sạch dữ liệu trong các ô excel. Giả sử bạn có một tập dữ liệu như bên dưới trong trang tính excel của bạn.
When we have more than one cell data, we need to write different codes. Follow the below steps to write code.
Step 1: Declare a variable as “Range.”
Code:
Sub Trim_Example3() Dim MyRange As Range End Sub
Step 2: Since the range data type is an object, we need to set the range first. So set the range as “selection.”
Code:
Sub Trim_Example3() Dim MyRange As Range Set MyRange = Selection End Sub
Note: MyRange = Selection means whatever the cells I select becomes a range. So in that range, TRIM removes unwanted spaces.
Step 3: Now, using For Each VBA Loop, apply the TRIM function.
Code:
Sub Trim_Example3() Dim MyRange As Range Set MyRange = Selection For Each cell In MyRange cell.Value = Trim(cell) Next End Sub
Step 4: Now go back to the worksheet. Go to insert and draw a rectangular shape.
Step 5: Add a word to the inserted rectangular shape as click here to clean the data.
Step 6: Right-click on the rectangular shape and select the assigned macro.
Step 7: Now, the macro names box will open. Select the name of the macro we just created. Click on Ok.
Step 8: Now select the range where we need to clean the data.
Step 9: After selecting the range, click on the assigned macro rectangular box. It will clean the data.
So we got cleaned value, i.e., after removing leading & trailing spaces.
Difference Between Excel & VBA Trim Function
The only difference between them is VBA function cannot remove in between spaces while the worksheet function in VBA does. For example, take a look at the below example.
In cell A3, we have in-between spaces. If select and click on the rectangular shape, it will only remove trailing & leading spaces, not in-between spaces.
To overcome this problem, we need to use the trim function as a worksheet function in the code.
Code:
Sub Trim_Example3() Dim MyRange As Range Set MyRange = Selection For Each cell In MyRange cell.Value = WorksheetFunction.Trim(cell) Next End Sub
Here we have used a worksheet function, not a VBA function. This will remove all kinds of spaces.
Things to Remember
- VBA Trim & Worksheet Trim syntax is exactly the same.
- It can only remove leading & trailing spaces, not in-between spaces.
- Hàm xén trong Excel có thể loại bỏ tất cả các loại khoảng trắng.
