
Preciso preencher números de 2.000 a 65.000 no Excel 2013 e usar a alça de preenchimento e arrastar é um processo muito longo.
Há outra maneira de fazer isso?
Responder1
Digite "2000" em A1. Em seguida, insira a fórmula A2 = A1 + 1 e copie esta fórmula para A3 até A65000 selecionando primeiro A3 e segurandomudança, e rolando com o mouse até A65000, clicando na célula e soltando shift. Cole a fórmula. Isso lhe dará o que você deseja.
Se desejar converter a fórmula em valores posteriormente, selecione tudo, copie novamente e cole como valores.
Responder2
- Defina a primeira célula com seu valor inicial.
- Defina a célula abaixo dela como CellAbove + 1.
- Clique para selecionar a segunda célula.
- Role para baixo e clique com Shift na célula final.
- Ctrl-D (preencher, baixo)
- Ctrl-C (Copiar)
- Ctrl-Alt-V (Colar especial)
- Selecione "Valores", clique em OK
É um método queEsquadrão Brutousaria, mas funciona.
Responder3
Esta é uma macro usando VBA:
Sub megafiller()
firstvalue = 2000
lastvalue = 65000
firstcellrow = 1
firstcellcolumn = 1
Dim wks As Worksheet
Set wks = ActiveSheet
thisrow = firstcellrow
For j = firstvalue To lastvalue
wks.Cells(thisrow, firstcellcolumn) = j
thisrow = thisrow + 1
Next j
theend = MsgBox("Finished", vbInformation)
End Sub
Abra Macro/VBA, emEsta pasta de trabalhoinsira um módulo e cole o código no lado direito. Execute e pronto. Com as variáveis você pode modificar os valores inicial (200) e final (65000). Além disso, você pode modificar a célula inicial. Para este código é A1 ( firstcellrow=1
e firstcellcolumn=1
).
Responder4
Obrigado a todos por me ajudarem. Também encontrei outra maneira que nunca tinha visto antes. Usando o botão Preencher na guia Início no Grupo de Edição e selecionando Série, selecionei Colunas e Linear e coloquei o Valor de Parada de 65.000 e cliquei em OK. Isso funcionou muito bem!
Mais uma vez, obrigado a todos por dedicarem seu tempo para me ajudar. Isso é muito apreciado.