VBA – Função Join

Join – Descrição

Une um número de substrings em uma única string.

Exemplos Simples de Join

Sub Join_Examplo()
 Dim strNomeCompleto As String
 Dim arrNome(0 To 2) As String
 arrNome(0) = "Michael"
 arrNome(1) = "Pauling"
 strNomeCompleto = Join(arrNome)
    
 MsgBox strNomeCompleto
End Sub

Isso será exibido da seguinte forma.

Sintaxe de Join

No Editor do VBA, você pode digitar “Join(” para ver a sintaxe da função Join:

A função Join contém 2 argumentos:

SourceArray (Matriz de Origem): Matriz 1D contendo substrings a serem unidas.

Delimiter: [Opcional] Delimitador. Se omitido, será usado o caractere de espaço (” “).

Exemplos da Função Join do Excel VBA

Sub Join_Matriz_Exemplo1()
     Dim strCaminhoCompleto As String
     Dim arrCaminho(0 To 2) As String
     arrCaminho(0) = "C:"
     arrCaminho(1) = "Usuários"
     arrCaminho(2) = "Público"
     strCaminhoCompleto = Join(arrCaminho, "\")
End Sub

Resultado: C:\Usuários\Público

Sub Join_Matriz_Exemplo2()
     MsgBox Join(Array("A", "B", "C"), ", ")
End Sub

Resultado: “A, B, C”