Função Excel VBA MID
A função VBA MID extrai os valores do meio da frase ou palavra fornecida. A função MID é categorizada sob a função String e Texto e é uma função de planilha, o que significa que para usar essa função no VBA, precisamos usar o método application.worksheet.
Existem situações em que queremos extrair o nome, o sobrenome ou o nome do meio. Nessas situações, as fórmulas da categoria TEXT são úteis para atender aos nossos requisitos. O uso desta função é igual ao da referência da planilha e a sintaxe também é a mesma.

Sintaxe
Como nossa função Excel MID, também em VBA, ela tem um conjunto semelhante de valores de sintaxe. Abaixo está a sintaxe.

- String a pesquisar: Isso nada mais é do que a frase da string, ou seja, de qual string ou palavra você gostaria de extrair os valores.
- Posição inicial: de qual posição da frase você deseja extrair. Este deve ser um valor numérico.
- Número de caracteres a extrair: da posição inicial, quantos caracteres você deseja extrair? Este também deve ser um valor numérico.
Como usar a função VBA MID?
Exemplo 1
Suponha que você tenha a palavra “Hello Good Morning” e deseja extrair “Good” dessa frase. Siga as etapas abaixo para extrair o valor.
Etapa 1: primeiro crie um nome de macro.
Código:
Sub MID_VBA_Example1 () End Sub

Etapa 2: declare uma variável como “STRING.”
Código:
Sub MID_VBA_Example1 () Dim MiddleValue As String End Sub

Etapa 3: Agora atribua um valor a essa variável por meio da função MID.
Código:
Sub MID_VBA_Example1 () Dim MiddleValue As String MiddleValue = Mid (End Sub

Etapa 4: O primeiro argumento é String, ou seja, de qual valor queremos extrair. Portanto, nosso valor é “Olá, bom dia”.
Código:
Sub MID_VBA_Example1 () Dim MiddleValue As String MiddleValue = Mid ("Hello Good Morning", End Sub

Etapa 5: Em seguida, é a posição inicial do personagem que você deseja extrair. Nesse caso, Bom dia parte de um 7º caractere.
Nota: O espaço também é um personagem.
Código:
Sub MID_VBA_Example1 () Dim MiddleValue As String MiddleValue = Mid ("Hello Good Morning", 7 End Sub

Etapa 6: o comprimento nada mais é do que quantos caracteres você deseja extrair. Precisamos extrair 4 caracteres aqui porque o comprimento da palavra “Bom” é de 4 caracteres.
Código:
Sub MID_VBA_Example1 () Dim MiddleValue As String MiddleValue = Mid ("Hello Good Morning", 7, 4) End Sub

Etapa 7: Concluímos a fórmula. Vamos mostrar o resultado da variável na caixa de mensagem.
Código:
Sub MID_VBA_Example1 () Dim MiddleValue As String MiddleValue = Mid ("Olá, bom dia", 7, 4) MsgBox MiddleValue End Sub

Etapa 8: agora execute este código manualmente ou pressione a tecla F5, a caixa de mensagem deverá mostrar a palavra “Bom”.

Resultado:

Exemplo # 2
Suponha que você tenha um nome e um sobrenome juntos e a palavra seja “Ramesh, Tendulkar”. Entre o nome e o sobrenome, o caractere de separação é uma vírgula (,). Agora precisamos extrair apenas o primeiro nome.
Etapa 1: Crie uma macro e defina uma variável.
Código:
Sub MID_VBA_Example2 () Dim FirstName As String End Sub

Etapa 2: Agora atribua um valor a essa variável por meio da função MID.
Código:
Sub MID_VBA_Example2 () Dim FirstName As String FirstName = Mid (End Sub

Etapa 3: nossa string é “Ramesh.Tendulkar”, então digite esta palavra.
Código:
Sub MID_VBA_Example2 () Dim FirstName As String FirstName = Mid ("Ramesh, Tendulkar", End Sub

Etapa 4: como estamos extraindo, a posição inicial do nome é 1.
Código:
Sub MID_VBA_Example2 () Dim FirstName As String FirstName = Mid ("Ramesh, Tendulkar", 1, End Sub

Etapa 5: comprimento do caractere que você pode inserir diretamente como 6, mas não é a melhor maneira. Para determinar o comprimento, vamos aplicar mais uma fórmula chamada Instr.
Código:
Sub MID_VBA_Example2 () Dim FirstName As String FirstName = Mid ("Ramesh, Tendulkar", 1, InStr (End Sub

Etapa 6: para esta posição inicial é 1.
Código:
Sub MID_VBA_Example2 () Dim FirstName As String FirstName = Mid ("Ramesh, Tendulkar", 1, InStr (1, End Sub

Etapa 7: String 1 é o nosso nome, ou seja, "Ramesh, Tendulkar."
Código:
Sub MID_VBA_Example2() Dim FirstName As String FirstName = Mid("Ramesh,Tendulkar",1,InStr(1,"Ramesh,Tendulkar", End Sub

Step 8: String 2 what is the separator of first name & last name, i.e., comma (,).
Code:
Sub MID_VBA_Example2() Dim FirstName As String FirstName = Mid("Ramesh,Tendulkar",1,InStr(1,"Ramesh,Tendulkar",",") End Sub

Note: Instr function will return how many characters are there in the word “Ramesh, Tendulkar” from the string 1 position to the string 2 positions, i.e., until comma (,). So Instr will return 7 as a result, including comma (,).
Step 9: Since Instr function returns no., of characters including comma (,) we need to minus 1 character here. So enter -1 after the close of Instr function.
Code:
Sub MID_VBA_Example2() Dim FirstName As String FirstName = Mid("Ramesh,Tendulkar", 1, InStr(1, "Ramesh,Tendulkar", ",") - 1) End Sub

Step 10: Now show the value of the variable in the message box.
Code:
Sub MID_VBA_Example2() Dim FirstName As String FirstName = Mid("Ramesh,Tendulkar", 1, InStr(1, "Ramesh,Tendulkar", ",") - 1) MsgBox FirstName End Sub

Step 11: Run this code using the F5 key, or you can run this code manually. We would get the first name in the message box.

Output:

Example #3
Now I will give you one assignment to solve. I have a list of First Name & Last Name.

From this list, I want you to extract the first name only. All the best!!!!.
Ok, If you have tried and not able to get the result, then the below code would help you in this.
Code:
Sub MID_VBA_Example3 () Dim i As Long For i = 2 To 15 Cells (i, 2) .Value = Mid (Cells (i, 1) .Value, 1, InStr (1, Cells (i, 1) .Value, " , ") - 1) Próximo i End Sub
Copie e cole o código acima em seu módulo. Depois de copiar o código, execute-o usando a tecla F5 ou você pode executá-lo manualmente.

Deve dar um resultado como o abaixo.

Coisas para lembrar
- O argumento de comprimento na função MID é opcional. Se você ignorar isso, tomará 1 como valor padrão.
- Para determinar o comprimento ou a posição inicial, use a função Instr junto com a função MID.