Как выделить часть строки в vba excel

Mid function

Returns a Variant (String) containing a specified number of characters from a string.

Syntax

The Mid function syntax has these named arguments:

Part	Description
string	Required. String expression from which characters are returned. If string contains Null, Null is returned.
start	Required; Long. Character position in string at which the part to be taken begins. If start is greater than the number of characters in string, Mid returns a zero-length string («»).
length	Optional; Variant (Long). Number of characters to return. If omitted or if there are fewer than length characters in the text (including the character at start), all characters from the start position to the end of the string are returned.

To determine the number of characters in string, use the Len function.

Use the MidB function with byte data contained in a string, as in double-byte character set languages. Instead of specifying the number of characters, the arguments specify numbers of bytes. For sample code that uses MidB, see the second example in the example topic.

Example

The first example uses the Mid function to return a specified number of characters from a string.

The second example use MidB and a user-defined function (MidMbcs) to also return characters from string. The difference here is that the input string is ANSI and the length is in bytes.

See also

Support and feedback

Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.

Источник

Функция Mid

Возвращает значение типа Variant (String), содержащее указанное число символов строки.

Синтаксис

Синтаксис функции Mid состоит из следующих именованных аргументов:

Часть	Описание
строка	Обязательный аргумент. Строковое выражение, из которого возвращаются символы. Если строка содержит значение NULL, возвращается NULL.
начало	Обязательный аргумент. Long. Позиция символа в строке, с которой начинается забираемая часть. Если значение аргумента начало больше, чем число символов в строке, функция Mid возвращает строку нулевой длины («»).
длина	Необязательный аргумент. Variant (Long). Число возвращаемых символов. Если не указано или если меньше, чем символов длины в тексте (включая символ в начале), возвращаются все символы от начальной позиции до конца строки.

Примечания

Чтобы определить число символов в строке, используйте функцию Len.

Используйте функцию MidB для работы с содержащимися в строке байтами, например в языках с двухбайтовыми кодировками (DBCS). Вместо указания числа символов аргументы задают число байтов. Образец кода с использованием функции MidB приведен во втором примере.

Пример

В первом примере с помощью функции Mid возвращается указанное количество знаков строки.

Во втором примере с использованием функции MidB и определяемой пользователем функции (MidMbcs) также возвращаются знаки из строки. Отличие от первого примера состоит в том, что исходная строка представляет собой строку ANSI и ее длина выражена в байтах.

См. также

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

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

Источник

VBA Substring – How to Substring in Excel Macro

Substring is one of the most popular functions in any programming language. It eases your tasks while dealing with strings. As the name suggests a substring function divides a string into different parts based on particular criteria.

There are multiple VBA Substring functions. In practical situations, these substring functions can be quite useful in extracting a portion of a string.

Today in this post I am going to explain all the VBA substring functions that you can use in Excel macros:

Table of Contents

LEFT Substring function:

The LEFT function in Excel VBA is used for fetching a specified number of characters from the start of the string. The syntax of the LEFT function is as follows:

• Here ‘text_string’ refers to an input string that is to be separated.
• And ‘length’ refers to the number of characters to be extracted.

Examples:

Note: Instead of using a hardcoded string in the first argument you can also fetch ‘text_string’ from your excel sheet like ActiveSheet.Range(«A1»).

Right Substring function:

The RIGHT Function in Excel VBA is just opposite to the LEFT function. It returns a specified number of characters from the end of the text string. The syntax of the RIGHT function is as follows:

• Here ‘text_string’ refers to an input string that is to be separated.
• And ‘length’ refers to the number of characters to be extracted but extraction begins from the right side.

Example:

Note: Instead of using a hardcoded string in the first argument you can also fetch ‘text_string’ from your excel sheet as ActiveSheet.Range(«A1»).

MID Substring function:

MID is a much better function than the first two, it gives you the ability to specify the start and end positions of the extracted string. The syntax of the MID VBA Substring function is as under:

• Here ‘text_string’ refers to an input string that is to be separated.
• ‘start_position’ refers to the numeric position from where extraction is to be started.
• And ‘length’ refers to the number of characters to be extracted.

Example:

Note: Instead of using a hardcoded string in the first argument you can also fetch ‘text_string’ from your excel sheet as ActiveSheet.Range(«A1»).

SPLIT Substring function:

The SPLIT function is another VBA function that can be used for sub-stringing or splitting a string. The SPLIT function can come very handy when you are dividing a text string into more than one parts based on a delimiter. The syntax of a split function is as under:

