Vba убрать все пробелы в ячейке excel

Excel VBA TRIM Function

VBA TRIM comes under the String and Text functions. This function is a Worksheet function in VBA. Similar to the worksheet reference, this function one may use to trim or remove unwanted spaces from a string. It takes a single argument, an input string, and returns an output as a string.

There are several situations where we download the data from online servers, and we face a situation of unorganized data and unwanted spaces in the cell. Dealing with unnecessary spaces is very painful to work with. So, in regular Worksheet functions, we have TRIM in excelThe Trim function in Excel does exactly what its name implies: it trims some part of any string. The function of this formula is to remove any space in a given string. It does not remove a single space between two words, but it does remove any other unwanted spaces.read more to eliminate “Leading Spaces, Trailing Spaces, and In-Between Space.” In VBA, we also have a TRIM function, which works the same as the Excel function, but there is only one slight difference. We will see that in this article a little later.

You are free to use this image on your website, templates, etc, Please provide us with an attribution linkArticle Link to be Hyperlinked
For eg:
Source: VBA TRIM (wallstreetmojo.com)

What Does Trim Function Do?

TRIM is a string function that removes spaces in excelWhile importing or copy-pasting the data from an external source, extra spaces are also copied in Excel. This makes the data disorganized and difficult to be used. The purpose of removing unwanted spaces from the excel data is to make it more presentable and readable for the user.
read more from the selected cell. For example, in space, we have three types: Leading Space, Trailing Space, and In-Between Space.

Leading Space is nothing, but before any value starts in the cell, if there is any space, then it is called Leading Space.

Trailing Space is nothing, but after the end of the value in the cell, if there is any space, it is called Trailing Space.

In-Between Space is nothing after the end of each word. Ideally, we should have one space character. Anything more than one space character is known as In-Between Space.

To overcome all these problems, we have a function called TRIM.

Syntax

String: What is the string or value you want to trim? It could be a cell reference and a direct value supply to the formula.

Examples

You can download this VBA TRIM Function Template here – VBA TRIM Function Template

Example #1

Now, we will see how to remove leading spaces in excelThe TRIM function in Excel can remove all the unwanted spaces in the excel cell. read more using the TRIM function. Follow the below steps:

Step 1: Create a Macro name and declare a variable as String.

Code:

Sub Trim_Example1()

    Dim k As String

End Sub

Step 2: Now, assign a value using the TRIM for this declared variable.

Code:

