A função Len é uma função comum para planilhas e VBA, é uma função embutida para ambas as plataformas e a sintaxe para usar esta função também é semelhante, os argumentos que esta função leva em ambas as plataformas são semelhantes que é uma string e o ou a saída para esta função é a mesma que retorna o comprimento de uma string.
Função VBA LEN
A função VBA LEN retorna o “comprimento da string”, ou seja, e retorna quantos caracteres existem no valor fornecido. De todas as funções de string no VBA, “LEN” é a função menos utilizada. Eu vi a função “VBA LEN” usada como função de suporte para outras funções de string, como funções VBA MID e função VBA RIGHT.
Como você encontra o comprimento da string ou valor?
Por exemplo, se você a frase “Olá pessoal, bom dia !!!” e você deseja encontrar o número de caracteres nele, como você o encontra? Neste artigo, mostraremos a função “VBA LEN”.

A fórmula da função VBA LEN
A função LEN possui apenas uma sintaxe, ou seja, Expressão.

Uma expressão nada mais é que o valor que estamos tentando testar.
Por exemplo, Len (“Bom”) retornará 4.
Exemplos
Abaixo estão os exemplos de VBA Length of String Function.
Exemplo 1
O comprimento de uma função String VBA é muito simples de usar. Por exemplo, observe o código VBA abaixo.
Código:
Sub LEN_Example () Dim Total_Length As String Total_Length = Len ("Excel VBA") MsgBox Total_Length End Sub

No código acima, a variável é “Total_Length”.
Dim Total_Length como string
Para esta variável, atribuímos o valor por meio da função VBA LEN.
Total_Length = Len ("Excel VBA")
Para a função LEN, atribuímos o valor como "Excel VBA".
Total_Length = Len ("Excel VBA")
A seguir, estamos mostrando o resultado na caixa de mensagem do VBA.
MsgBox Total_Length
Quando executo este código usando a tecla F5 ou manualmente, obteremos 9 como resultado, porque o espaço também é um caractere.


VBA LEN como função de suporte
Exemplo 1
A finalidade da função LEN é utilizada principalmente com outras funções. Usei essa função com as funções RIGHT e Instr.
Por exemplo, observe os dados de amostra abaixo.

A partir dos dados acima, precisamos extrair Data separadamente e Observações Separadamente. Copie os dados acima para sua planilha do Excel e cole na Célula A1.
Para extrair esses elementos, precisamos usar a função LEN com outras funções de string. O código abaixo fará o trabalho por nós.
Código:
Sub LEN_Example1 () Dim OurValue As String Dim k As Long For k = 2 To 6 'Neste caso, meus dados começaram na segunda célula e terminam na 6ª. 'Com base em seus dados, altere os números OurValue = ActiveSheet.Cells (k, 1) .Value' Isso irá extrair os primeiros 10 caracteres, ou seja, parte da data ActiveSheet.Cells (k, 2) .Value = Left (Trim (OurValue), 10) 'Isso irá extrair a porção de comentários ActiveSheet.Cells (k, 3) .Value = Mid (Trim (OurValue), 11, Len (Trim (OurValue)) - 10) Next End Sub

Quando executarmos este código manualmente ou através da tecla F5, obteremos o resultado como o abaixo.

Exemplo # 2
Agora vou mostrar como usar o VBA Length da string como uma função de suporte para extrair o sobrenome do nome completo com a função RIGHT & Instr.
Para a demonstração, veja os dados abaixo.

Da lista acima, precisamos extrair o Sobrenome do nome completo. O código abaixo extrairá o sobrenome. LEN é usado como uma função de suporte aqui.
Código:
Sub LEN_Example2 () Dim FullName As String Dim k As Long For k = 2 a 8 FullName = ActiveSheet.Cells (k, 1) .Value 'Isto irá extrair o sobrenome ActiveSheet.Cells (k, 2) .Value = Right (FullName , Len (FullName) - InStr (1, FullName, "")) 'LEN encontra o número total de caracteres' Instr encontra o caractere de espaço 'LEN - Inst fornecerá o total de caracteres do Next End Sub direito

Execute o código usando a tecla F5 ou você pode executar manualmente e ver o resultado.

Você pode baixar este comprimento de string do Excel VBA aqui - modelo de função VBA LEN