Excel VBA Cắt tất cả các ô

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ắt

Hà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ản

Chứ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ính

Tuy nhiên, có thể được sử dụng để loại bỏ khoảng cách thừa giữa các từ

Excel VBA Cắt tất cả các ô

 

 

 

 

 

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àng

Ngừ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

Excel VBA Cắt tất cả các ô

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 vi

Chứ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 LTrim

Hà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 RTrim

Hà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ản

Trim 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ế