Sub Trim_Example1()

    Dim k As String

    k = Trim(

End Sub

Step 3: For this String type, the word in double quotes is “Welcome to VBA.”

Code:

Sub Trim_Example1()

    Dim k As String

    k = Trim(" Welcome to VBA")

End Sub

Step 4: Now, show the result of this variable in the message box.

Code:

Sub Trim_Example1()

    Dim k As String

    k = Trim(" Welcome to VBA")

    MsgBox k

End Sub

Step 5: Run this code using the F5 key or manually. We should get the correct string in the message box.

Output:

So, the TRIM function removed all the leading spaces we had entered into the string value. Hence, the correct sentence, i.e., “Welcome to VBA.“

Example #2

Now, take a look at one more example to remove trailing spaces. Again, take the same word but this time, enter trailing spaces.

“Welcome to VBA. “

Code:

Sub Trim_Example2()

    Dim k As String

    k = Trim("Welcome to VBA ")

    MsgBox k

End Sub

Run this code manually or through the F5 key Trim function removes trailing spaces.

Output:

Example #3 – Clean the Data in Cells

Now, we will see the practical example of cleaning the data in excel cells. Assume you have a data set like the one below in your Excel sheet.

We need to write different codes when we have more than one data cell. 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 must 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 we select becomes a range. So in that range, TRIM removes unwanted spaces.

Step 3: Now, apply the TRIM function using For Each VBA LoopA VBA loop in excel is an instruction to run a code or repeat an action multiple times.read more.

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. Then, 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 and trailing spaces.

Difference Between Excel & VBA Trim Function

The only difference between them is that the VBA function cannot remove in between spaces while the worksheet function in VBAThe worksheet function in VBA is used when we need to refer to a specific worksheet. When we create a module, the code runs in the currently active sheet of the workbook, but we can use the worksheet function to run the code in a particular worksheet.read more does. For example, take a look at the below example.

In cell A3, we have in-between spaces. However, selecting and clicking on the rectangular shape will only remove trailing and 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 functionVBA functions serve the primary purpose to carry out specific calculations and to return a value. Therefore, in VBA, we use syntax to specify the parameters and data type while defining the function. Such functions are called user-defined functions.read more. It will remove all kinds of spaces.

Things to Remember

• VBA Trim and Worksheet Trim syntax are the same.
• It can only remove leading and trailing spaces, not in-between spaces.
• The Excel Trim function can remove all kinds of spaces.

Recommended Articles

This article has been a guide to VBA TRIM Function. Here, we learn how to use the TRIM function to remove spaces such as leading and trailing, with practical examples and a downloadable Excel template. Below you can find some useful Excel VBA articles: –

• Excel VBA String Functions
• VBA DIR Function
• FIND Function in VBA
• Cell References in VBA

Метод WorksheetFunction.Trim (Excel)

Удаляет из текста все пробелы, кроме отдельных пробелов между словами. Используйте обрезку для текста, полученного от другого приложения, который может иметь неправильный интервал.

Синтаксис

expression. Обрезка (Arg1)

Выражение Переменная, представляющая объект WorksheetFunction .

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Arg1	Обязательный	String	Text — текст, из которого нужно удалить пробелы.

Возвращаемое значение

String

Замечания

Функция TRIM в Excel предназначена для обрезки 7-битового символа пространства ASCII (значение 32) от текста. В наборе символов Юникода есть дополнительный символ пробела, который называется неразрывным пробелом, который имеет десятичное значение 160. Этот символ обычно используется на веб-страницах в качестве сущности HTML, . Сама по себе функция Trim и метод WorksheetFunction.Trim не удаляют этот неразрывный пробел.

Метод WorksheetFunction.Trim в Excel отличается от функции Trim в VBA, которая удаляет только начальные и конечные пробелы.

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Источник

VBA Trim, LTrim, and RTrim Functions – Remove Spaces From Text

In this Article

This tutorial will demonstrate how to use the Trim, LTrim, and RTrim VBA functions as well as the Trim worksheet function.

Trim Function

The VBA Trim function removes (“trims”) erroneous spaces before and after strings of text.

Trim Spaces Before and After Text

The VBA Trim function will remove spaces before and after strings of text:

Trim Multiple Spaces Before and After Text

This includes trimming multiple spaces before and after text:

VBA Trim will NOT Remove Multiple Spaces Between Words

However, the Trim function will not remove multiple spaces in between words:

Trim as a Worksheet Function

However, the Excel Trim worksheet function can be used to remove extra spaces between words:

Use Worksheet Trim Function in VBA

To use the Excel Trim Function in VBA, call it by using WorksheetFunction:

VBA Coding Made Easy

Stop searching for VBA code online. Learn more about AutoMacro — A VBA Code Builder that allows beginners to code procedures from scratch with minimal coding knowledge and with many time-saving features for all users!

Difference Between WorksheetFunction.Trim and VBA Trim

This will demonstrate the differences between Trim and WorksheetFunction.Trim:

Use VBA to add Trim Function in a Range

The Trim Worksheet function can be added in a Range using property .Formula:

LTrim Function

The LTrim function removes spaces only from the left side of the word:

RTrim Function

The RTrim function removes spaces only from the right side of the word:

Trim, Ltrim and Rtrim do not remove spaces between words.

Remove all spaces from text

Trim will only remove extra spaces in between words, but to remove all spaces in a string of text, you can use the Replace Function:

VBA Code Examples Add-in

Easily access all of the code examples found on our site.

Simply navigate to the menu, click, and the code will be inserted directly into your module. .xlam add-in.

Источник

VBA Trim — Как использовать функцию обрезки VBA для удаления пробелов в Excel?

Функция обрезки Excel VBA

Функция обрезки Excel VBA используется для удаления лишних пробелов из любой ячейки или текста и дает нам вывод, который имеет стандарт с точки зрения требуемых пробелов. Функция обрезки VBA работает точно так же, как функция обрезки Excel, а функция обрезки также удаляет лишние пробелы тремя способами;

1. Пробелы от начала текста.
2. Пробелы от конца текста.
3. Пробелы от середины текста, если видно более 1 лишнего пробела.

В основном это происходит, когда мы загружаем данные с какого-либо сервера, из хранилища данных или при неправильной вставке лишних пробелов вручную. Хотя мы можем легко увидеть пробелы в середине текста, но пробелы в начале и конце текста не могут быть легко видны до тех пор, пока мы не перейдем в режим редактирования этой конкретной ячейки. Это может сделать VBA Marco.

Как использовать функцию обрезки Excel VBA?

Мы обсудим, как использовать функцию обрезки VBA на нескольких примерах.

Вы можете скачать этот шаблон Excel с функцией обрезки VBA здесь — Шаблон Excel с функцией обрезки VBA

Функция обрезки VBA — пример № 1

Здесь у нас есть 3 ячейки на скриншоте ниже.

И каждая ячейка имеет несколько пробелов, связанных с ними. Ячейка А1 имеет пробелы в конце.

В ячейке A2 есть пробелы в начале текста.

И ячейка A3 имеет пространство между текстом, который выделен на скриншоте ниже.

Для обрезки этих ячеек мы будем использовать Excel VBA. Для этого одновременно нажмите клавиши Alt + F11 или на вкладке «Разработчик» щелкните Visual Basic, как показано ниже.

Это приведет нас к окну кодирования Visual Basic. Теперь перейдите в меню «Вставка» в окне VBA и выберите «Модуль», как показано ниже.

Это создаст новый модуль, в котором мы напишем код для обрезки. Ниже приведены шаги для создания и написания кода обрезки:

• Сначала выберите переменную и определите диапазон. Здесь мы выбрали переменную «А». Эта переменная может быть чем угодно.
• Поскольку в нашем наборе данных уже есть какой-то текст или объект, нам нужно установить диапазон для него. И для этого мы будем использовать « Выбор ». Он автоматически выберет данные в настоящем листе.

Код:

• Для выбора каждой заполненной ячейки листа «For Each» используется функция «And Value», для выбора значения с выбором « Trim (Cell)» .

Код:

На этом мы завершаем работу по кодированию для создания макроса через VBA Trim. Теперь давайте применим созданный код в какую-то вкладку. Для этого перейдите в меню « Вставка» и в разделе « Иллюстрации» выберите « Фигуры» .

Из этой опции Shapes создайте любую фигуру, используя форматы и стили форм.

Здесь мы создали прямоугольную рамку и назвали ее TRIM, как показано ниже.

Теперь нажмите в режиме «Дизайн» в меню «Разработчик» и щелкните правой кнопкой мыши на созданном окне или фигуре Щелкните правой кнопкой мыши по списку меню и выберите « Назначить макрос», чтобы связать созданный нами код, как показано ниже.

Мы получим окно Assign Marco, оттуда выберите уже созданный код макроса, здесь у нас есть Trim_Data и затем нажмите OK .

Теперь выберите данные и нажмите кнопку TRIM . Мы получим выбранную обрезку, и теперь ненужные места будут удалены, как показано ниже.

Функция обрезки VBA — пример № 2

Кодирование VBA, показанное выше, может быть написано еще одним способом. В приведенном выше примере мы обрезали только выбранные данные. В этом мы вставим функцию в окно сообщения, а также она будет отображаться после обрезки данных.

Для этого мы будем использовать те же данные, которые мы использовали в примере 1. Выполните те же шаги, перейдите на вкладку Develop r и нажмите на Visual Basic .

Как только мы это сделаем, мы получим окно Visual Basic. Теперь откройте новый модуль и начните кодирование на этой странице.

Теперь рассмотрим тот же код, который мы написали в примере-1. Но здесь для печати окна сообщения с текстом мы вставим некоторый текст.

Код:

Как только мы закончим с написанием кода, закройте окна Visual Basic.

Теперь снова перейдите на вкладку «Разработчик» и нажмите «Вставить», как показано ниже. Мы получим выпадающее меню различных форм кнопок, как показано ниже.

Теперь выберите любую из форм кнопок и нарисуйте ее в любом месте вашей рабочей книги. Из списка созданных макросов выберите необходимую опцию. Здесь мы выбрали Trim_Data2, который мы создали для этого примера, и затем нажмите OK.

После этого мы получим кнопку, созданную на экране.

Мы можем назвать кнопку в соответствии с функцией, которую мы будем выполнять. Давайте назовем это TRIM согласно функции. Теперь щелкните правой кнопкой мыши на созданной кнопке TRIM и выберите Assign Marco. Как только мы это сделаем, мы получим окно Assign Marco, как показано ниже. Теперь выберите нужный макрос и нажмите ОК.

Таким образом, наш код обрезки будет назначен на кнопку TRIM. Теперь для тестирования сначала выберите данные, а затем нажмите эту кнопку TRIM.

Как мы видим выше, здесь наши данные были обрезаны, и мы также можем увидеть сообщение « Trimming Done ».

Плюсы функции Excel VBA Trim

• Мы можем обрезать огромные наборы данных за один кадр, не проверяя количество лишних пробелов в ячейках.
• Кодирование функции обрезки также довольно мало.
• Шансов, что любое дополнительное пространство будет сэкономлено, очень мало или нет.

То, что нужно запомнить

• Всегда сохраняйте файл как Macro-Enabled Worksheet. Делая это, мы можем использовать назначенный макрос несколько раз.
• Скомпилируйте код, прежде чем назначать его любой кнопке.
• Существует 2 разных способа создания кнопки, и оба могут быть использованы в соответствии с индивидуальными потребностями или пожеланиями.
• Попробуйте написать код VBA, как показано в примере 2, который также выдаст сообщение.

Рекомендуемые статьи

Это было руководство по Excel VBA Trim. Здесь мы обсудили, как использовать функцию обрезки VBA для удаления пробелов в Excel, а также некоторые практические примеры и загружаемый шаблон Excel. Вы также можете просмотреть наши другие предлагаемые статьи —

1. Функция VBA в Excel
2. VBA VLOOKUP Функция
3. Руководство по вкладке Excel Developer
4. Как создать кнопку команды печати в Excel?

Источник

VBA Excel. Работа с текстом (функции)

Работа с текстом в коде VBA Excel. Функции, оператор & и другие ключевые слова для работы с текстом. Примеры использования некоторых функций и ключевых слов.

Функции для работы с текстом

Основные функции для работы с текстом в VBA Excel:

Функция	Описание
Asc(строка)	Возвращает числовой код символа, соответствующий первому символу строки. Например: MsgBox Asc(«/Stop»). Ответ: 47, что соответствует символу «/».
Chr(код символа)	Возвращает строковый символ по указанному коду. Например: MsgBox Chr(47). Ответ: «/».
Format(Expression, [FormatExpression], [FirstDayOfWeek], [FirstWeekOfYear])	Преобразует число, дату, время в строку (тип данных Variant (String)), отформатированную в соответствии с инструкциями, включенными в выражение формата. Подробнее…
InStr([начало], строка1, строка2, [сравнение])	Возвращает порядковый номер символа, соответствующий первому вхождению одной строки (строка2) в другую (строка1) с начала строки. Подробнее…
InstrRev(строка1, строка2, [начало, [сравнение]])	Возвращает порядковый номер символа, соответствующий первому вхождению одной строки (строка2) в другую (строка1) с конца строки. Подробнее…
Join(SourceArray,[Delimiter])	Возвращает строку, созданную путем объединения нескольких подстрок из массива. Подробнее…
LCase(строка)	Преобразует буквенные символы строки в нижний регистр.
Left(строка, длина)	Возвращает левую часть строки с заданным количеством символов. Подробнее…
Len(строка)	Возвращает число символов, содержащихся в строке.
LTrim(строка)	Возвращает строку без начальных пробелов (слева). Подробнее…
Mid(строка, начало, [длина])	Возвращает часть строки с заданным количеством символов, начиная с указанного символа (по номеру). Подробнее…
Replace(expression, find, replace, [start], [count], [compare])	Возвращает строку, полученную в результате замены одной подстроки в исходном строковом выражении другой подстрокой указанное количество раз. Подробнее…
Right(строка, длина)	Возвращает правую часть строки с заданным количеством символов. Подробнее…
RTrim(строка)	Возвращает строку без конечных пробелов (справа). Подробнее…
Space(число)	Возвращает строку, состоящую из указанного числа пробелов. Подробнее…
Split(Expression,[Delimiter],[Limit],[Compare])	Возвращает одномерный массив подстрок, извлеченных из указанной строки с разделителями. Подробнее…
StrComp(строка1, строка2, [сравнение])	Возвращает числовое значение Variant (Integer), показывающее результат сравнения двух строк. Подробнее…
StrConv(string, conversion)	Изменяет регистр символов исходной строки в соответствии с заданным параметром «conversion». Подробнее…
String(число, символ)	Возвращает строку, состоящую из указанного числа символов. В выражении «символ» может быть указан кодом символа или строкой, первый символ которой будет использован в качестве параметра «символ». Подробнее…
StrReverse(строка)	Возвращает строку с обратным порядком следования знаков по сравнению с исходной строкой. Подробнее…
Trim(строка)	Возвращает строку без начальных (слева) и конечных (справа) пробелов. Подробнее…
UCase(строка)	Преобразует буквенные символы строки в верхний регистр.
Val(строка)	Возвращает символы, распознанные как цифры с начала строки и до первого нецифрового символа, в виде числового значения соответствующего типа. Подробнее…
WorksheetFunction.Trim(строка)	Функция рабочего листа, которая удаляет все лишние пробелы (начальные, конечные и внутренние), оставляя внутри строки одиночные пробелы.

В таблице перечислены основные функции VBA Excel для работы с текстом. С полным списком всевозможных функций вы можете ознакомиться на сайте разработчика.

Ключевые слова для работы с текстом

Ключевое слово	Описание
&	Оператор & объединяет два выражения (результат = выражение1 & выражение2). Если выражение не является строкой, оно преобразуется в Variant (String), и результат возвращает значение Variant (String). Если оба выражения возвращают строку, результат возвращает значение String.
vbCrLf	Константа vbCrLf сочетает в себе возврат каретки и перевод строки (Chr(13) + Chr(10)) и переносит последующий текст на новую строку (результат = строка1 & vbCrLf & строка2).
vbNewLine	Константа vbNewLine в VBA Excel аналогична константе vbCrLf, также сочетает в себе возврат каретки и перевод строки (Chr(13) + Chr(10)) и переносит текст на новую строку (результат = строка1 & vbNewLine & строка2).

Примеры

Вывод прямых парных кавычек

Прямые парные кавычки в VBA Excel являются спецсимволами и вывести их, заключив в самих себя или в одинарные кавычки (апострофы), невозможно. Для этого подойдет функция Chr:

Источник