• Here, ‘text_string’ refers to an input string that is to be separated.
• ‘Delimiter’ refers to the delimiter character which separates the string into parts. This is an optional argument, if it is left blank then, the space character » » is assumed to be the default delimiter.
• ‘limit’ refers to the maximum number of substring parts into which the string should be divided. It is also an optional argument, the default value is (-1) which means that substring should happen at every position where the delimiter is encountered.
• ‘compare’ is an optional numerical value that specifies the comparison to use when evaluating substrings.

Example:

For instance, you have a text string as «This is a text string» and now you have to break this string into individual words, so in this case, you will use space » » as a delimiter. The split function will be used as:

The result of this split function is an array of words: «This» «is» «a» «text» «string».

VBA Substring Macro Example:

Below I have created a macro that illustrates all the substring techniques available in VBA programming. This is a simple and self-explanatory macro, in this, I have simply divided a text string with the 4 methods that I have described above.

Below is the code that I have used for this macro:

So, this was all about VBA substring functions. Do share your view related to the topic.

Subscribe and be a part of our 15,000+ member family!

Now subscribe to Excel Trick and get a free copy of our ebook «200+ Excel Shortcuts» (printable format) to catapult your productivity.

Источник

2.13.1.5. Примеры использования функций VBA

2.13.1.5.1. Удаление ненужных символов

Зачастую строки в программе содержат ненужные символы пробелов

в конце или в начале строки, которые необходимо удалить, т.к. посторонние начальные или конечные пробелы в строке могут вызвать «неполадки»

в работе программы. В VBA имеются три функции, предназначенные для удаления начальных и конечных пробелов из строки: LTrim, RTrim, Trim . Эти функции не изменяют исходную строку, а возвращают копию строки с удаленными лишними пробелами.

Dim Стр0, Стр1, Стр2, Стр3 Стр0 = » Строка «

Стр1 = RTrim(Стр0) Стр2 = LTrim(Стр0) Стр3 = Trim(Стр0)

MsgBox «(» & Стр1 & «)» & Chr(13) & _ «(» & Стр2 & «)» & Chr(13) & _

При выполнении этой процедуры выводится диалоговое окно

2.13.1.5.2. Определение длины строки

Длину строки, как правило, надо знать при форматировании сообщений для пользователя или при форматировании строковых данных, вводимых процедурой в рабочий лист Excel или документ Word. VBA для этих целей использует функцию Len . В приведенным ниже листинге между знаками круглых скобок и словом присутствует по два пробела.

Dim Стр0 As String, Стр1 As Byte

Стр1 = Len(Стр0) MsgBox «Стр1=» & Стр1

Строка фиксированной длины имеет всегда одну и ту же длину, и поэтому функция Len всегда возвращает объявленную длину строки, незави-

симо от фактической длины строки. Например, если в строковой переменной фиксированной длины Стр0 определить длину, равную 20 символам, а фактически находится слово «Строка», то функция Len(Стр0) возвратит результат, равный 20.

Dim Стр0 As String * 20, Стр1 As Byte

Стр1 = Len(Стр0) MsgBox «Стр1=» & Стр1

Чтобы в таком случае узнать фактическую длину строки (в нашем случае – 6), необходимо использовать комбинацию функций

Dim Стр0 As String * 20, Стр1 As Byte

Стр1 = Len(Trim(Стр0)) MsgBox «Стр1=» & Стр1

2.13.1.5.3. Сравнение и поиск строк

В VBA имеются две функции, помогающих сравнивать строки:

StrComp и InStr .

StrComp ( String1 , String2 [, Compare ])

где String1 , String2 – любые два строковых выражения, которые необходимо сравнивать. Compare – необязательный аргумент, может быть любой из следующих предопределенных констант:

vbBinaryCompare – бинарное сравнение двух строк;

vbTextCompare – текстовое сравнение двух строк.

При бинарном сравнении коды символов упорядочены в соотвествии с их двоичным значением, и коды строчных и прописных букв раразличаются при сравнении. При текстовом сравнении VBA прописные и строчные буквы не различает. Если аргумент Compare опускается, то используется текущая установка Option Compare.

Если аргумент Compare опускается, то используется текущая установка инструкции Option Compare (см. Примечание к п. Инструкция условного перехода If…Then…Else).

В данном примере инструкция Option Compare используется для задания метода сравнения строковых данных, используемого по умолчанию.

Option compare Binary ‘ т.е. «AAA» Строка1 меньше, чем Строка2 , и поэтому значение R1=–1, во втором они равны (R2=0) и в третьем Строка2 больше, чем Строка1 (R3=1).

Функция InStr дает возможность определить, содержит ли одна строка другую строку.

InStr ([ Start ,] String1 , String2 [, Compare ])

String1, String2 – любые допустимые строковые выражения. Функция проверяет, содержится ли String1 в String2.

Start – необязательный аргумент, является численным выражением и указывает положение символа в String1, с которого должна начинаться проверка. Аргумент Start является обязательным , если указывается аргумент

