Tento tutoriál ukáže, ako používať funkcie Orezať, LTrim a RTrim VBA, ako aj funkciu orezať pracovný list.
Funkcia orezania
Funkcia Orezať VBA odstráni („orezá“) chybné medzery pred a za reťazcami textu.
Orežte medzery pred a za textom
Funkcia Orezať VBA odstráni medzery pred a za reťazcami textu:
| 12345678910 | Sub TrimExample_1 ()Trim MsgBox („Milujem excel“)Výsledok je: „Milujem excel“Trim MsgBox („Milujem excel“)Výsledok je: „Milujem excel“Trim MsgBox („Milujem excel“)Výsledok je: „Milujem excel“Koniec pod |
Orezajte viac medzier pred textom a za ním
To zahŕňa orezanie viacerých medzier pred a za textom:
| 12345678910 | Sub TrimExample_2 ()Trim MsgBox („Milujem excel“)Výsledok je: „Milujem excel“Trim MsgBox („Milujem excel“)Výsledok je: „Milujem excel“Trim MsgBox („Milujem excel“)Výsledok je: „Milujem excel“Koniec pod |
Orez VBA NEODSTRAŇUJE viac medzier medzi slovami
Funkcia orezania však neodstráni medzery medzi slovami:
| 12345678910 | Sub TrimExample_3 ()Trim MsgBox („Milujem excel“)Výsledok je: „Milujem excel“Trim MsgBox („Milujem excel“)Výsledok je: „Milujem excel“Trim MsgBox („Milujem excel“)Výsledok je: „Milujem excel“Koniec pod |
Orezať ako funkciu pracovného hárka
Na odstránenie nadbytočných medzier medzi slovami je však možné použiť funkciu pracovného hárka programu Excel Orezať:
Vo VBA použite funkciu orezania pracovného hárka
Ak chcete vo VBA používať funkciu Excel Trim, zavolajte ju pomocou WorksheetFunction:
| 12345678910 | Sub TrimExample_4 ()Msgbox WorksheetFunction.Trim („Milujem Excel“)Výsledok je: „Milujem excel“Msgbox WorksheetFunction.Trim („Milujem Excel“)Výsledok je: „Milujem excel“Msgbox WorksheetFunction.Trim („Milujem Excel“)Výsledok je: „Milujem excel“Koniec pod |
Ste unavení z hľadania príkladov kódu VBA? Skúste AutoMacro!
Rozdiel medzi funkciou WorksheetFunction.Trim a VBA Trim
Toto demonštruje rozdiely medzi funkciou Orezať a Pracovným listom. Orezanie:
| 1234567891011121314151617 | Sub TrimExample_5 ()Msgbox WorksheetFunction.Trim („Milujem Excel“)Výsledok je: „Milujem excel“Orezanie Msgbox („Milujem excel“)Výsledok je: „Milujem excel“Msgbox WorksheetFunction.Trim („Milujem Excel“)Výsledok je: „Milujem excel“Orezanie Msgbox („Milujem excel“)Výsledok je: „Milujem excel“Msgbox WorksheetFunction.Trim („Milujem Excel“)Výsledok je: „Milujem excel“Orezanie Msgbox („Milujem excel“)Výsledok je: „Milujem excel“Koniec pod |
Na pridanie funkcie orezania do rozsahu použite VBA
Funkciu Orezať pracovný list je možné pridať do rozsahu pomocou vlastnosti. Vzorec:
| 123 | Sub TrimExample_6 ()ThisWorkbook.Worksheets ("Sheet1"). Range ("B1"). Formula = "= trim (A1)"Koniec pod |
Funkcia LTrim
Funkcia LTrim odstráni medzery iba z ľavej strany slova:
| 12345678910111213141516171819 | Sub TrimExample_7 ()MsgBox LTrim („Milujem excel“)Výsledok je: „Milujem excel“MsgBox LTrim („Milujem excel“)Výsledok je: „Milujem excel“MsgBox LTrim („Milujem excel“)Výsledok je: „Milujem excel“MsgBox LTrim („Milujem excel“)Výsledok je: „Milujem excel“MsgBox LTrim („Milujem excel“)Výsledok je: „Milujem excel“MsgBox LTrim („Milujem excel“)Výsledok je: „Milujem excel“Koniec pod |
Funkcia RTrim
Funkcia RTrim odstráni medzery iba z pravej strany slova:
| 12345678910111213141516171819 | Sub TrimExample_8 ()MsgBox RTrim („Milujem excel“)Výsledok je: „Milujem excel“MsgBox RTrim („Milujem excel“)Výsledok je: „Milujem excel“MsgBox RTrim („Milujem excel“)Výsledok je: „Milujem excel“MsgBox RTrim („Milujem excel“)Výsledok je: „Milujem excel“MsgBox RTrim („Milujem excel“)Výsledok je: „Milujem excel“MsgBox RTrim („Milujem excel“)Výsledok je: „Milujem excel“Koniec pod |
Orezať, Ltrim a Rtrim neodstraňujú medzery medzi slovami.
Odstráňte z textu všetky medzery
Orezanie odstráni iba medzery medzi slovami, ale na odstránenie všetkých medzier v reťazci textu môžete použiť funkciu Nahradiť:
| 1234 | Sub náhrada Príklad ()MsgBox Nahradiť („Milujem excel“, „“, „“)Výsledok je: „Iloveexcel“Koniec pod |
