| | Copiar e agrupar linhas de colunas iguais em novas colunas |  |
|
|
| Autor | Mensagem |
|---|
nauber
Mensagens : 5
Data de inscrição : 12/02/2014
| | Assunto: 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 . . . . . . . | |
|
| | |
alexandrevba
Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES
| | Assunto: 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 | |
|
| | |
nauber
Mensagens : 5
Data de inscrição : 12/02/2014
| | Assunto: 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 | |
|
| | |
alexandrevba
Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES
| | Assunto: 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 | |
|
| | |
nauber
Mensagens : 5
Data de inscrição : 12/02/2014
| | Assunto: 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
| |
|
| | |
alexandrevba
Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES
| | Assunto: 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  Assim que eu poder tentarei fazer conforme solicitado. Att | |
|
| | |
nauber
Mensagens : 5
Data de inscrição : 12/02/2014
| | Assunto: 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. | |
|
| | |
alexandrevba
Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES
| | Assunto: 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 | |
|
| | |
nauber
Mensagens : 5
Data de inscrição : 12/02/2014
| | Assunto: 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.
| |
|
| | |
alexandrevba
Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES
| | Assunto: 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  | |
|
| | |
Conteúdo patrocinado
| | Assunto: Re: Copiar e agrupar linhas de colunas iguais em novas colunas | |
| |
|
| | |
| | Copiar e agrupar linhas de colunas iguais em novas colunas | |
|
