Функция VBA TRIM - Как да използвам функцията Excel VBA TRIM?

Съдържание

Excel VBA TRIM функция

VBA TRIM е категоризиран под функциите низ и текст, тази функция е функция на работен лист във VBA и подобно на референтния лист, тази функция се използва за изрязване или премахване на нежеланите интервали от низ, отнема един аргумент, който е входен низ и връща изход като низ.

Има няколко ситуации, при които изтегляме данните от онлайн сървъри и се сблъскваме със ситуация на неорганизирани данни и нежелани пространства в клетката. Справянето с ненужни интервали е много болезнено за работа. В обикновените функции на работния лист имаме функция, наречена TRIM в Excel, за да се отървем от „Водещи пространства, последващи пространства и междупространство“. Във VBA също имаме функция, наречена TRIM, която работи точно по същия начин като функцията excel, но има само една малка разлика. Ще видим това в тази статия малко по-късно.

Какво прави функцията Trim?

TRIM е низ функция, която премахва интервали в Excel от избраната клетка. В пространствата имаме 3 типа „Водещи пространства, последващи пространства и интервали между тях“.

Leading Space не е нищо, но преди да започне каквато и да е стойност в клетката, ако има някакво пространство, то се нарича Leading Space.

Trailing Space не е нищо друго, но след края на стойността в клетката, ако има някакво пространство, то се нарича Trailing Space.

Междупространството не е нищо след края на всяка дума; в идеалния случай трябва да имаме един космически характер. Всичко повече от един интервал се нарича In-Between Space.

За да преодолеем всички тези видове проблеми, имаме функция, наречена TRIM.

Синтаксис

String: Какъв е низът или стойността, които искате да отрежете? Това може да бъде препратка към клетка, както и директно подаване на стойност към формулата.

Примери

Пример # 1

Сега ще видим как да премахнем водещите интервали в Excel с помощта на функцията TRIM. Следвайте стъпките по-долу

Стъпка 1: Създайте име на макрос и декларирайте променлива като String.

Код:

Sub Trim_Example1 () Dim k As String End Sub

Стъпка 2: Сега, за тази декларирана променлива, задайте стойност, като използвате TRIM.

Код:

Sub Trim_Example1 () Dim k As String k = Trim (End Sub

Стъпка 3: За този тип низ думата в двойни кавички е „Добре дошли в VBA“.

Код:

Sub Trim_Example1 () Dim k As String k = Trim ("Welcome to VBA") End Sub

Стъпка 4: Сега покажете резултата от тази променлива в полето за съобщения.

Код:

Sub Trim_Example1 () Dim k As String k = Trim ("Welcome to VBA") MsgBox k End Sub

Стъпка 5: Стартирайте този код с помощта на клавиша F5 или стартирайте ръчно. Трябва да получим правилен низ в полето за съобщения.

Изход:

Така че, функцията TRIM премахна всички водещи интервали, които въведохме в стойността на низа. Сега резултатът е правилно изречение, т.е. „Добре дошли в VBA.“

Пример # 2

Сега разгледайте още един пример за премахване на последващи интервали. Вземете същата дума, но този път въведете крайните интервали.

„Добре дошли във VBA. „

Код:

Sub Trim_Example2 () Dim k As String k = Trim ("Welcome to VBA") MsgBox k End Sub

Изпълнете този код ръчно или чрез клавиша F5 Функцията Trim премахва и последващите интервали.

Изход:

Пример # 3 - Почистете данните в клетки

Сега ще видим практическия пример за почистване на данните в клетките на Excel. Да приемем, че във вашия лист на Excel има набор от данни, както е показано по-долу.

When we have more than one cell data, we need to write different codes. Follow the below steps to write code.

Step 1: Declare a variable as “Range.”

Code:

Sub Trim_Example3() Dim MyRange As Range End Sub

Step 2: Since the range data type is an object, we need to set the range first. So set the range as “selection.”

Code:

Sub Trim_Example3() Dim MyRange As Range Set MyRange = Selection End Sub

Note: MyRange = Selection means whatever the cells I select becomes a range. So in that range, TRIM removes unwanted spaces.

Step 3: Now, using For Each VBA Loop, apply the TRIM function.

Code:

Sub Trim_Example3() Dim MyRange As Range Set MyRange = Selection For Each cell In MyRange cell.Value = Trim(cell) Next End Sub

Step 4: Now go back to the worksheet. Go to insert and draw a rectangular shape.

Step 5: Add a word to the inserted rectangular shape as click here to clean the data.

Step 6: Right-click on the rectangular shape and select the assigned macro.

Step 7: Now, the macro names box will open. Select the name of the macro we just created. Click on Ok.

Step 8: Now select the range where we need to clean the data.

Step 9: After selecting the range, click on the assigned macro rectangular box. It will clean the data.

So we got cleaned value, i.e., after removing leading & trailing spaces.

Difference Between Excel & VBA Trim Function

The only difference between them is VBA function cannot remove in between spaces while the worksheet function in VBA does. For example, take a look at the below example.

In cell A3, we have in-between spaces. If select and click on the rectangular shape, it will only remove trailing & leading spaces, not in-between spaces.

To overcome this problem, we need to use the trim function as a worksheet function in the code.

Code:

Sub Trim_Example3() Dim MyRange As Range Set MyRange = Selection For Each cell In MyRange cell.Value = WorksheetFunction.Trim(cell) Next End Sub

Here we have used a worksheet function, not a VBA function. This will remove all kinds of spaces.

Things to Remember

  • VBA Trim & Worksheet Trim syntax is exactly the same.
  • It can only remove leading & trailing spaces, not in-between spaces.
  • Функцията за подрязване на Excel може да премахне всякакви интервали.

Интересни статии...