Usar o VBA para converter minha string de vírgula em linhas funciona muito bem, mas agora preciso combinar a quebra com o valor na coluna A. Exemplo
A coluna A tem "Árvores: a coluna B era a sequência de vírgulas: Dogwood,Ash,Maple,Elm,Apple.
Como faço para exibir como:
Obrigado
A coluna A tem "Árvores: a coluna B era a sequência de vírgulas: Dogwood,Ash,Maple,Elm,Apple.
Como faço para exibir como:
| [fonte=calibri]Atual[/ Font] | |
| [fonte=calibri]Árvores[/ Font] | [fonte=calibri]Dogwood, Ash, Maple, Elm, Apple[/ Font] |
| [fonte=calibri]você merece...[/ Font] | |
| [fonte=calibri]Árvores[/ Font] | [fonte=calibri]Cornizo[/ Font] |
| [fonte=calibri]Árvores[/ Font] | [fonte=calibri]Cinza[/ Font] |
| [fonte=calibri]Árvores[/ Font] | [fonte=calibri]Bordo[/ Font] |
| [fonte=calibri]Árvores[/ Font] | [fonte=calibri]olmo[/ Font] |
| [fonte=calibri]Árvores[/ Font] | [font=Calibri]Apple [/font] |
Subtexto públicoToColumns()
Definir ARange = Range("A:A")
Definir BRrange = Range("B:B")
Definir CRange = Range("C:C")
Definir DRrange = Range("D:D")
Dim arr() como string
lr = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
Definir = Planilhas. Adicionar
out.Name = "out"
saídaLinha = 2
Para i = 2 Para lr
arr = Split(ARrange(i), ","")
Para j = 0 Para UBound(arr)
out.Cells(outRow, 1) = Trim(arr(j))
out.Cells(outRow, 2) = BRrange(i)
out.Cells(outRow, 3) = CRange(i)
out.Cells(outRow, 4) = DRrange(i)
linha de saída = linha de saída + 1
Próxima j
Proximo eu
End Sub
Eu não fiz os cabeçalhos ou lidei corretamente com a folha de saída, mas você pode ver basicamente o que está acontecendo.
Definir ARange = Range("A:A")
Definir BRrange = Range("B:B")
Definir CRange = Range("C:C")
Definir DRrange = Range("D:D")
Dim arr() como string
lr = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
Definir = Planilhas. Adicionar
out.Name = "out"
saídaLinha = 2
Para i = 2 Para lr
arr = Split(ARrange(i), ","")
Para j = 0 Para UBound(arr)
out.Cells(outRow, 1) = Trim(arr(j))
out.Cells(outRow, 2) = BRrange(i)
out.Cells(outRow, 3) = CRange(i)
out.Cells(outRow, 4) = DRrange(i)
linha de saída = linha de saída + 1
Próxima j
Proximo eu
End Sub
Eu não fiz os cabeçalhos ou lidei corretamente com a folha de saída, mas você pode ver basicamente o que está acontecendo.
- Página :
- 1
Ainda não há respostas para esta postagem.