Índice
Este tutorial demonstrará como dividir strings em células.
Dividir String em Células
No VBA, podemos usar a Função Split para dividir uma string de texto em um Array.
Observação: escrevemos um mega-guia inteiro para usar a função de divisão em VBA. É altamente recomendável que você dê uma olhada.
Em seguida, podemos percorrer a matriz, gerando o texto dividido em células do Excel:
| 12345678910111213141516171819 | Sub SplitBySemicolonExample ()'Definir variáveisDim MyArray () As String, MyString As String, I As Variant, N As Integer'String de amostra com delimitadores de ponto e vírgulaMyString = "[email protected]; [email protected]; [email protected]; [email protected]"'Use a função Split para dividir as partes componentes da cordaMyArray = Split (MyString, ";")'Limpar a planilhaActiveSheet.UsedRange.Clear'iterar através da matrizPara N = 0 para UBound (MyArray)'Coloque cada endereço de e-mail na primeira coluna da planilhaIntervalo ("A" & N + 1) .Value = MyArray (N)Próximo NEnd Sub |
Como alternativa, podemos usar a Função Transpor para gerar a matriz em uma planilha:
| 12345678910111213 | Sub CopyToRange ()'Criar variáveisDim MyArray () As String, MyString As String'String de amostra com delimitadores de espaçoMyString = "Um, Dois, Três, Quatro, Cinco, Seis"'Use a função Split para dividir as partes componentes da cordaMyArray = Split (MyString, ",")'Copie a matriz para a planilhaRange ("A1: A" & UBound (MyArray) + 1) .Value = WorksheetFunction.Transpose (MyArray)End Sub |
