Hướng dẫn này sẽ trình bày cách sử dụng các hàm Trim, LTrim và RTrim VBA cũng như hàm trang tính Trim.
Hàm Trim
Hàm VBA Trim loại bỏ (“cắt xén”) các khoảng trắng trước và sau các chuỗi văn bản.
Cắt bỏ khoảng trắng trước và sau văn bản
Hàm VBA Trim sẽ loại bỏ khoảng trắng trước và sau chuỗi văn bản:
12345678910 | Sub TrimExample_1 ()MsgBox Trim ("Tôi yêu excel")'Kết quả là: "I love excel"MsgBox Trim ("Tôi yêu excel")'Kết quả là: "I love excel"MsgBox Trim ("Tôi yêu excel")'Kết quả là: "I love excel"Kết thúc Sub |
Cắt nhiều khoảng trắng trước và sau văn bản
Điều này bao gồm việc cắt bỏ nhiều khoảng trắng trước và sau văn bản:
12345678910 | Sub TrimExample_2 ()MsgBox Trim ("Tôi yêu excel")'Kết quả là: "I love excel"MsgBox Trim ("Tôi yêu excel")'Kết quả là: "I love excel"MsgBox Trim ("Tôi yêu excel")'Kết quả là: "I love excel"Kết thúc Sub |
VBA Trim sẽ KHÔNG loại bỏ nhiều khoảng cách giữa các từ
Tuy nhiên, hàm Trim sẽ không loại bỏ nhiều khoảng trắng ở giữa các từ:
12345678910 | Sub TrimExample_3 ()MsgBox Trim ("Tôi yêu excel")'Kết quả là: "I love excel"MsgBox Trim ("Tôi yêu excel")'Kết quả là: "I love excel"MsgBox Trim ("Tôi yêu excel")'Kết quả là: "I love excel"Kết thúc Sub |
Cắt như một chức năng trang tính
Tuy nhiên, hàm trang tính Excel Trim có thể được sử dụng để loại bỏ khoảng trắng thừa giữa các từ:
Sử dụng hàm Trim Worksheet trong VBA
Để sử dụng Hàm Trim Excel trong VBA, hãy gọi nó bằng cách sử dụng WorksheetFunction:
12345678910 | Sub TrimExample_4 ()Msgbox WorksheetFunction.Trim ("Tôi yêu excel")'Kết quả là: "I love excel"Msgbox WorksheetFunction.Trim ("Tôi yêu excel")'Kết quả là: "I love excel"Msgbox WorksheetFunction.Trim ("Tôi yêu excel")'Kết quả là: "I love excel"Kết thúc Sub |
Bạn mệt mỏi với việc tìm kiếm ví dụ về mã VBA? Hãy thử AutoMacro!
Sự khác biệt giữa WorksheetFunction.Trim và VBA Trim
Điều này sẽ chứng minh sự khác biệt giữa Trim và WorksheetFunction.Trim:
1234567891011121314151617 | Sub TrimExample_5 ()Msgbox WorksheetFunction.Trim ("Tôi yêu excel")'Kết quả là: "I love excel"Msgbox Trim ("Tôi yêu excel")'Kết quả là: "I love excel"Msgbox WorksheetFunction.Trim ("Tôi yêu excel")'Kết quả là: "I love excel"Msgbox Trim ("Tôi yêu excel")'Kết quả là: "I love excel"Msgbox WorksheetFunction.Trim ("Tôi yêu excel")'Kết quả là: "I love excel"Msgbox Trim ("Tôi yêu excel")'Kết quả là: "I love excel"Kết thúc Sub |
Sử dụng VBA để thêm Hàm Trim trong một Phạm vi
Hàm Trim Worksheet có thể được thêm vào trong Range bằng thuộc tính .Formula:
123 | Sub TrimExample_6 ()ThisWorkbook.Worksheets ("Sheet1"). Phạm vi ("B1"). Công thức = "= trim (A1)"Kết thúc Sub |
Hàm LTrim
Hàm LTrim chỉ xóa khoảng trắng ở bên trái của từ:
12345678910111213141516171819 | Sub TrimExample_7 ()MsgBox LTrim ("Tôi yêu excel")'Kết quả là: "I love excel"MsgBox LTrim ("Tôi yêu excel")'Kết quả là: "I love excel"MsgBox LTrim ("Tôi yêu excel")'Kết quả là: "I love excel"MsgBox LTrim ("Tôi yêu excel")'Kết quả là: "I love excel"MsgBox LTrim ("Tôi yêu excel")'Kết quả là: "I love excel"MsgBox LTrim ("Tôi yêu excel")'Kết quả là: "I love excel"Kết thúc Sub |
Hàm RTrim
Hàm RTrim chỉ xóa khoảng trắng ở phía bên phải của từ:
12345678910111213141516171819 | Sub TrimExample_8 ()MsgBox RTrim ("Tôi yêu excel")'Kết quả là: "I love excel"MsgBox RTrim ("Tôi yêu excel")'Kết quả là: "I love excel"MsgBox RTrim ("Tôi yêu excel")'Kết quả là: "I love excel"MsgBox RTrim ("Tôi yêu excel")'Kết quả là: "I love excel"MsgBox RTrim ("Tôi yêu excel")'Kết quả là: "I love excel"MsgBox RTrim ("Tôi yêu excel")'Kết quả là: "I love excel"Kết thúc Sub |
Trim, Ltrim và Rtrim không xóa khoảng trắng giữa các từ.
Xóa tất cả các khoảng trắng khỏi văn bản
Trim sẽ chỉ loại bỏ các khoảng trắng thừa giữa các từ, nhưng để xóa tất cả các khoảng trắng trong một chuỗi văn bản, bạn có thể sử dụng Hàm Replace:
1234 | Sub ReplaceExample ()MsgBox Replace ("Tôi yêu excel", "", "")'Kết quả là: "Iloveexcel"Kết thúc Sub |