如何在 Excel 中列出两个日期之间的所有日期？

在某些情况下，如果您有特定的开始日期和结束日期，则可能需要在 Excel 中列出这两个给定日期之间的所有日期。本教程将介绍在 Excel 中列出两个日期之间所有日期的方法。

通过公式列出两个日期之间的所有日期

通过 Kutools for Excel 列出两个日期之间的所有日期

通过 VBA 列出两个日期之间的所有日期

通过公式列出两个日期之间的所有日期

在这里，我将介绍一些公式，这些公式可以快速为您在 Excel 中列出两个给定日期之间的所有日期。

1. 将开始日期和结束日期输入到两个单元格中，这里我将它们输入到单元格 A1 和 A2 中。请参见截图：

2. 然后转到单元格 C1 并输入以下公式 =A1+1 然后点击 Enter 键。请参见截图：

3. 接着，在单元格 C2 中输入这个公式 =IF($A$1+ROW(A1)>=$A$2-1,"",C1+1)，然后向下拖动自动填充句柄直到出现空白单元格为止。请参见截图：

然后您可以看到两个给定日期之间的所有日期都列在列中。

注意：

在上述公式中，A1 是起始日期，A2 是结束日期，而 C1 是日期范围中的第一个日期。

通过 Kutools for Excel 列出两个日期之间的所有日期

实际上，如果您安装了 Kutools for Excel —— 一个方便的加载项工具，您还可以使用 插入随机数据 功能来解决这个问题。

免费安装 Kutools for Excel 后，请按照以下步骤操作：

1. 选择要在其中列出两个日期之间日期的一列，然后点击 Kutools > 插入 > 插入随机数据。请参见截图：

2. 然后在 插入随机数据 对话框中，点击 日期 选项卡，然后从 从 和 至列表中选择起始日期和结束日期，然后记得勾选 工作日, 周末 和 生成唯一值 复选框。请参见截图：

3. 点击“ 确定”关闭对话框，另一个 Kutools for Excel 对话框弹出，只需点击“是”。然后您可以看到起始日期和结束日期之间的日期已列出。请参见截图：

4. 现在您需要按所需顺序对日期列表进行排序。点击 数据 > 从最早到最晚排序。然后您可以看到日期已从最早日期排序到最晚日期。请参见截图：

借助 插入随机数据 工具，您还可以插入随机整数、随机字符串和随机时间等。点击此处了解更多关于 插入随机数据 的信息。

通过 VBA 列出两个日期之间的所有日期

如果您对宏代码感兴趣，可以使用以下 VBA 在 Excel 中列出两个给定日期之间的所有日期。

1. 将起始日期和结束日期输入到两个单元格中，这里我将它们输入到单元格 A1 和 B1 中。请参见截图：

2. 按 Alt +F11 键打开 Microsoft Visual Basic for Applications 窗口。

3. 然后点击 插入 > 模块，并将以下 VBA 代码复制并粘贴到弹出的 模块 窗口中。

VBA：列出两个日期之间的所有日期。

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. 点击 运行 或 F5 来运行 VBA，会弹出一个对话框让您选择起始日期，然后点击 确定，接着在第二个弹出的对话框中选择结束日期。请参见截图：

5. 点击 确定，然后选择一个单元格以输出日期，再点击 确定。现在您可以看到两个日期之间的所有日期都已列出。请参见截图：

注意：此 VBA 生成的列表包括起始日期和结束日期。

列出两个日期之间的所有日期

相关文章：

• 创建工作表名称的动态列表