Este fórum está sendo desativado

[andriessen]

Reabri a questao por ter ficado com uma duvida
Bom dia. Exixte alguma maneira do excel entender a quantodade de linhas a inserir?

Ex: Plan1
Linha A B C
Qtde Função
1 1 Assistente
2 2 Tecnicos
3 3 Operadores
Então vou levar para PLAN2 1 linha A1 a informação Assistente
2 linhas A2 e A3 a inf TECNICOS pois preciso que a pessoa que vai receber alimente os nomes deles
3 Linhas com a INF OPERADORES.
Mas sempre 1 abaixo da outra
Espero ter conseguido explicar.
Nosso amigo Osvaldo me deu uma boa solução porem não entendi a formula toda.

[babdallas]

Não entendi porque abriu de novo. No outro tópico houve uma solução por fórmula e outra por macro. Também seria possível fazer via PowerQuery. Qual a dúvida em relação ao tópico anterior? O que não entendeu?

[andriessen]

Bom dia! Obrigado pelo retorno. Eu tentei adaptar a sua soluçãopor formula porem não consgui. Precisava que ela pegasse de A4 ate C40 modifiquei alguns parametros mas nao funciona.
=SE(LINS($F$4:F4)=1;ÍNDICE($B$4:$B$30;AGREGAR(15;6;(LIN($A$4:$A$6)-LIN($A$4)+1)/($A$4:$A$6>0);1));SE(LINS($F$4:F4)>SOMA($A$4:$A$6);"";ÍNDICE($B$4:$B$6;SE(ÍNDICE($A$4:$A$6;CORRESP(F3;$B$4:$B$6;0))=CONT.SE($F$3:F3;F3);CORRESP(F3;$B$4:$B$6;0)+1;CORRESP(F3;$B$4:$B$6;0)))))
Tb nao entendi o que significam os''''' AGREGAR(15;6;''''''''
Obrigado

[babdallas]

Insira a planilha com os valores reais e o que pretende. Quanto à função AGREGAR, segue alguns vídeos para você estudar.

https://www.youtube.com/watch?v=IToJ4sbuvqY
https://www.youtube.com/watch?v=9Zh6sp3KPEU
https://www.youtube.com/watch?v=0UIYp9OW4G4

[osvaldomp]

Veja no arquivo anexado.

[andriessen]

Ola, esta funcionando mas so copia a coluna B, o que acrescento para copiar a Col "C e "D" por favor.

[babdallas]

Veja se é o que deseja. Se não for, poste outro anexo com toas as colunas que deseja e o resultado esperado.

[osvaldomp]

Experimente este no lugar do anterior.

Código: Selecionar todos

Sub ReplicaDados()
 Dim c As Range
  Sheets("PLAN 2").[A:C] = ""
  For Each c In Range("A4:A" & Cells(Rows.Count, 1).End(3).Row)
   Sheets("PLAN 2").Cells(Rows.Count, 1).End(3)(2).Resize(c.Value, 3) = c.Offset(, 1).Resize(, 3).Value
  Next c
End Sub

[andriessen]

Obrigado a todos. Consegui fazer levar as 3 colunas , com a macro.

[babdallas]

Fiz uma solução com PowerQuery também.