Este fórum está sendo desativado

[andriessen]

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.

[babdallas]

Veja se ajuda. Fiz com fórmula, mas se forem centenas ou milhares de linhas, recomendo o PowerQuery.

[osvaldomp]

Experimente:

Código: Selecionar todos

Sub ReplicaDados()
 Dim c As Range
  Sheets("PLAN 2").[A:B] = ""
  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) = c.Offset(, 1)
  Next c
End Sub