Como listar todas as datas entre duas datas no Excel?

Em algumas situações, ao ter uma data inicial e uma data final específicas, pode ser necessário listar todas as datas entre esses dois períodos no Excel. Este tutorial apresenta métodos para listar todas as datas entre duas datas no Excel.

Listar todas as datas entre duas datas usando fórmulas

Listar todas as datas entre duas datas com o Kutools para Excel

Listar todas as datas entre duas datas usando VBA

Listar todas as datas entre duas datas usando fórmulas

Aqui apresento fórmulas que permitem listar rapidamente todas as datas entre duas datas específicas no Excel.

1. Digite as datas inicial e final em duas células; neste exemplo, utilizei as células A1 e A2. Veja a imagem:

2. Em seguida, vá até a célula C1 e digite esta fórmula =A1+1 nela e pressione Enter no teclado. Veja a imagem:

3. Agora, na célula C2, digite esta fórmula =IF($A$1+ROW(A1)>=$A$2-1,"",C1+1) e depois arraste a alça de preenchimento para baixo até que apareça uma célula em branco. Veja as imagens:

Agora você verá todas as datas entre as duas datas informadas listadas na coluna.

Observação:

Nas fórmulas acima, A1 corresponde à data inicial, A2 à data final e C1 é a primeira data do intervalo de datas.

Listar todas as datas entre duas datas com o Kutools para Excel

Na verdade, se você instalou o Kutools para Excel – uma ferramenta prática, também pode usar o recurso Inserir dados aleatórios para resolver esse problema.

Após instalar gratuitamente o Kutools para Excel, siga os passos abaixo:

1. Selecione uma coluna onde deseja listar as datas entre duas datas e clique em Kutools > Inserir > Inserir dados aleatórios. Veja a imagem:

2. Em seguida, na Inserir dados aleatórios janela, clique na guia Data , depois selecione as datas inicial e final na lista De e Para, e lembre-se de marcar as opções Dia útil, Fim de semana e Gerar valores únicos nas caixas de seleção. Veja a imagem:

3. Clique em Ok para fechar a janela e, em seguida, outra janela do Kutools para Excel será exibida; basta clicar em Yes. Agora você verá as datas entre a data inicial e a data final listadas. Veja as imagens:

4. Agora é necessário classificar a lista de datas na ordem desejada. Clique em Dados > Classificar do mais antigo para o mais recente. Assim, as datas serão organizadas do mais antigo para o mais recente. Veja as imagens:

Com a ferramenta Inserir dados aleatórios, você também pode inserir números inteiros aleatórios, sequências aleatórias, horários aleatórios e muito mais. Clique aqui para saber mais sobre o recurso Inserir dados aleatórios.

Listar todas as datas entre duas datas usando VBA

Se você tem interesse em código macro, pode utilizar o VBA abaixo para listar todas as datas entre duas datas específicas no Excel.

1. Digite a data inicial e a data final em duas células; neste exemplo, utilizei as células A1 e B1. Veja a imagem:

2. Pressione as teclas Alt +F11 para abrir a janela do Microsoft Visual Basic for Applications.

3. Em seguida, clique em Inserir > Módulo e copie e cole o código VBA abaixo na janela do Módulo que se abrir.

VBA: Listar todas as datas 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 Sub

4. Clique em Executar ou F5 para rodar o VBA. Uma janela será exibida para você selecionar a data inicial; clique em OK, depois selecione a data final na segunda janela exibida. Veja a imagem:

5. Clique em OK, selecione uma célula para exibir as datas e clique em OK novamente. Agora você verá todas as datas entre as duas datas listadas. Veja as imagens:

Observação: A lista gerada por este VBA inclui a data inicial e a data final.

Listar todas as datas entre duas datas

Artigos Relacionados:

• Criar lista dinâmica de nomes de planilhas