Compare имеет тот же смысл, что и в функции StrComp .

InStr возвращает число, обозначающее положение символа в String1, где было обнаружено String2. Если InStr не находит String2 в String1, то возвращается 0. Если String1 (или String2) имеет значение Null (“Пусто”), то функция также возвращает Null.

Dim R1 As String, R2 As String R1 = «Строка ввода»

MsgBox «R2 входит в R1 с позиции » & _

InStr(1, R1, R2, vbTextCompare)

2.13.1.5.4. Выделение части строки

Задачу выделения части строки в VBA решают три функции:

Left, Right и Mid .

Left ( String , Length )

String – любое допустимое строковое выражение;

Length – любое численное значение.

Функция возвращает копию String , начиная с первого символа и включая количество символов, заданных с помощью Length . Если Length является числом, большим, чем фактическая длина String , то возвращается всё строковое выражение String .

Right ( String, Length )

String – любое допустимое строковое выражение;

Length – любое численное значение.

Функция возвращает копию String , начиная с последнего символа и включая справа налево количество символов, заданных с помощью Length . Если Length является числом, большим, чем фактическая длина String , то возвращается все строковое выражение String . Функция Right всегда копирует символы от конца строки к ее началу.

Mid ( String , Start , [, Length ])

String – любое допустимое строковое выражение;

Length, Star t – любые численные значения.

Функция Mid возвращает копию String , начиная с положения символа в String , задаваемого с помощью аргумента Start . Необязательный аргу-

Источник

Excel VBA SubString

A SubString is a part of the string or portion, or the character of the string is called “SubString.” There are three types of SubString functions in VBA: LEFT, RIGHT, and MID. They are similar to the worksheet substrings in Excel.

A string is nothing but a series of characters. The characters could be alphabets, numbers, special characters, and combinations.

Often in Excel, when we work with data, which is the string, we need to get only the portion of the string to facilitate our purpose. We may not need the full string to use, but we need only the part of the string for our use. For example, if you have the name “Sachin Tendulkar,” you may need only the first part of the name, i.e., only “Sachin.” It is known as the SubString of the string in Excel VBA. We have built-in functions under the TEXT function in the excelTEXT function in excel is a string function used to change a given input to the text provided in a specified number format. It is used when we large data sets from multiple users and the formats are different.read more category to deal with these strings.

This article will discuss getting the substring from the full string in VBAString functions in VBA do not replace the string; instead, this function creates a new string. There are numerous string functions in VBA, all of which are classified as string or text functions.read more.

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 SubString (wallstreetmojo.com)

How to Use SubString Functions in VBA?

To extract the substring from the string, we have some of the built-in text functions, and some of the important functions are LEFT, RIGHT, INSTR and MID in excelThe mid function in Excel is a text function that finds strings and returns them from any mid-part of the spreadsheet. read more. The function Instr will serve as the supporting function for the other three functions.

We will see how to use these functions to extract the substrings practically. Please read the below examples to understand them.

You can download this VBA SubString Excel Template here – VBA SubString Excel Template

Example #1 – Using Left Function

If you have the full name as “Sachin Tendulkar” and need only the first name extracted as the substring, use the following code to get the same.

Step 1: Create a macro name and define two variables as a string.

Code:

Sub SubString_Example1()

  Dim FullName As String
  Dim FirstName As String

End Sub

Step 2: Now, assign the name “Sachin Tendulkar” to the variable FullName.

Code:

Sub SubString_Example1()

  Dim FullName As String
  Dim FirstName As String

  FullName = "Sachin Tendulkar"

End Sub

Step 3: The variable FullName holds the value of “Sachin Tendulkar.” We need to extract the Excel VBA substring of the first name from the full name. So, assign the value for the variable FirstName through the LEFT function.

Code:

