VBA - Função Dividida

Uma função de divisão retorna uma matriz que contém um número específico de valores divididos com base em um delimitador.

Sintaxe

Split(expression[,delimiter[,count[,compare]]])

Descrição do Parâmetro

• Expression- Um parâmetro obrigatório. A expressão de string que pode conter strings com delimitadores.

• Delimiter- Um parâmetro opcional. O parâmetro, que é usado para converter em matrizes com base em um delimitador.

• Count- Um parâmetro opcional. O número de substrings a serem retornadas e, se especificado como -1, todas as substrings são retornadas.

• Compare- Um parâmetro opcional. Este parâmetro especifica qual método de comparação deve ser usado.

  • 0 = vbBinaryCompare - executa uma comparação binária

  • 1 = vbTextCompare - executa uma comparação textual

Exemplo

Adicione um botão e adicione a seguinte função.

Private Sub Constant_demo_Click()
   ' Splitting based on delimiter comma '$'
   Dim a as Variant
   Dim b as Variant
   
   a = Split("Red $ Blue $ Yellow","$")
   b = ubound(a)
   
   For i = 0 to b
      msgbox("The value of array in " & i & " is :"  & a(i))
   Next
End Sub

Quando você executa a função acima, ela produz a seguinte saída.

The value of array in 0 is :Red 
The value of array in 1 is : Blue 
The value of array in 2 is : Yellow