Ir ao conteúdo
  • Cadastre-se

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


Posts recomendados

@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

 

Link para o post
Compartilhar em outros sites

@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.

Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisa ser um usuário para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

Redes-Wi-Fi-capa-3d-newsletter.png

EBOOK GRÁTIS!

CLIQUE AQUI E BAIXE AGORA MESMO!