Як перерахувати всі дати між двома датами в Excel?
У деяких випадках, якщо у вас є конкретна дата початку та дата закінчення, можливо, вам доведеться перерахувати всі дати між цими двома датами в Excel. Тепер у цьому підручнику йдеться про методи перерахування всіх дат між двома датами в Excel.
Перелічіть усі дати між двома датами за формулами
Перелічіть усі дати між двома датами за VBA
Список усіх дат між двома датами за допомогою Kutools для Excel
Перелічіть усі дати між двома датами за формулами
Тут я представляю формули, які можуть швидко перерахувати всі дати між двома датами для вас в Excel.
1. Введіть дати початку та закінчення у дві клітинки, тут я введу їх у клітинки A1 та A2. Дивіться знімок екрана:
2. Потім перейдіть до комірки C1, щоб набрати цю формулу = А1 + 1 в неї, а потім натисніть
Що натомість? Створіть віртуальну версію себе у
ключ. Дивіться знімок екрана:
3. Потім у комірку С2 введіть цю формулу =IF($A$1+ROW(A1)>=$A$2-1,"",C1+1) в неї, а потім перетягніть маркер автозаповнення до комірок, поки не з’явиться порожня комірка. Дивіться скріншоти:
Тоді ви зможете побачити всі дати між двома датами, зазначеними у стовпці.
Примітка:
У наведених формулах A1 - дата початку, A2 - дата закінчення, а C1 - перша дата серед діапазону дат.
Перелічіть усі дати між двома датами за VBA
Якщо вас цікавить макрокод, ви можете скористатися наведеним нижче VBA, щоб перерахувати всі дати між двома датами в Excel.
1. Введіть дату початку та дату закінчення у дві клітинки, тут я набираю клітинки A1 та B1. Дивіться знімок екрана:
2. прес Alt + F11 клавіші, щоб відкрити Microsoft Visual Basic для додатків вікна.
3 Потім натисніть Insert > Модулі і скопіюйте та вставте нижче код 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. клацання прогін or F5 щоб запустити VBA, з’явиться діалогове вікно для вибору дати початку, а потім натисніть OK, потім виберіть дату закінчення у другому діалоговому вікні. Дивіться знімок екрана:
5. клацання OK, потім виділіть комірку, щоб дати дати, а потім натисніть OK. Тепер ви можете бачити, як перелічені всі дати між двома датами. Дивіться скріншоти:
примітки: Список, створений цим VBA, включає дату початку та дату закінчення.
Список усіх дат між двома датами за допомогою Kutools для Excel
Власне, якщо ви встановили Kutools для Excel - зручний інструмент додавання, ви також можете використовувати Вставити випадкові дані вирішити цю проблему.
Kutools для Excel, з більш ніж 300 зручні функції Excel, підвищують ефективність роботи та економить робочий час. | ||
після безкоштовна установка Kutools для Excel, виконайте наведені нижче дії.
1. Виберіть стовпець, в якому потрібно перерахувати дати між двома датами, та натисніть Кутулс > Insert > Вставити випадкові дані. Дивіться знімок екрана:
2. Потім у Вставити випадкові дані діалог, клацніть Дата , а потім виберіть дату початку та закінчення з Від та To список, потім не забудьте перевірити Робочий день, Уїк-енд та Унікальні цінності прапорці. Дивіться знімок екрана:
3. клацання Ok щоб закрити діалогове вікно та інше Kutools для Excel відкриється діалогове вікно, просто натисніть Так. Тоді ви зможете побачити перелічені дати між датою початку та датою закінчення. Дивіться скріншоти:
4. Тепер вам потрібно відсортувати список дат у потрібному вам порядку. Клацніть дані > Сортувати від найстарішого до нового. Потім ви можете побачити дати, відсортовані від найдавнішої до найновішої дати. Дивіться скріншоти:
з Вставити випадкові дані Ви також можете вставити випадкове ціле число, випадковий рядок та випадковий час тощо. Натисніть тут, щоб дізнатись більше про вставку випадкових даних.
Перелічіть усі дати між двома датами
Відносні статті:
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!