Como repetir um valor de célula X vezes no Excel?

---

Repetir valores de células X vezes com fórmula e coluna auxiliar

Para repetir os valores das células X vezes, insira algumas colunas auxiliares e, de seguida, aplique uma fórmula simples. Siga os passos seguintes:

1. Insira uma coluna à esquerda da coluna A e introduza o número 1 na célula A2, conforme mostrado na imagem:

2. Em seguida, introduza a fórmula =A2 + C2 na célula A3 e arraste a alça de preenchimento até à célula A6, conforme mostra a imagem:

3. Introduza depois o número 1 na célula D2 e preencha os números arrastando o Preenchimento Automático até ao 12 — que corresponde ao número total de repetições indicado na coluna C, conforme mostra a imagem:

4. Depois, introduza esta fórmula =PROCV(D2;$A$1:$B$6;2) na célula E2 e copie-a para baixo. Obterá o seguinte resultado:

---

---

Repetir valores de células X vezes com código VBA

Se achar que o primeiro método é difícil de compreender, apresento-lhe também um código VBA para resolver este problema.

1. Mantenha premidas as teclas ALT + F11 para abrir a janela do Microsoft Visual Basic for Applications.

2. Clique em Inserir > Módulo e cole o seguinte código na Janela do Módulo.

Código VBA: Repetir valores de células X vezes

Sub CopyData()
'Updateby Extendoffice
Dim Rng As Range
Dim InputRng As Range, OutRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
Set OutRng = OutRng.Range("A1")
For Each Rng In InputRng.Rows
    xValue = Rng.Range("A1").Value
    xNum = Rng.Range("B1").Value
    OutRng.Resize(xNum, 1).Value = xValue
    Set OutRng = OutRng.Offset(xNum, 0)
Next
End Sub

3. Em seguida, prima F5Para executar este código, irá aparecer uma caixa de aviso a solicitar que selecione o intervalo contendo os valores e o número de repetições, conforme ilustrado na imagem:

4E clique em OK, surgirá outra caixa de aviso a pedir-lhe que selecione uma célula para colocar o resultado, conforme mostra a imagem:

5. Em seguida, clique em OKe obterá o resultado em que os valores selecionados foram repetidos o número de vezes especificado, tal como pretendido.

---

Copiar e inserir valores de células X vezes com uma funcionalidade incrível

Por vezes, poderá precisar de copiar e inserir os valores das células várias vezes com base num número específico. A funcionalidade Kutools para Excel's Copiar ou Inserir Linhas/Colunas de Acordo com Dados Especificados ajuda-o a copiar e inserir rapidamente as linhas com base no número que especificar.

Após instalar o Kutools para Excel, proceda da seguinte forma:

1. Clique em Kutools > Inserir > Copiar ou Inserir Linhas/Colunas de Acordo com Dados Especificados, conforme mostra a imagem:

2. Na caixa de diálogo Copiar e Inserir Linhas/Colunas, selecione a opção Copiar e Inserir Linhas na secção Tipo, depois escolha o intervalo de dados que pretende duplicar e indique o número de repetições para copiar e inserir as linhas, conforme mostra a imagem:

4. Em seguida, clique no botão Ok ou Aplicar e obterá o seguinte resultado, conforme pretendido:

Clique para transferir Kutools para Excel e experimentar gratuitamente agora!