Ir ao conteúdo
  • Cadastre-se

Excel Como unir informações na mesma linha


Posts recomendados

Olá, sou novata no fórum e estou com a seguinte dúvida:
Tenho uma planilha com aprox. 12 mil linhas.

Necessito de alguma solução (fórmula, macro ou qualquer outra coisa, rs), que: caso as informações de A a F sejam iguais, automaticamente virem uma só linha de G a R, mantendo as informações das células. 
Exemplo da imagem: Maria esteve "pendente" de Maio a Outubro, sendo que em Novembro e Dezembro esteve "atualizado". 
É possível encontrar solução que una na mesma linha as informações?

Agradeço desde já. 

EXEMPLO.png

EXEMPLO.xlsx

Link para o comentário
Compartilhar em outros sites

 

Experimente:

Sub OrganizaDados()
 Dim g As Long, ci As Long, cf As Long
  For g = Cells(Rows.Count, 1).End(3).Row To 2 Step -1
   If Evaluate("And(" & Cells(g, 1).Resize(, 6).Address & "=" & Cells(g - 1, 1).Resize(, 6).Address & ")") = True Then
    If Application.CountIf(Cells(g, 7).Resize(, 12), "PENDENTE") > 0 Then
     cf = Cells(g, Columns.Count).End(1).Column
     Cells(g, 7).Resize(, cf - 6).Copy Cells(g - 1, 7)
    Else: ci = Application.CountA(Cells(g, 7).Resize(, 12))
     Cells(g, 18 - ci + 1).Resize(, ci).Copy Cells(g - 1, 18 - ci + 1)
    End If
    Rows(g).Delete: g = g - 1
   End If
  Next g
End Sub

obs.

1. considerei o cabeçalho na linha 1 e os dados a partir da linha 2

2. faça os testes em uma cópia do seu arquivo pois o código irá efetuar as alterações na própria tabela de dados

Link para o comentário
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...