Escrever texto de acordo com um número

[Barbara Santos]

Boa tarde,

 

preciso escrever determinada informação que consta em uma célula de acordo com o número que consta em outra célula.

 

Exemplo:

 

     A              B

Sapato          5

Vestido         3

Saia              1

 

 

Preciso que sejam escritas em 5 linhas a palavra sapato, em 3 linhas vestido e em 1 linha saia, como segue abaixo

 

Sapato

Sapato

Sapato

Sapato

Sapato

Vestido

Vestido

Vestido

Saia

 

 

[David.sps]

Olá Bárbara, seja bem vinda!

Penso que seria mais interessante nos explicar melhor e até mesmo qual o seu objetivo...

Os números sempre serão estes?

Exponha para nós o que gostaria de fazer, detalhadamente.....

[Visitante]

Considerei os dados no intervalo "B2:C4" e utilizei a coluna "A" para dados auxiliares.
Veja arquivo anexado.

xxxx

1. Solução utilizando fórmulas
em A2    coloque 1                                
em A3    coloque =A2+C2    >> e arraste p/ A4                            
em A4    após arrastar de A3 ficará =A3+C3                                
em F2    coloque =SE(LIN(A1)>SOMA(C:C);"";PROCV(LIN(A1);$A$2:$B$4;2)) >> e arraste para baixo    


2. Solução utilizando macro
Instale o código abaixo em um módulo comum, assim:
1. copie o código daqui
2. a partir da planilha em que estão os dados tecle 'Alt+F11' para acessar o editor de VBA
3. no menu do editor >> Inserir >> Módulo
4. cole o código na janela em branco que vai se abrir
5. feito! 'Alt+Q' para retornar para a planilha e testar

para rodar o código:
6. tecle 'Alt+F8' >> selecione a macro correspondente >> Executar, ou insira um botão na planilha e vincule-o à macro ou vincule-a a um atalho de teclado (Alt+F8 > Opções).

Sub ListaNomesXVezes() Dim k As Long, nm As Range  [G:G] = ""   For Each nm In Range("B2", Range("B2").End(xlDown))    Cells(k + 2, 7).Resize(nm.Offset(, 1).Value) = nm.Value    k = k + nm.Offset(, 1).Value   Next nmEnd Sub

 

a Repetir palavras CH.rar