Sub SubString_Example1()

  Dim FullName As String
  Dim FirstName As String

  FullName = "Sachin Tendulkar"
  FirstName = Left(

End Sub

Step 4: The VBA Excel VBA Left is an inbuilt worksheet text function that facilitates the user to extract a certain number of characters (denoted as N) from the left side of a string. It helps in pulling the leftmost substring from a particular string in the data set.read more LEFT function’s first argument is String. That is what is the full value or full string. In this example, our full value or string is “Sachin Tendulkar,” assigned to the variable FullName.

So supply variable FullName as the argument.

Code:

Sub SubString_Example1()

  Dim FullName As String
  Dim FirstName As String

  FullName = "Sachin Tendulkar"
  FirstName = Left

End Sub

Step 5: The next argument is how many characters we need from the supplied string. So, in this case, we need the first name “Sachin,” so totally, we need 6 characters from the left side.

Code:

Sub SubString_Example1()

  Dim FullName As String
  Dim FirstName As String

  FullName = "Sachin Tendulkar"
  FirstName = Left(FullName, 6)

End Sub

Step 6: Now, show the result in a message box in VBAVBA MsgBox function is an output function which displays the generalized message provided by the developer. This statement has no arguments and the personalized messages in this function are written under the double quotes while for the values the variable reference is provided.read more.

Code:

Sub SubString_Example1()

  Dim FullName As String
  Dim FirstName As String

  FullName = "Sachin Tendulkar"
  FirstName = Left(FullName, 6)

  MsgBox FirstName

End Sub

Step 7: Run the macro and see the first name as a substring in the message box.

Example #2 – Get SubString from the Right

Like how we have extracted the substring from the left similarly, we can also extract it from the right. Again, take the same name as an example.

Step 1: Define two variables as String.

Code:

Sub SubString_Example2()

  Dim FullName As String
  Dim LastName As String

End Sub

Step 2: As usual, assign the value to the variable FullName as “Sachin Tendulkar.”

Code:

Sub SubString_Example2()

  Dim FullName As String
  Dim LastName As String

  FullName = "Sachin Tendulkar"

End Sub

Step 3: Now, for the variable LastName, assign the value through the RIGHT excelRight function is a text function which gives the number of characters from the end from the string which is from right to left. For example, if we use this function as =RIGHT ( “ANAND”,2) this will give us ND as the result.read more function.

Code:

Sub SubString_Example2()

  Dim FullName As String
  Dim LastName As String

  FullName = "Sachin Tendulkar"
  LastName = Right(

End Sub

Step 4: String is our FullName, so supply the variable.

Code:

Sub SubString_Example2()

  Dim FullName As String
  Dim LastName As String

  FullName = "Sachin Tendulkar"
  LastName = Right(FullName,

End Sub

Step 5: Length is how many characters we need from the right side. We need 9 characters on the right side.

Code:

Sub SubString_Example2()

  Dim FullName As String
  Dim LastName As String

  FullName = "Sachin Tendulkar"
  LastName = Right(FullName, 9)

End Sub

Step 6: Show this value in the message box.

Code:

Sub SubString_Example2()

  Dim FullName As String
  Dim LastName As String

  FullName = "Sachin Tendulkar"
  LastName = Right(FullName, 9)

  MsgBox LastName

End Sub

Step 7: Run the macro. We will see the last name in the message box.

Example #3 – Using Instr Function

In the above examples, we had only one name. So, we have directly supplied how many characters we need from the left and right. But in the case of many names, first name and name characters are not the same. It will differ from name to name. So, in those cases, we cannot supply the number of characters directly so that we can use the function Instr.

The Instr function will return the supplied character position in the string. For example, look at the below code.

Code:

Sub SubString_Example3()

  Dim Position As String
  Position = InStr(1, "Sachin", "a")

  MsgBox Position

End Sub

InStr(1, “Sachin,” “a”), this will identify the position of the letter “a” as the first appearance in the string “Sachin.” In this case, the letter “a” is in the second position. So, we will get 2 as a result in the message box.

Like this, we can use the Instr function to find the space character between the first name and last name.

For example, look at the name below in the Excel sheet.

We can extract the substrings using the LEFT, RIGHT, and Instr functions. For example, below is the code to extract the first name.

Code:

Sub FirstName()
  Dim K As Long
  Dim LR As Long
  LR = Cells(Rows.Count, 1).End(xIUp).Row

For K = 2 To LR
 Cells(K, 2).Value = Left(Cells(K, 1).Value, InStr(1, Cells(K, 1).Value, "") - 1)
Next K

End Sub

Run the macro and see the first name as a substring in the message box.

Use the below code to extract the last name as a substring.

Code:

Sub LastName()
  Dim K As Long
  Dim LR As Long
  LR = Cells(Rows.Count, 1).End(xIUp).Row

  For K = 2 To LR
   Cells(K, 3).Value = Right(Cells(K, 1).Value, Len(Cells(K, 1)) - InStr(1, Cells(K, 1).Value, ""))
  Next K

End Sub

Run the macro. We will see the last name in the message box.

We have assigned the macro buttonA Macro is nothing but a line of code to instruct the excel to do a specific task. Once the code is assigned to a button control through VBE you can execute the same task any time in the workbook. By just clicking on the button we can execute hundreds of line, it also automates the complicated Report.read more to the worksheet. Download the workbook and use them.

Recommended Articles

This article has been a guide to VBA Substring. Here, we learn how to extract substring using the Left, Right, and Instr VBA function, examples, and a downloadable Excel template. Below you can find some useful Excel VBA articles: –

• Excel VBA New Line
• VBA Count Function
• Substring Function in Excel
• Excel VBA Replace String