Este fórum está sendo desativado

[Vidoti]

Fala galera, preciso de uma ajuda, preciso passar o conteúdo de algumas linhas para colunas, até ai seria fácil, o problemas é que essa separação tem que acontecer nos blocos separados por uma carácter como por exemplo "!", segue exemplo:

A planilha viria assim:

!
Maria
Josefa
Anezia
Matilde
!
Matheus
Carlos
Cafu
Dedé
!
Macaco
Leão
Curubira
Saci
!


Eu preciso separar esses blocos em colunas quebrando exatamente nos "!", ficado assim como esse exemplo:

Maria Josefa Anezia Matilde
Matheus Carlos Cafu Dedé
Macaco Leão Curubira Saci


Alguém consegue me ajudar??

[WillianVictor]

@Vidoti, envie sua planilha ou um modelo e já aplicamos a solução diretamente.

Abs.

[WillianVictor]

@Vidoti,
Bom.. tenta essa solução pra ver se lhe atende.

Qualquer coisa, avisaê.
Abs.

[Vidoti]

@WillianVictor, cara obrigado pela ajuda!!!!

Não consegui executar o "script", da erro na linha "Sheets("_transpor").Cells(lin, col).Value = Sheets(actWorksheet).Cells(l, 1).Value"*

Estou dando uma pesquisada para ver o que pode ser.

* essa é a linha que ele mostra ao depurar o erro

Agradeço a ajuda!!!

[Diego100ges]

Bom dia.
É sempre em intervalo de 4?

[Vidoti]

@Diego100ges, não o intervalo é variável

[Diego100ges]

Tenta esse código, e me diz se deu certo

Código: Selecionar todos

Sub Acerta()
Application.ScreenUpdating = False
Dim UltimaLinha As Integer
Dim Lin As Integer
Dim Col As Integer
    
UltimaLinha = Cells(Rows.Count, 1).End(xlUp).Row
Lin = 1
Col = 1
    
Sheets("Plan1").Select ''Em "Plan1" Nome da sua planilha de origem
    
For i = 1 To UltimaLinha
If i = 1 And Sheets("Plan1").Cells(i, 1).Value = "!" Then
ElseIf Sheets("Plan1").Cells(i, 1).Value = "!" Then
    Lin = Lin + 1
    Col = 1
Else
    Sheets("Base").Cells(Lin, Col).Value = Sheets("Plan1").Cells(i, 1).Value ''Em "Base" Nome da planilha ondem ficaram os dados
    Col = Col + 1
End If
    
Next
Application.ScreenUpdating = True
End Sub

[Vidoti]

@Diego100ges, Obrigado!!
Ficou show, funcionou exatamente como eu precisava, preciso fazer mais algumas alterações e filtrar informações que irão aparecer na planilha nova, mas vou dar uma estudada e quebrar a cabeça e tentar fazer sozinho, se eu ficar perdido novamente eu volto ao fórum, mas agradeço a Você e ao @WillianVictor que me ajudaram muito!!!