Excel VBA SubString
SubString é uma parte da string ou parte ou o caractere da string é chamado de “SubString”. Existem três tipos de função substring no VBA LEFT, RIGHT e MID; eles são semelhantes às substrings da planilha no Excel.
Uma string nada mais é do que uma série de caracteres, e os caracteres podem ser alfabetos, números, caracteres especiais e também combinar todos eles.
Muitas vezes, no excel, quando trabalhamos com dados, que é a string, precisamos pegar apenas a parte da string para facilitar nosso propósito. Podemos não precisar que a string inteira seja usada, mas precisamos apenas da parte da string para nosso uso. Por exemplo, se você tem o nome “Sachin Tendulkar”, pode precisar apenas da primeira parte do nome, ou seja, apenas “Sachin”. Isso é chamado de SubString da string no Excel VBA. Para lidar com essas strings, temos funções integradas na função TEXT na categoria Excel.
Neste artigo, discutiremos como obter a substring da string completa no VBA.
Como usar funções SubString no VBA?
Para extrair a substring da string, temos algumas das funções de texto embutidas e algumas das funções importantes são LEFT, RIGHT, INSTR e MID no excel. A função Instr servirá como função de suporte para as outras três funções.
Veremos como usar essas funções para extrair as substrings de forma prática. Leia os exemplos abaixo para entendê-los.
Exemplo # 1 - Usando a função esquerda
Se você tiver o nome completo como “Sachin Tendulkar” e precisar apenas do primeiro nome a ser extraído como substring, use o código a seguir para obter o mesmo.
Etapa 1: Crie um nome de macro e defina duas variáveis como String.
Código:
Sub SubString_Example1 () Dim FullName As String Dim FirstName As String End Sub
Passo 2: Agora atribua o nome “Sachin Tendulkar” à variável FullName .
Código:
Sub SubString_Example1 () Dim FullName As String Dim FirstName As String FullName = "Sachin Tendulkar" End Sub
Etapa 3: agora, a variável FullName contém o valor de “Sachin Tendulkar.” Agora, precisamos extrair a substring VBA do excel do nome do nome completo. Portanto, atribua o valor para a variável FirstName por meio da função LEFT.
Código:
Sub SubString_Example1 () Dim FullName As String Dim FirstName As String FullName = "Sachin Tendulkar" FirstName = Left (End Sub
Etapa 4: o primeiro argumento da função VBA LEFT é String; esse é o valor completo ou string completa. Neste exemplo, nosso valor completo ou string é “Sachin Tendulkar,” que é atribuído à variável FullName.
Portanto, forneça a variável FullName como argumento.
Código:
Sub SubString_Example1 () Dim FullName As String Dim FirstName As String FullName = "Sachin Tendulkar" FirstName = Left End Sub
Etapa 5: O próximo argumento é quantos caracteres precisamos da string que fornecemos, então, neste caso, precisamos do primeiro nome “ Sachin ”, portanto, precisamos de 6 caracteres do lado esquerdo.
Código:
Sub SubString_Example1 () Dim FullName As String Dim FirstName As String FullName = "Sachin Tendulkar" FirstName = Left (FullName, 6) End Sub
Etapa 6: Agora mostre o resultado em uma caixa de mensagem em VBA.
Código:
Sub SubString_Example1 () Dim FullName As String Dim FirstName As String FullName = "Sachin Tendulkar" FirstName = Left (FullName, 6) MsgBox FirstName End Sub
Etapa 7: execute a macro para ver o primeiro nome como uma substring na caixa de mensagem.
Exemplo 2 - Obter SubString da direita
Da mesma forma que extraímos a substring da esquerda, podemos extrair da direita também. Pegue o mesmo nome como exemplo.
Etapa 1: Defina duas variáveis como String.
Código:
Sub SubString_Example2 () Dim FullName As String Dim LastName As String End Sub
Etapa 2: como de costume, atribua o valor à variável FullName como “Sachin Tendulkar.”
Código:
Sub SubString_Example2 () Dim FullName As String Dim LastName As String FullName = "Sachin Tendulkar" End Sub
Passo 3: Agora, para a variável LastName, atribua o valor através da função excel RIGHT.
Código:
Sub SubString_Example2 () Dim FullName As String Dim LastName As String FullName = "Sachin Tendulkar" LastName = Right (End Sub
Etapa 4: String é nosso FullName, então forneça a variável.
Código:
Sub SubString_Example2 () Dim FullName As String Dim LastName As String FullName = "Sachin Tendulkar" LastName = Right (FullName, End Sub
Etapa 5: O comprimento é a quantidade de caracteres de que precisamos do lado direito. Precisamos de 9 caracteres no lado direito.
Código:
Sub SubString_Example2 () Dim FullName As String Dim LastName As String FullName = "Sachin Tendulkar" LastName = Right (FullName, 9) End Sub
Etapa 6: Mostrar este valor na caixa de mensagem .
Código:
Sub SubString_Example2 () Dim FullName As String Dim LastName As String FullName = "Sachin Tendulkar" LastName = Right (FullName, 9) MsgBox LastName End Sub
Etapa 7: execute a macro. Veremos o sobrenome na caixa de mensagem.
Exemplo # 3 - Usando a função Instr
Nos exemplos acima, tínhamos apenas um nome e fornecemos diretamente quantos caracteres precisamos da esquerda e direita. Mas no caso de muitos nomes, os caracteres do nome e do sobrenome não são iguais, serão diferentes de nome para nome. Nesses casos, não podemos fornecer o número de caracteres diretamente, então podemos usar a função Instr.
A função Instr retornará a posição do caractere fornecido na string. Por exemplo, observe o código abaixo.
Código:
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 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 below name I have in the excel sheet.
Using LEFT, RIGHT, and Instr function, we can extract the substrings. 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
Execute a macro e veja o primeiro nome como uma substring na caixa de mensagem.
Use o código abaixo para extrair o sobrenome como substring.
Código:
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
Execute a macro e veremos o sobrenome na caixa de mensagem.
Atribuí o botão de macro à planilha, baixe a pasta de trabalho e use-os.
