Този урок ще покаже как да използвате функциите Trim, LTrim и RTrim VBA, както и функцията Trim на работен лист.
Функция Trim
Функцията VBA Trim премахва („подрязва“) грешни интервали преди и след низове текст.
Изрязване на интервали преди и след текст
Функцията VBA Trim ще премахне интервалите преди и след низове текст:
12345678910 | Sub TrimExample_1 ()MsgBox Trim („Обичам Excel“)Резултатът е: „Обичам Excel“MsgBox Trim („Обичам Excel“)"Резултатът е:" Обичам Excel "MsgBox Trim („Обичам Excel“)Резултатът е: „Обичам Excel“End Sub |
Изрязване на множество интервали преди и след текст
Това включва изрязване на множество интервали преди и след текст:
12345678910 | Sub TrimExample_2 ()MsgBox Trim („Обичам Excel“)Резултатът е: „Обичам Excel“MsgBox Trim („Обичам Excel“)Резултатът е: „Обичам Excel“MsgBox Trim („Обичам Excel“)Резултатът е: „Обичам Excel“End Sub |
VBA Trim НЕ премахва множество интервали между думите
Функцията Trim обаче няма да премахне множество интервали между думите:
12345678910 | Sub TrimExample_3 ()MsgBox Trim („Обичам Excel“)Резултатът е: „Обичам Excel“MsgBox Trim („Обичам Excel“)"Резултатът е:" Обичам Excel "MsgBox Trim („Обичам Excel“)Резултатът е: „Обичам Excel“End Sub |
Подрязване като функция на работен лист
Функцията на работния лист на Excel Trim обаче може да се използва за премахване на допълнителни интервали между думите:
Използвайте функцията за подрязване на работен лист във VBA
За да използвате функцията Excel Trim във VBA, извикайте я с помощта на WorksheetFunction:
12345678910 | Sub TrimExample_4 ()Msgbox WorksheetFunction.Trim („Обичам Excel“)Резултатът е: „Обичам Excel“Msgbox WorksheetFunction.Trim („Обичам Excel“)"Резултатът е:" Обичам Excel "Msgbox WorksheetFunction.Trim („Обичам Excel“)"Резултатът е:" Обичам Excel "End Sub |
Уморени ли сте от търсене на примери за VBA код? Опитайте AutoMacro!
Разлика между WorksheetFunction.Trim и VBA Trim
Това ще демонстрира разликите между Trim и WorksheetFunction.
1234567891011121314151617 | Sub TrimExample_5 ()Msgbox WorksheetFunction.Trim („Обичам Excel“)Резултатът е: „Обичам Excel“Msgbox Trim („Обичам Excel“)"Резултатът е:" Обичам Excel "Msgbox WorksheetFunction.Trim („Обичам Excel“)Резултатът е: „Обичам Excel“Msgbox Trim („Обичам Excel“)Резултатът е: „Обичам Excel“Msgbox WorksheetFunction.Trim („Обичам Excel“)Резултатът е: „Обичам Excel“Msgbox Trim („Обичам Excel“)Резултатът е: „Обичам Excel“End Sub |
Използвайте VBA, за да добавите функция Trim в диапазон
Функцията Trim Worksheet може да бъде добавена в диапазон с помощта на свойство.
123 | Sub TrimExample_6 ()ThisWorkbook.Worksheets ("Sheet1"). Range ("B1"). Formula = "= trim (A1)"End Sub |
LTrim функция
Функцията LTrim премахва интервалите само от лявата страна на думата:
12345678910111213141516171819 | Sub TrimExample_7 ()MsgBox LTrim („Обичам Excel“)Резултатът е: „Обичам Excel“MsgBox LTrim („Обичам Excel“)Резултатът е: „Обичам Excel“MsgBox LTrim („Обичам Excel“)Резултатът е: „Обичам Excel“MsgBox LTrim („Обичам Excel“)Резултатът е: „Обичам Excel“MsgBox LTrim („Обичам Excel“)Резултатът е: „Обичам Excel“MsgBox LTrim („Обичам Excel“)Резултатът е: „Обичам Excel“End Sub |
RTrim функция
Функцията RTrim премахва интервалите само от дясната страна на думата:
12345678910111213141516171819 | Sub TrimExample_8 ()MsgBox RTrim („Обичам Excel“)"Резултатът е:" Обичам Excel "MsgBox RTrim („Обичам Excel“)Резултатът е: „Обичам Excel“MsgBox RTrim („Обичам Excel“)Резултатът е: „Обичам Excel“MsgBox RTrim („Обичам Excel“)Резултатът е: „Обичам Excel“MsgBox RTrim („Обичам Excel“)Резултатът е: „Обичам Excel“MsgBox RTrim („Обичам Excel“)Резултатът е: „Обичам Excel“End Sub |
Trim, Ltrim и Rtrim не премахват интервалите между думите.
Премахнете всички интервали от текста
Trim ще премахне само допълнителни интервали между думите, но за да премахнете всички интервали в низ от текст, можете да използвате функцията Replace:
1234 | Sub ReplaceExample ()MsgBox Replace ("Обичам Excel", "", "")'Резултатът е: "Iloveexcel"End Sub |