Ovaj će vodič pokazati kako se koriste funkcije Trim, LTrim i RTrim VBA, kao i funkcija Trim radnog lista.
Trim funkcija
Funkcija VBA Trim uklanja ("skraćuje") pogrešne razmake prije i poslije nizova teksta.
Odrežite razmake prije i poslije teksta
Funkcija VBA Trim uklonit će razmake prije i poslije nizova teksta:
12345678910 | Primjer podrezivanja_1 ()MsgBox Trim ("Volim Excel")'Rezultat je: "Volim Excel"MsgBox Trim ("Volim Excel")'Rezultat je: "Volim Excel"MsgBox Trim ("Volim Excel")'Rezultat je: "Volim Excel"Kraj podm |
Obrežite više razmaka prije i poslije teksta
To uključuje obrezivanje više razmaka prije i poslije teksta:
12345678910 | Primjer podrezivanja_2 ()MsgBox Trim ("Volim Excel")'Rezultat je: "Volim Excel"MsgBox Trim ("Volim Excel")'Rezultat je: "Volim Excel"MsgBox Trim ("Volim Excel")'Rezultat je: "Volim Excel"Kraj podm |
VBA Trim NEĆE ukloniti više razmaka između riječi
Međutim, funkcija Trim neće ukloniti više razmaka između riječi:
12345678910 | Primjer podrezivanja_3 ()MsgBox Trim ("Volim Excel")'Rezultat je: "Volim Excel"MsgBox Trim ("Volim Excel")'Rezultat je: "Volim Excel"MsgBox Trim ("Volim Excel")'Rezultat je: "Volim Excel"Kraj podm |
Obrezivanje kao funkcija radnog lista
Međutim, funkcija radnog lista programa Excel Trim može se koristiti za uklanjanje dodatnih razmaka između riječi:
Upotrijebite funkciju obrezivanja radnog lista u VBA
Da biste koristili funkciju obrezivanja programa Excel u VBA, nazovite je pomoću funkcije Radni list:
12345678910 | Primjer podrezivanja_4 ()Msgbox WorksheetFunction.Trim ("Volim Excel")'Rezultat je: "Volim Excel"Msgbox WorksheetFunction.Trim ("Volim Excel")'Rezultat je: "Volim Excel"Msgbox WorksheetFunction.Trim ("Volim Excel")'Rezultat je: "Volim Excel"Kraj podm |
Umorni ste od traženja primjera VBA koda? Isprobajte AutoMacro!
Razlika između funkcije radnog lista.Trim i VBA Trim
Ovo će pokazati razlike između Trim i WorksheetFunction.Trim:
1234567891011121314151617 | Primjer podrezivanja_5 ()Msgbox WorksheetFunction.Trim ("Volim Excel")'Rezultat je: "Volim Excel"Msgbox Trim ("Volim Excel")'Rezultat je: "Volim Excel"Msgbox WorksheetFunction.Trim ("Volim Excel")'Rezultat je: "Volim Excel"Msgbox Trim ("Volim Excel")'Rezultat je: "Volim Excel"Msgbox WorksheetFunction.Trim ("Volim Excel")'Rezultat je: "Volim Excel"Msgbox Trim ("Volim Excel")'Rezultat je: "Volim Excel"Kraj podm |
Upotrijebite VBA za dodavanje funkcije obrezivanja u rasponu
Funkcija Trim Worksheet može se dodati u raspon pomoću svojstva .Formula:
123 | Primjer podrezivanja_6 ()ThisWorkbook.Worksheets ("Sheet1"). Raspon ("B1"). Formula = "= trim (A1)"Kraj podm |
LTrim funkcija
Funkcija LTrim uklanja razmake samo s lijeve strane riječi:
12345678910111213141516171819 | Primjer podrezivanja_7 ()MsgBox LTrim ("Volim Excel")'Rezultat je: "Volim Excel"MsgBox LTrim ("Volim Excel")'Rezultat je: "Volim Excel"MsgBox LTrim ("Volim Excel")'Rezultat je: "Volim Excel"MsgBox LTrim ("Volim Excel")'Rezultat je: "Volim Excel"MsgBox LTrim ("Volim Excel")'Rezultat je: "Volim Excel"MsgBox LTrim ("Volim Excel")'Rezultat je: "Volim Excel"Kraj podm |
RTrim funkcija
Funkcija RTrim uklanja razmake samo s desne strane riječi:
12345678910111213141516171819 | Primjer podrezivanja_8 ()MsgBox RTrim ("Volim Excel")'Rezultat je: "Volim Excel"MsgBox RTrim ("Volim Excel")'Rezultat je: "Volim Excel"MsgBox RTrim ("Volim Excel")'Rezultat je: "Volim Excel"MsgBox RTrim ("Volim Excel")'Rezultat je: "Volim Excel"MsgBox RTrim ("Volim Excel")'Rezultat je: "Volim Excel"MsgBox RTrim ("Volim Excel")'Rezultat je: "Volim Excel"Kraj podm |
Trim, Ltrim i Rtrim ne uklanjaju razmake između riječi.
Uklonite sve razmake iz teksta
Trim će ukloniti samo dodatne razmake između riječi, ali za uklanjanje svih razmaka u nizu teksta možete upotrijebiti funkciju Zamijeni:
1234 | Sub Zamijeni Primjer ()MsgBox Replace ("Volim Excel", "", "")'Rezultat je: "Iloveexcel"Kraj podm |