Este fórum está sendo desativado

[Konebh]

Pessoal, preciso transpor os dados da planilha em anexo de única coluna e varias linhas para varias colunas, podem me ajudar.
Se utilizo transpor, ele puxa todas as infamações para uma única linha e preciso que cada nome corresponda a cada endereço, tel, etc

[osvaldomp]

Eu sugiro uma solução via macro. Se for aceitável no seu caso então disponibilize uma nova planilha com o resultado desejado ao menos para os 3 primeiros registros. E verifique se os exemplos disponibilizados cobrem TODAS as variações, notadamente se o último dado de cada registro é sempre um número de telefone.

[Konebh]

Osvaldo, segue a planilha com os registros que preciso fazer. Tentei utilizar transpor, mas como são varias linhas em uma única coluna, não consegui no formato desejado.
Agradeço se puder me ajudar.

[osvaldomp]

Experimente o código abaixo.

Código: Selecionar todos

Sub TranspõeDados()
 Dim k As Long, m As Long, LR As Long
  Application.ScreenUpdating = False
  LR = Cells(Rows.Count, 1).End(3).Row
  For k = 1 To LR
   For m = k + 1 To LR
    If Cells(m, 1) Like "#*" And Cells(m + 1, 1) Like "[A-Za-z]*" Or Cells(m + 1, 1) = "" Then Exit For
   Next m
   Cells(k + 1, 1).Resize(m - k).Copy
   Cells(k, 2).PasteSpecial Transpose:=True
  k = m
  Next k
 [B:B].SpecialCells(xlBlanks).EntireRow.Delete
 Columns("A:H").WrapText = False
 Columns("A:H").AutoFit
End Sub

#
Se precisar, seguem dicas para instalar e rodar o código.
Instale uma cópia do código acima em um módulo comum, assim:
1. copie o código daqui
2. a partir da planilha em que estão os dados tecle 'Alt+F11' para acessar o editor de VBA
3. no menu do editor / Inserir / Módulo
4. cole o código na janela em branco que vai se abrir
5. feito! 'Alt+Q' para retornar para a planilha e testar

para rodar o código:
6. tecle 'Alt+F8' / selecione a macro correspondente / Executar, ou insira um botão na planilha e vincule-o à macro ou vincule-a a um atalho de teclado (Alt+F8 / Opções).
Essas três opções para rodar o código podem ser implantadas isoladamente ou em conjunto.

[Konebh]

Osvaldo,
Muito obrigado pela ajuda e explicação, segui o passo a passo e rodou perfeito. Valeu demais mesmo.

[melindawa56]

Coronavirus has really disturbed the normal functioning of life. It has also greatly affected the economy of every country. There’s a sudden breakdown in the prices of everything. We are all just sitting in our homes and waiting for everything to be normal. This pandemic has changed a lot of things including the way people used to think about certain things. But there’s no need to freak out, all you have to do is to adopt a healthy routine that helps you in keeping everything together, and it’s also very necessary for your mental health. If you are concerned about doing something healthy you can visit this site ptcl speed test