ExcelでXNUMXつの日付の間のすべての日付を一覧表示するにはどうすればよいですか？

特定の開始日と終了日がある場合は、ExcelでこれらXNUMXつの指定された日付の間のすべての日付を一覧表示する必要がある場合があります。 このチュートリアルでは、ExcelでXNUMXつの日付の間のすべての日付を一覧表示する方法について説明しています。

XNUMXつの日付の間のすべての日付を数式で一覧表示します

XNUMXつの日付の間のすべての日付をKutoolsforExcelで一覧表示します

XNUMXつの日付の間のすべての日付をVBAで一覧表示します

XNUMXつの日付の間のすべての日付を数式で一覧表示します

ここでは、Excelで指定されたXNUMXつの日付の間のすべての日付をすばやく一覧表示できる数式を紹介します。

1.開始日と終了日を1つのセルに入力します。ここでは、セルA2とAXNUMXに入力します。 スクリーンショットを参照してください：

2.次に、セルC1に移動して、この数式を入力します = A1 + 1 それに、クリックします 入力します キー。 スクリーンショットを参照してください：

3.次に、セルC2に次の数式を入力します =IF($A$1+ROW(A1)>=$A$2-1,"",C1+1) その中に、空白のセルが表示されるまで自動入力ハンドルをセルまでドラッグします。 スクリーンショットを参照してください：

次に、指定されたXNUMXつの日付の間のすべての日付が列にリストされていることを確認できます。

注記：

上記の式で、A1は開始日、A2は終了日、C1は日付範囲の最初の日付です。

XNUMXつの日付の間のすべての日付をKutoolsforExcelで一覧表示します

実際にインストールした場合 Kutools for Excel –便利なアドインツール。使用することもできます。 ランダムデータを挿入 この問題を解決するために。

後 無料インストール Kutools for Excel、以下のようにしてください：

1. XNUMXつの日付の間の日付を一覧表示する列を選択し、[ クツール > インセット > ランダムデータを挿入。 スクリーンショットを参照してください：

2.次に、 ランダムデータを挿入 ダイアログ、クリック 日付 タブをクリックし、から開始日と終了日を選択します • Toリストし、確認することを忘れないでください 就業日, 週末 • 一意の値 チェックボックス。 スクリーンショットを参照してください：

3。 クリック Ok ダイアログを閉じるには、 Kutools for Excel ダイアログがポップアップします。クリックするだけです 可。 次に、開始日と終了日の間の日付が一覧表示されます。 スクリーンショットを参照してください：

4.次に、日付リストを必要な順序で並べ替える必要があります。 クリック 且つ > 古いものから新しいものに並べ替える。 次に、日付が最も古い日付から最も新しい日付にソートされていることを確認できます。 スクリーンショットを参照してください：

連絡先 ランダムデータを挿入 ユーティリティでは、ランダムな整数、ランダムな文字列、ランダムな時間などを挿入することもできます。 ランダムデータの挿入の詳細については、ここをクリックしてください。

XNUMXつの日付の間のすべての日付をVBAで一覧表示します

マクロコードに興味がある場合は、以下のVBAを使用して、Excelで指定されたXNUMXつの日付の間のすべての日付を一覧表示できます。

1.開始日と終了日を1つのセルに入力します。ここでは、セルA1とBXNUMXを入力します。 スクリーンショットを参照してください：

2。 押す Alt + F11 開くキー アプリケーション向け Microsoft Visual Basic 窓。

3。 次に、をクリックします インセット > モジュール 以下のVBAコードをコピーしてポップに貼り付けます モジュール 窓。

VBA：XNUMXつの日付の間のすべての日付を一覧表示します。

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。 クリック ラン or F5 VBAを実行すると、開始日を選択するためのダイアログが表示され、[ OK、次にXNUMX番目のポップダイアログで終了日を選択します。 スクリーンショットを参照してください：

5。 クリック OK、次にセルを選択して日付を出力し、をクリックします OK。 これで、XNUMXつの日付の間のすべての日付が一覧表示されます。 スクリーンショットを参照してください：

Note：このVBAによって生成されるリストには、開始日と終了日が含まれます。

XNUMXつの日付の間のすべての日付を一覧表示します

関連記事：

• ワークシート名の動的リストを作成する