Fórum Excel Bácico, Avançado e Vba

Este fórum é destina a usuário de Excel, que queiram compartilhar informações a básicas, avançadas e programação em VBA...
 
InícioInício  FAQFAQ  BuscarBuscar  MembrosMembros  GruposGrupos  Registrar-seRegistrar-se  Login  

Compartilhe | 
 

 Copiar e agrupar linhas de colunas iguais em novas colunas

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
nauber



Mensagens : 5
Data de inscrição : 12/02/2014

MensagemAssunto: Copiar e agrupar linhas de colunas iguais em novas colunas   Qua Fev 12, 2014 3:13 pm

Bom dia!

Vou tentar exemplificar que eu preciso:
Tenho uma planilha com algumas colunas iguais variando informações da última coluna, eu gostaria de agrupar todas informações comuns em uma linha, incluindo as informações variantes em novas colunas.
exemplo:
planilha origem:
  A  B  C  D
1 X  Y  Z  1
2 X  Y  Z  2
3 X  Y  Z  3
4 X  Y  Z  4
5 .   .   .   .

Planilha desejada:
  A  B  C  D  E  F  G
1  X  Y  Z  1  2  3  4
2   .   .  .   .   .  .   .
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Copiar e agrupar linhas de colunas iguais em novas colunas   Qua Fev 12, 2014 3:34 pm

Bom dia!!

Veja se te ajuda
http://usuariosdoexcel.forumeiros.com/t113-devarias-colunas-para-uma-coluna#360

Att
Voltar ao Topo Ir em baixo
Ver perfil do usuário
nauber



Mensagens : 5
Data de inscrição : 12/02/2014

MensagemAssunto: Re: Copiar e agrupar linhas de colunas iguais em novas colunas   Qua Fev 12, 2014 3:42 pm

Alexandrevba, bom dia!

Na verdade eu preciso de mais ou menos o contrário, pois eu tenho linhas com colunas iguais e variando apenas a última e gostaria de agrupar os valores iguais em uma única linha, acrescentando os valores diferentes em novas colunas.

Grato,

Nauber
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Copiar e agrupar linhas de colunas iguais em novas colunas   Qua Fev 12, 2014 7:13 pm

Boa tarde!!

Eu não sei se eu entendi bem....
http://www.sendspace.com/file/i40dlh

Att
Voltar ao Topo Ir em baixo
Ver perfil do usuário
nauber



Mensagens : 5
Data de inscrição : 12/02/2014

MensagemAssunto: Re: Copiar e agrupar linhas de colunas iguais em novas colunas   Qua Fev 12, 2014 7:49 pm

Caro Alexandre,

Antes de mais nada obrigado pela sua atenção.

Vou tentar me explicar melhor:
Suponhamos:
A B C D
1 X Y Z 1
2 X Y Z 2
3 X Y Z 3
4 W R S 1
5 W R S 2
6 W R S 3
7 . . . .

O resultado que pretendo é:
A B C D E F
1 X Y Z 1 2 3
2 W R S 1 2 3
3 . . . . . .

Sendo que o resultado da sua planilha é:
A B C D E F G H I J K L M N O P Q R S T U V W X
1 X X X W W W Y Y Y R R R Z Z Z S S S 1 2 3 1 2 3

Entendeu??

Grato,

Nauber


Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Copiar e agrupar linhas de colunas iguais em novas colunas   Qua Fev 12, 2014 9:41 pm

Boa tarde!!

Hora no seu exemplo da primeira postagem não está assim, poderia ter feito dessa forma antes  confused 

Assim que eu poder tentarei fazer conforme solicitado.

Att
Voltar ao Topo Ir em baixo
Ver perfil do usuário
nauber



Mensagens : 5
Data de inscrição : 12/02/2014

MensagemAssunto: Re: Copiar e agrupar linhas de colunas iguais em novas colunas   Qua Fev 12, 2014 10:09 pm

Alexandre, boa tarde!

Realmente, no exemplo deveria ter colocado a segunda linha. Desculpe.

Mas agradeço antecipadamente a atenção.
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Copiar e agrupar linhas de colunas iguais em novas colunas   Sex Fev 14, 2014 4:22 pm

Bom dia!!

Tente
Código:
Sub AleVBA_706()
Dim Rng        As Range
Dim Dn          As Range
Dim n          As Long
Dim Q          As Variant
Dim Ray()
Dim Ac          As Integer

Set Rng = Range(Range("A1"), Range("A" & Rows.Count).End(xlUp))
    ReDim Ray(1 To Rng.Count, 1 To 4)
        With CreateObject("scripting.dictionary")
            .CompareMode = vbTextCompare
For Each Dn In Rng
    If Not .Exists(Dn.Value & Dn.Offset(, 1) & Dn.Offset(, 2)) Then
        n = n + 1
        For Ac = 1 To 4: Ray(n, Ac) = Dn(, Ac): Next Ac
        .Add Dn.Value & Dn.Offset(, 1) & Dn.Offset(, 2), Array(n, 4)
    Else
        Q = .Item(Dn.Value & Dn.Offset(, 1) & Dn.Offset(, 2))
            Q(1) = Q(1) + 1
            If Q(1) > UBound(Ray, 2) Then: ReDim Preserve Ray(1 To Rng.Count, 1 To Q(1))
                Ray(Q(0), Q(1)) = Dn(, 4)
        .Item(Dn.Value & Dn.Offset(, 1) & Dn.Offset(, 2)) = Q
End If
Next

Range("F2").Resize(.Count, UBound(Ray, 2)) = Ray
End With
End Sub
Voltar ao Topo Ir em baixo
Ver perfil do usuário
nauber



Mensagens : 5
Data de inscrição : 12/02/2014

MensagemAssunto: Re: Copiar e agrupar linhas de colunas iguais em novas colunas   Sex Fev 14, 2014 9:05 pm

Alexandre, boa tarde!

Funcionou certinho ...

Muito obrigado.

Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Copiar e agrupar linhas de colunas iguais em novas colunas   Sex Fev 14, 2014 10:42 pm

Boa tarde!!

Obrigado pelo retorno, eu fico feliz por ajudar!

Att cheers 
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Conteúdo patrocinado




MensagemAssunto: Re: Copiar e agrupar linhas de colunas iguais em novas colunas   Hoje à(s) 1:33 pm

Voltar ao Topo Ir em baixo
 
Copiar e agrupar linhas de colunas iguais em novas colunas
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» Agrupar tópicos por colunas
» Linhas Diagonais
» destruir 3 ou + objetos iguais ao se tocarem
» linhas na diagonal
» Aula 3 - Nossas primeiras linhas

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: