Experimente o código abaixo.
Código: Selecionar todosSub 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.
Osvaldo
Quatro coisas que odeio: preguiçosos, políticos, Google planilhas e Outlook
Anexe arquivos diretamente no fórum:
+ Resposta / Adicionar um anexo / Selecione o arquivo
CÉLULAS MESCLADAS PODEM AFETAR FÓRMULAS E MACROS.