Tento tutoriál předvede, jak používat funkce Trim, LTrim a RTrim VBA a také funkci oříznutí listu.
Funkce oříznutí
Funkce Ořez VBA odstraní („ořízne“) chybné mezery před a za řetězci textu.
Ořízněte mezery před a za textem
Funkce VBA Trim odstraní mezery před a za řetězci textu:
| 12345678910 | Sub TrimExample_1 ()MsgBox Trim („Miluji excel“)Výsledek: „Miluji excel“MsgBox Trim („Miluji excel“)Výsledek je: „Miluji excel“MsgBox Trim („Miluji excel“)Výsledek: „Miluji excel“End Sub |
Ořízněte více mezer před a za textem
To zahrnuje ořezávání více mezer před a za textem:
| 12345678910 | Sub TrimExample_2 ()MsgBox Trim („Miluji excel“)Výsledek: „Miluji excel“MsgBox Trim („Miluji excel“)Výsledek: „Miluji excel“MsgBox Trim („Miluji excel“)Výsledek: „Miluji excel“End Sub |
Ořez VBA NEODSTRAŇUJE více mezer mezi slovy
Funkce Oříznout však neodstraní více mezer mezi slovy:
| 12345678910 | Sub TrimExample_3 ()MsgBox Trim („Miluji excel“)Výsledek: „Miluji excel“MsgBox Trim („Miluji excel“)Výsledek: „Miluji excel“MsgBox Trim („Miluji excel“)Výsledek: „Miluji excel“End Sub |
Oříznout jako funkci listu
K odstranění nadbytečných mezer mezi slovy je však možné použít funkci listu aplikace Excel Trim:
Ve VBA použijte funkci oříznutí listu
Chcete -li ve VBA použít funkci Excel Trim, zavolejte ji pomocí WorksheetFunction:
| 12345678910 | Sub TrimExample_4 ()Msgbox WorksheetFunction.Trim („Miluji Excel“)Výsledek: „Miluji excel“Msgbox WorksheetFunction.Trim („Miluji Excel“)Výsledek: „Miluji excel“Msgbox WorksheetFunction.Trim („Miluji Excel“)Výsledek: „Miluji excel“End Sub |
Už vás nebaví hledat příklady kódu VBA? Zkuste AutoMacro!
Rozdíl mezi WorksheetFunction.Trim a VBA Trim
Tím předvedete rozdíly mezi Trim a WorksheetFunction.Trim:
| 1234567891011121314151617 | Sub TrimExample_5 ()Msgbox WorksheetFunction.Trim („Miluji Excel“)Výsledek: „Miluji excel“Msgbox Trim („Miluji excel“)Výsledek: „Miluji excel“Msgbox WorksheetFunction.Trim („Miluji Excel“)Výsledek: „Miluji excel“Msgbox Trim („Miluji excel“)Výsledek: „Miluji excel“Msgbox WorksheetFunction.Trim („Miluji Excel“)Výsledek: „Miluji excel“Msgbox Trim („Miluji excel“)Výsledek: „Miluji excel“End Sub |
Pomocí VBA přidejte funkci oříznutí do rozsahu
Funkci Trim Worksheet lze přidat do Range pomocí vlastnosti .Formula:
| 123 | Sub TrimExample_6 ()ThisWorkbook.Worksheets ("Sheet1"). Range ("B1"). Formula = "= trim (A1)"End Sub |
Funkce LTrim
Funkce LTrim odstraní mezery pouze z levé strany slova:
| 12345678910111213141516171819 | Sub TrimExample_7 ()MsgBox LTrim („Miluji excel“)Výsledek je: „Miluji excel“MsgBox LTrim („Miluji excel“)Výsledek je: „Miluji excel“MsgBox LTrim („Miluji excel“)Výsledek: „Miluji excel“MsgBox LTrim („Miluji excel“)Výsledek: „Miluji excel“MsgBox LTrim („Miluji excel“)Výsledek: „Miluji excel“MsgBox LTrim („Miluji excel“)Výsledek je: „Miluji excel“End Sub |
Funkce RTrim
Funkce RTrim odstraní mezery pouze z pravé strany slova:
| 12345678910111213141516171819 | Sub TrimExample_8 ()MsgBox RTrim („Miluji excel“)Výsledek: „Miluji excel“MsgBox RTrim („Miluji excel“)Výsledek je: „Miluji excel“MsgBox RTrim („Miluji excel“)Výsledek: „Miluji excel“MsgBox RTrim („Miluji excel“)Výsledek: „Miluji excel“MsgBox RTrim („Miluji excel“)Výsledek: „Miluji excel“MsgBox RTrim („Miluji excel“)Výsledek: „Miluji excel“End Sub |
Oříznout, Ltrim a Rtrim neodstraňují mezery mezi slovy.
Odstraňte z textu všechny mezery
Oříznout odstraní pouze mezery mezi slovy, ale k odstranění všech mezer v řetězci textu můžete použít funkci Nahradit:
| 1234 | Sub ReplaceExample ()MsgBox Replace („Miluji excel“, „“, „“)Výsledkem je „Iloveexcel“End Sub |
