Como listar todas as datas entre duas datas no Excel?
Em alguns casos, ao dispor de uma Data de Início e uma Data de Término específicas, poderá precisar de listar todas as datas compreendidas entre essas duas datas no Excel. Este tutorial apresenta os métodos para listar todas as datas entre duas datas no Excel.
Listar todas as datas entre duas datas com fórmulas
Listar todas as datas entre duas datas com Kutools para Excel 
Listar todas as datas entre duas datas com VBA
Listar todas as datas entre duas datas com fórmulas
Apresentamos fórmulas que listam rapidamente todas as datas entre duas datas especificadas no Excel.
1. Introduza a data inicial e a data de término em duas células — aqui, utilizei as células A1 e A2. Veja a captura de ecrã:
2. Em seguida, vá à célula C1, introduza a fórmula =A1+1 e prima a tecla Enter. Veja a captura de ecrã:
3. Depois, na célula C2, introduza esta fórmula =IF($A$1+ROW(A1)>=$A$2-1,«»,C1+1) e arraste a alça de preenchimento automático para baixo até aparecer uma célula em branco. Veja as capturas de ecrã:
Poderá então verificar que todas as datas compreendidas entre as duas indicadas estão listadas na coluna.
Nota:
Nas fórmulas acima, A1 é a data de início, A2 é a data de término e C1 é a primeira data do intervalo de datas.
Listar todas as datas entre duas datas com Kutools para Excel
Na verdade, se tiver instalado o Kutools para Excel – uma ferramenta complementar prática – também pode utilizar o Inserir dados aleatórios para resolver este problema.
Após instalar gratuitamenteKutools para Excel, proceda da seguinte forma:
1. Selecione uma coluna onde pretenda listar as datas entre duas datas e clique em Kutools > Inserir > Inserir dados aleatórios. Veja a captura de ecrã:
2. Em seguida, na caixa de diálogo Inserir dados aleatórios, clique no separador Data, selecione a data inicial e a data de término em De e A e certifique-se de marcar as caixas de verificação Dias úteis, Fins de semana e Valores únicos. Veja a captura de ecrã:
3. Clique em Ok para fechar a caixa de diálogo; abrirá outra caixa de diálogo Kutools para Excel — basta clicar em Sim. Depois, verá que as datas entre Data de Início e Data de Término estão listadas. Veja as capturas de ecrã:
4. Agora, precisa de ordenar a lista de datas na ordem pretendida. Clique em Dados > Ordenar do mais antigo para o mais recente. Poderá então verificar que as datas estão ordenadas da mais antiga para a mais recente. Veja as capturas de ecrã:
Com a utilidade Inserir dados aleatórios, também pode inserir números inteiros aleatórios, cadeias aleatórias, horas aleatórias, entre outros.Clique aqui para saber mais sobre Inserir dados aleatórios.
Listar todas as datas entre duas datas com VBA
Se estiver interessado em código de macro, pode usar o VBA abaixo para listar todas as datas entre duas datas fornecidas no Excel.
1. Introduza a Data de Início e a Data de Término em duas células — aqui, utilizei as células A1 e B1. Veja a captura de ecrã:
2. Prima as teclas Alt + F11 para abrir a janela do Microsoft Visual Basic para Aplicações.
3. Em seguida, clique em Inserir > Módulo e copie e cole o código VBA abaixo na janela do Módulo que surge.
VBA: Liste todas as datas compreendidas entre duas datas.
Sub WriteDates()
'Updateby20150305
Dim rng As Range
Dim StartRng As Range
Dim EndRng As Range
Dim OutRng As Range
Dim StartValue As Variant
Dim EndValue As Variant
xTitleId = "KutoolsforExcel"
Set StartRng = Application.Selection
Set StartRng = Application.InputBox("Start Range (single cell):", xTitleId, StartRng.Address, Type: = 8)
Set EndRng = Application.InputBox("End Range (single cell):", xTitleId, Type: = 8)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type: = 8)
Set OutRng = OutRng.Range("A1")
StartValue = StartRng.Range("A1").Value
EndValue = EndRng.Range("A1").Value
If EndValue - StartValue <= 0 Then
Exit Sub
End If
ColIndex = 0
For i = StartValue To EndValue
OutRng.Offset(ColIndex, 0) = i
ColIndex = ColIndex + 1
Next
End Sub4. Clique em Executar ou F5 para executar o VBA; surgirá uma caixa de diálogo para selecionar a Data de Início. Clique em OK e, de seguida, selecione a Data de Término na segunda caixa de diálogo que aparece. Veja a captura de ecrã:
5. Clique em OK, selecione uma célula para apresentar as datas e, em seguida, clique em OK. Agora já pode verificar que todas as datas entre as duas selecionadas estão listadas. Veja as capturas de ecrã:
Nota: A lista gerada por este VBA inclui a data de início e a data de término.
Listar todas as datas entre duas datas
Artigos relacionados:
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos