Как вывести все даты, находящиеся между двумя заданными датами, в Excel?
В некоторых случаях, если у вас есть конкретные Дата начала и Конечная дата, может потребоваться вывести все даты между этими двумя заданными датами в Excel. В этом руководстве рассматриваются методы вывода всех дат между двумя датами в Excel.
Вывод всех дат между двумя датами с помощью формул
Вывод всех дат между двумя датами с помощью Kutools для 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 для Excel
На самом деле, если вы установили Kutools для Excel — удобное надстройка-расширение, вы также можете воспользоваться функцией Вставить случайные данные для решения этой задачи.
После бесплатной установкиKutools для Excel выполните следующие действия:
1. Выберите столбец, в который нужно вывести даты между двумя заданными датами, и последовательно щёлкните: Kutools > Вставить > Вставить случайные данные. См. снимок экрана:
2. Затем в диалоговом окне Вставить случайные данные перейдите на вкладку Дата, выберите начальную и конечную дату в полях От и До, а также обязательно установите флажки Рабочие дни, Выходные и Уникальные значения. См. снимок экрана:
3. Нажмите кнопку ОК, чтобы закрыть диалоговое окно. После этого появится ещё одно диалоговое окно Kutools для Excel — просто нажмите кнопку Да. Теперь вы увидите, что даты между «Дата начала» и «Конечная дата» отобразились. См. снимки экрана:
4. Теперь отсортируйте список дат в нужном порядке. Щёлкните: Данные > Сортировка от старых к новым. После этого даты автоматически расположатся от самой старой к самой новой. См. снимки экрана:
С помощью утилиты Вставить случайные данные можно вставлять не только случайные целые числа, но и случайные строки, случайное время и многое другое.Щелкните здесь, чтобы узнать больше о «Вставить случайные данные».
Вывод всех дат между двумя датами с помощью VBA
Если вас интересует макрокод, воспользуйтесь приведённым ниже кодом VBA, чтобы вывести в Excel все даты между двумя заданными.
1. Введите дату начала и конечную дату в две ячейки — в данном примере они размещены в ячейках A1 и B1. См. снимок экрана:
2. Нажмите клавиши Alt + F11, чтобы открыть окно Microsoft Visual Basic для приложений.
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 Sub4. Щёлкните Выполнить или нажмите F5, чтобы запустить код VBA. Появится диалоговое окно для выбора даты начала — нажмите кнопку ОК. Затем во втором диалоговом окне выберите конечную дату. См. снимок экрана:
5. Нажмите кнопку ОК, выберите ячейку для вывода дат и снова нажмите кнопку ОК. Теперь вы увидите, что все даты между двумя указанными датами успешно выведены. См. снимки экрана:
Примечание: Список, созданный этим кодом VBA, включает дату начала и конечную дату.
Вывод всех дат между двумя датами
Смежные статьи:
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек