Comment lister toutes les dates entre deux dates dans Excel?

Dans certains cas, si vous avez la date de début et la date de fin spécifiques, vous devrez peut-être répertorier toutes les dates entre ces deux dates données dans Excel. Maintenant, ce tutoriel parle des méthodes pour répertorier toutes les dates entre deux dates dans Excel.

Liste toutes les dates entre deux dates par formules

Liste toutes les dates entre deux dates par Kutools for Excel

Liste toutes les dates entre deux dates par VBA

Liste toutes les dates entre deux dates par formules

Ici, j'introduis des formules qui peuvent répertorier rapidement toutes les dates entre deux dates données pour vous dans Excel.

1. Tapez les dates de début et de fin dans deux cellules, ici je les tape dans les cellules A1 et A2. Voir la capture d'écran:

2. Accédez ensuite à la cellule C1 pour taper cette formule = A1 + 1 dedans, puis cliquez sur Entrer clé. Voir la capture d'écran:

3. Ensuite, dans la cellule C2, tapez cette formule =IF($A$1+ROW(A1)>=$A$2-1,"",C1+1) dedans, puis faites glisser la poignée de remplissage automatique vers les cellules jusqu'à ce qu'une cellule vide apparaisse. Voir les captures d'écran:

Ensuite, vous pouvez voir toutes les dates entre deux dates données sont répertoriées dans la colonne.

Remarque:

Dans les formules ci-dessus, A1 est la date de début, A2 est la date de fin et C1 est la première date de la plage de dates.

Liste toutes les dates entre deux dates par Kutools for Excel

En fait, si vous avez installé Kutools for Excel - un outil complémentaire pratique, vous pouvez également utiliser le Insérer des données aléatoires pour résoudre ce problème.

Après installation gratuite Kutools for Excel, procédez comme suit:

1. Sélectionnez une colonne pour laquelle vous souhaitez répertorier les dates entre deux dates, puis cliquez sur Kutools > insérer > Insérer des données aléatoires. Voir la capture d'écran:

2. Puis dans le Insérer des données aléatoires dialogue, cliquez sur Date , puis sélectionnez les dates de début et de fin dans le À partir de et To liste, puis n'oubliez pas de vérifier Journée de travail, Fin de semaine et Valeurs uniques cases à cocher. Voir la capture d'écran:

3. Cliquez Ok pour fermer la boîte de dialogue, et un autre Kutools for Excel la boîte de dialogue apparaît, il suffit de cliquer Oui. Ensuite, vous pouvez voir les dates entre la date de début et la date de fin sont répertoriées. Voir les captures d'écran:

4. Vous devez maintenant trier la liste de dates dans l'ordre dont vous avez besoin. Cliquez sur Sauvegarde de > Trier du plus ancien au plus récent. Ensuite, vous pouvez voir que les dates sont triées de la date la plus ancienne à la date la plus récente. Voir les captures d'écran:

Avec Insérer des données aléatoires utilitaire, vous pouvez également insérer un entier aléatoire, une chaîne aléatoire et une heure aléatoire, etc. Cliquez ici pour en savoir plus sur Insérer des données aléatoires.

Liste toutes les dates entre deux dates par VBA

Si vous êtes intéressé par le code de macro, vous pouvez utiliser le VBA ci-dessous pour répertorier toutes les dates entre deux dates données dans Excel.

1. Tapez la date de début et la date de fin dans deux cellules, ici je tape dans les cellules A1 et B1. Voir la capture d'écran:

2. presse Alt + F11 clés pour ouvrir Microsoft Visual Basic pour applications fenêtre.

3. Puis clique insérer > Module et copiez et collez ci-dessous le code VBA dans le popping Module fenêtre.

VBA: liste toutes les dates entre deux dates.

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. Cliquez Courir or F5 pour exécuter le VBA, et une boîte de dialogue apparaît pour vous permettre de sélectionner la date de début, puis cliquez sur OK, puis sélectionnez la date de fin dans la deuxième boîte de dialogue contextuelle. Voir la capture d'écran:

5. Cliquez OK, puis sélectionnez une cellule pour afficher les dates, puis cliquez sur OK. Maintenant, vous pouvez voir toutes les dates entre deux dates sont répertoriées. Voir les captures d'écran:

Notes: La liste générée par ce VBA comprend la date de début et la date de fin.

Liste toutes les dates entre deux dates

Articles relatifs:

• Créer une liste dynamique de noms de feuille de calcul