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 Kutools pro Excel

Seznam všech dat mezi dvěma daty podle VBA

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 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.

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 si To seznam, pak nezapomeňte zkontrolovat Pracovní den, Víkend si 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.

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 Sub

4. 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:

Pozor: Seznam vygenerovaný tímto VBA obsahuje počáteční a konečné datum.

Uveďte všechna data mezi dvěma daty

Relativní články:

• Vytvořte dynamický seznam názvů listů