Как да изброя всички дати между две дати в Excel?
В някои случаи, ако имате конкретна начална и крайна дата, може да се наложи да посочите всички дати между тези две дадени дати в Excel. Сега този урок говори за методите за изброяване на всички дати между две дати в Excel.
Избройте всички дати между две дати по формули
Избройте всички дати между две дати по VBA
Избройте всички дати между две дати от Kutools за Excel
Избройте всички дати между две дати по формули
Тук въвеждам формули, които могат бързо да изброят всички дати между две дадени дати за вас в Excel.
1. Въведете началната и крайната дата в две клетки, тук ги въвеждам в клетка A1 и A2. Вижте екранна снимка:
2. След това отидете в клетка C1, за да въведете тази формула =A1+1 в него, след което щракнете Въведете ключ. Вижте екранна снимка:
3. След това в клетка C2 въведете тази формула =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. След това кликнете Поставете > Модули и копирайте и поставете под 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. Изберете колона, в която искате да изброите дати между две дати, и щракнете Kutools > Поставете > Вмъкване на произволни данни. Вижте екранна снимка:
2. След това в Вмъкване на произволни данни кликнете върху Дата раздела, след което изберете началната и крайната дата от от намлява To списък, тогава не забравяйте да проверите работен ден, През уикенда намлява Уникални ценности квадратчета за отметка. Вижте екранна снимка:
3. кликване Ok за затваряне на диалоговия прозорец и друг Kutools за Excel изскача диалогов прозорец, просто щракнете Да. След това можете да видите датите между началната и крайната дата са изброени. Вижте екранни снимки:
4. Сега трябва да сортирате списъка с дати в реда, от който се нуждаете. Кликнете Дата > Сортиране от най-старите към най-новите. След това можете да видите, че датите са сортирани от най-старата до най-новата дата. Вижте екранни снимки:
с Вмъкване на произволни данни помощна програма, можете също така да вмъкнете произволно цяло число, произволен низ и произволно време и т.н. Щракнете тук, за да научите повече за Вмъкване на произволни данни.
Избройте всички дати между две дати
Относителни статии:
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!