Excel Tenho um arquivo com 137mil linhas, e preciso organizar ele.

[ANDREYACR]

A base foi exportada do meu sistema e para cada cliente existe 3 linhas e mais de 10 colunas, preciso organizar igual ao modelo que anexei, sem contar ainda que vem uma bagunça e tudo mesclado !

CADASTRO CLIENTES Andrey.xlsx

Um exemplo de como vem a base, não consigo mandar o arquivos, pois tem mais de 20GB.

[Midori]

@ANDREYACR Com base nesse modelo cada cadastro ter um deslocamento padrão das informações que serão tabeladas, isso pode ser resolvido com macro, veja se assim resolve,

 

Sub Macro()
    Dim UltLinha    As Long
    Dim Celula      As Range
    Dim L           As Long
    
    L = 2
    Set Celula = Sheets("Base de dados").[A5]
    UltLinha = Sheets("Base de dados") _
        .Range("C" & [A:A].Rows.Count).End(xlUp).Row
    Do
        With Sheets("Exemplo")
            .Cells(L, 1) = Celula.Offset(0, 2) 'Nome
            .Cells(L, 2) = Celula.Offset(1, 2) 'Endereco
            .Cells(L, 3) = Celula.Offset(1, 12) 'Bairro
            .Cells(L, 4) = Celula.Offset(1, 18) 'Cep
            .Cells(L, 5) = Celula.Offset(2, 2) 'Telefone
            .Cells(L, 6) = Celula.Offset(2, 12) 'Email
        End With
        L = L + 1
        Set Celula = Celula.End(xlDown)
    Loop While Celula.Row <= UltLinha
End Sub

 

[feross]

@ANDREYACR  como os deslocamentos são iguais partindo de uma referencia, no caso o numero do cliente, é possível realizar DESLOC com ÍNDICE / CORRESP.

 

Segue anexo a planilha, é só arrastar a formula e o numero para referencia

 

@andreyacr

 

segue planilha

cadastro clientes andrey.xlsx

[ANDREYACR]

@Midori Como subo essa macro, não tenho experiência com esta função !

[Midori]

@ANDREYACR Digite Alt+F11 para abrir o editor do VBA e insira um módulo em Inserir > Modulo. Cole o código e execute a macro (Executar > Executar Sub).

[ANDREYACR]

@Midori deu erro... Erro em tempo de execução '9'

@midori link para acessr  dcumento completo .... https://1drv.ms/u/s!aiccxmgsaozkixdnhkn6_giekdck?e=jnx5ir

[Midori]

@ANDREYACR Deu esse erro porque a nova planilha não tem as abas "Base de dados" e "Exemplo" que tinha na outra. O código considera que essas abas existem na planilha para procurar e criar a tabela, então antes de rodar teria que deixar a planilha com duas abas com esses nomes (ou criar outra aba e editar isso no código). Mas essa macro não vai funcionar nessa planilha porque está diferente da anterior e por isso teria que fazer outras alterações e acréscimos para adaptar nesse padrão.