Jak vypsat všechna data mezi dvěma daty v aplikaci Excel?
V některých případech, pokud máte konkrétní počáteční a konečné datum, možná budete muset uvést všechna data mezi těmito dvěma danými daty v aplikaci Excel. Nyní tento tutoriál hovoří o metodách pro výpis všech dat mezi dvěma daty v aplikaci Excel.
Seznam všech dat mezi dvěma daty podle vzorců
Seznam všech dat mezi dvěma daty podle VBA
Seznam všech dat mezi dvěma daty podle Kutools pro Excel 
Seznam všech dat mezi dvěma daty podle vzorců
Zde představuji vzorce, které pro vás mohou rychle vypsat všechna data mezi dvěma danými daty v aplikaci Excel.
1. Zadejte počáteční a koncové datum do dvou buněk, zde je zadávám do buněk A1 a A2. Viz snímek obrazovky:
2. Poté přejděte do buňky C1 a zadejte tento vzorec = A1 + 1 do něj a poté klikněte vstoupit klíč. Viz snímek obrazovky:
3. Do buňky C2 zadejte tento vzorec =IF($A$1+ROW(A1)>=$A$2-1,"",C1+1) do ní, potom táhněte úchyt automatického vyplňování dolů do buněk, dokud se neobjeví prázdná buňka. Zobrazit snímky obrazovky:
Pak můžete vidět, že ve sloupci jsou uvedena všechna data mezi dvěma danými daty.
Poznámka:
Ve výše uvedených vzorcích je A1 počáteční datum, A2 je koncové datum a C1 je první datum v období.
Seznam všech dat mezi dvěma daty podle VBA
Pokud vás zajímá kód makra, můžete pomocí níže uvedeného VBA vypsat všechna data mezi dvěma danými daty v aplikaci Excel.
1. Zadejte počáteční a koncové datum do dvou buněk, zde zadávám buňky A1 a B1. Viz snímek obrazovky:
2. lis Alt + F11 klíče k otevření Microsoft Visual Basic pro aplikace okno.
3. Pak klikněte na tlačítko Vložit > Modul a zkopírujte a vložte pod kód VBA do praskání Modul okno.
VBA: Seznam všech dat mezi dvěma daty.
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. cvaknutí Běh or F5 spusťte VBA a objeví se dialogové okno, kde můžete vybrat počáteční datum a poté kliknout OK, pak ve druhém vyskakovacím dialogovém okně vyberte datum ukončení. Viz snímek obrazovky:
5. cvaknutí OK, poté vyberte buňku, z níž budou data, a poté klikněte OK. Nyní můžete zobrazit všechna data mezi dvěma daty. Zobrazit snímky obrazovky:
Poznámka: Seznam vygenerovaný tímto VBA obsahuje počáteční a konečné datum.
Seznam všech dat mezi dvěma daty podle Kutools pro Excel
Vlastně, pokud jste nainstalovali Kutools pro Excel - šikovný nástroj pro přidání, můžete také použít Vložte náhodná data k vyřešení tohoto problému.
| Kutools pro Excel, s více než 300 užitečné funkce aplikace Excel, zvýší vaši efektivitu práce a ušetří váš pracovní čas. | ||
Po instalace zdarma Kutools pro Excel, prosím, postupujte takto:
1. Vyberte sloupec, ve kterém chcete vypsat data mezi dvěma daty, a klikněte na Kutools > Vložit > Vložte náhodná data. Viz snímek obrazovky:
2. Pak v Vložte náhodná data dialog, klepněte na tlačítko Datum Na kartě vyberte počáteční a konečné datum z od a To seznam, pak nezapomeňte zkontrolovat Pracovní den, Víkend a Unikátní hodnoty zaškrtávací políčka. Viz snímek obrazovky:
3. cvaknutí Ok zavřete dialogové okno a další Kutools pro Excel objeví se dialogové okno, stačí kliknout Ano. Pak můžete vidět, že jsou uvedena data mezi počátečním a konečným datem. Zobrazit snímky obrazovky:
4. Nyní musíte seznam dat seřadit v pořadí, které potřebujete. Klepněte na Data > Řazení od nejstarších po nejnovější. Pak uvidíte, že data jsou řazena od nejstaršího po nejnovější datum. Zobrazit snímky obrazovky:
S Vložte náhodná data nástroj, můžete také vložit náhodné celé číslo, náhodný řetězec a náhodný čas atd. Kliknutím sem získáte další informace o vložení náhodných dat.
Uveďte všechna data mezi dvěma daty
Relativní články:
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
