Цей підручник продемонструє, як користуватися функціями Trim, LTrim та RTrim VBA, а також функцією обрізання аркуша.
Функція обрізки
Функція 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 НЕ видалить декілька пробілів між словами
Однак функція обрізання не видалить декілька пробілів між словами:
12345678910 | Sub TrimExample_3 ()MsgBox Trim ("Я люблю Excel")Результат: "Я люблю Excel"MsgBox Trim ("Я люблю Excel")Результат: "Я люблю Excel"MsgBox Trim ("Я люблю Excel")Результат: "Я люблю Excel"End Sub |
Обрізати як функцію робочого аркуша
Однак функцію робочого аркуша Excel Trim можна використовувати для видалення зайвих пробілів між словами:
Використовуйте функцію обрізання аркуша у VBA
Щоб використовувати функцію обрізки Excel у 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!
Різниця між робочим аркушем.Trim та VBA Trim
Це продемонструє відмінності між Trim та WorksheetFunction.Trim:
1234567891011121314151617 | Sub TrimExample_5 ()Msgbox WorksheetFunction.Trim ("Я люблю Excel")Результат: "Я люблю Excel"Обрізка Msgbox ("Я люблю Excel")Результат: "Я люблю Excel"Msgbox WorksheetFunction.Trim ("Я люблю Excel")Результат: "Я люблю Excel"Обрізка Msgbox ("Я люблю Excel")Результат: "Я люблю Excel"Msgbox WorksheetFunction.Trim ("Я люблю Excel")Результат: "Я люблю Excel"Обрізка Msgbox ("Я люблю Excel")Результат: "Я люблю Excel"End Sub |
Використовуйте VBA, щоб додати функцію обрізання в діапазоні
Функцію 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 |
Обрізання, Ltrim та Rtrim не видаляють пробіли між словами.
Видаліть усі пробіли з тексту
Обрізання видалить лише зайві пробіли між словами, але щоб видалити всі пробіли в рядку тексту, можна скористатися функцією заміни:
1234 | Sub ReplaceExample ()MsgBox Replace ("Я люблю Excel", "", "")Результат: "Iloveexcel"End Sub |