none
Formula que repita o valor de uma celula consoante o numero de vezes de outra celula RRS feed

  • Pergunta

  • Ola, Saudações a todos os  participantes deste fórum.

    Tenho uma planilha e pretendo uma formula para que na coluna C apareça os valores da  coluna A repetidos consoante  o numero de vezes da coluna B.

    Podem ajudar-me? Obrigado


     Coluna A        Coluna B    Coluna C 

    123 3 123
    234 2 123
    432 1 123
    546 2 234
    234
    432
    546
    546

    Um Abraço !

    João Meco

     



    • Editado João Meco segunda-feira, 2 de setembro de 2013 00:44
    segunda-feira, 2 de setembro de 2013 00:35

Respostas

  • @Fúlvio
    Este fórum destinado à questões de VBA (Visual Basic for Applications).

    @João Meco
    Experimente o código abaixo:

    Sub fnc()
        Dim lngBanco As Long
        Dim lngQtd As Long
        Dim lngRept As Long
        
        Columns("C").ClearContents
        For lngBanco = 1 To Cells(Rows.Count, "A").End(xlUp).Row
            For lngQtd = 1 To Cells(lngBanco, "B")
                lngRept = lngRept + 1
                Cells(lngRept, "C") = Cells(lngBanco, "A")
            Next lngQtd
        Next lngBanco
    End Sub


    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    • Marcado como Resposta João Meco quarta-feira, 4 de setembro de 2013 02:46
    segunda-feira, 2 de setembro de 2013 21:27
    Moderador

Todas as Respostas

  • Em qual linguagem?????

    Fúlvio Cezar Canducci Dias

    segunda-feira, 2 de setembro de 2013 01:04
  • @Fúlvio
    Este fórum destinado à questões de VBA (Visual Basic for Applications).

    @João Meco
    Experimente o código abaixo:

    Sub fnc()
        Dim lngBanco As Long
        Dim lngQtd As Long
        Dim lngRept As Long
        
        Columns("C").ClearContents
        For lngBanco = 1 To Cells(Rows.Count, "A").End(xlUp).Row
            For lngQtd = 1 To Cells(lngBanco, "B")
                lngRept = lngRept + 1
                Cells(lngRept, "C") = Cells(lngBanco, "A")
            Next lngQtd
        Next lngBanco
    End Sub


    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    • Marcado como Resposta João Meco quarta-feira, 4 de setembro de 2013 02:46
    segunda-feira, 2 de setembro de 2013 21:27
    Moderador
  • Caro Felipe

    Muito obrigado, o código funcionou na perfeição, 

    No entanto tenho uma dúvida, sem recorrer ao código VBA,  usando as funções do excel conseguia-se criar uma formula para aplicar na coluna C e obter o resultado acima descrito?

    Um Abraço

    João Meco

    terça-feira, 3 de setembro de 2013 14:31
  • Creio não ser possível ou extremamente difícil alcançar o mesmo resultado utilizando fórmulas nativas do Excel.

    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    quarta-feira, 4 de setembro de 2013 00:57
    Moderador