Hướng dẫn này sẽ trình bày cách sử dụng các chức năng VBA Trim, LTrim và RTrim cũng như chức năng trang tính Trim chức năng cắtHàm VBA Trim loại bỏ các khoảng trắng bị lỗi (“trims”) trước và sau các chuỗi văn bản Cắt khoảng trắng trước và sau văn bảnChức năng VBA Trim sẽ xóa khoảng trắng trước và sau chuỗi văn bản Sub TrimExample_1()
MsgBox Trim(" I love excel ")
'Result is: "I love excel"
MsgBox Trim(" I love excel")
'Result is: "I love excel"
MsgBox Trim("I love excel ")
'Result is: "I love excel"
End 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ớt nhiều khoảng trắng trước và sau văn bản Sub TrimExample_2()
MsgBox Trim(" I love excel ")
'Result is: "I love excel"
MsgBox Trim(" I love excel")
'Result is: "I love excel"
MsgBox Trim("I love excel ")
'Result is: "I love excel"
End Sub
VBA Trim sẽ KHÔNG xóa nhiều khoảng trắng giữa các từTuy nhiên, chức năng Trim sẽ không loại bỏ nhiều dấu cách giữa các từ Sub TrimExample_3()
MsgBox Trim(" I love excel ")
'Result is: "I love excel"
MsgBox Trim(" I love excel")
'Result is: "I love excel"
MsgBox Trim("I love excel ")
'Result is: "I love excel"
End Sub
Trim như một chức năng trang tínhTuy nhiên, có thể được sử dụng để loại bỏ khoảng cách thừa giữa các từ Sử dụng chức năng cắt trang tính trong VBAĐể sử dụng Hàm Trim Excel trong VBA, hãy gọi nó bằng cách sử dụng WorksheetFunction Sub TrimExample_4()
Msgbox WorksheetFunction.Trim(" I love excel ")
'Result is: "I love excel"
Msgbox WorksheetFunction.Trim(" I love excel")
'Result is: "I love excel"
Msgbox WorksheetFunction.Trim("I love excel ")
'Result is: "I love excel"
End Sub
Lập trình VBA dễ dàngNgừng tìm kiếm mã VBA trực tuyến. Tìm hiểu thêm về AutoMacro - Trình tạo mã VBA cho phép người mới bắt đầu viết mã quy trình từ đầu với kiến thức mã hóa tối thiểu và có nhiều tính năng tiết kiệm thời gian cho tất cả người dùng Tìm hiểu thêm 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. cắt tỉa Sub TrimExample_5()
Msgbox WorksheetFunction.Trim(" I love excel ")
'Result is: "I love excel"
Msgbox Trim(" I love excel ")
'Result is: "I love excel"
Msgbox WorksheetFunction.Trim(" I love excel")
'Result is: "I love excel"
Msgbox Trim(" I love excel")
'Result is: "I love excel"
Msgbox WorksheetFunction.Trim("I love excel ")
'Result is: "I love excel"
Msgbox Trim("I love excel ")
'Result is: "I love excel"
End Sub
Sử dụng VBA để thêm Hàm Trim trong Phạm viChức năng Trim Worksheet có thể được thêm vào trong Phạm vi bằng cách sử dụng thuộc tính. Công thức Sub TrimExample_6()
ThisWorkbook.Worksheets("Sheet1").Range("B1").Formula = "=trim(A1)"
End Sub
Chức năng LTrimHàm LTrim chỉ xóa khoảng trắng ở bên trái của từ Sub TrimExample_7()
MsgBox LTrim(" I love excel ")
'Result is: "I love excel "
MsgBox LTrim(" I love excel")
'Result is: "I love excel"
MsgBox LTrim("I love excel ")
'Result is: "I love excel "
MsgBox LTrim(" I love excel ")
'Result is: "I love excel "
MsgBox LTrim(" I love excel")
'Result is: "I love excel"
MsgBox LTrim("I love excel ")
'Result is: "I love excel "
End Sub
Lập trình VBA. Trình tạo mã phù hợp với bạn Chức năng RTrimHàm RTrim chỉ xóa khoảng trắng ở bên phải của từ Sub TrimExample_8()
MsgBox RTrim(" I love excel ")
'Result is: " I love excel"
MsgBox RTrim(" I love excel")
'Result is: " I love excel"
MsgBox RTrim("I love excel ")
'Result is: "I love excel"
MsgBox RTrim(" I love excel ")
'Result is: " I love excel"
MsgBox RTrim(" I love excel")
'Result is: " I love excel"
MsgBox RTrim("I love excel ")
'Result is: "I love excel "
End Sub
Trim, Ltrim và Rtrim không xóa dấu cách giữa các từ Xóa tất cả khoảng trắng khỏi văn bảnTrim sẽ chỉ xóa khoảng trắng thừa ở giữa các từ, nhưng để xóa tất cả khoảng trắng trong chuỗi văn bản, bạn có thể sử dụng Hàm Thay thế |