Jak kopírovat řádky a vložit na jiný list na základě data v aplikaci Excel?
Předpokládejme, že mám řadu dat, teď chci zkopírovat celé řádky na základě konkrétního data a poté je vložit do jiného listu. Máte nějaké dobré nápady, jak se touto prací zabývat v Excelu?
Zkopírujte řádky a vložte je do jiného listu na základě dnešního data
Zkopírujte řádky a vložte je na jiný list, pokud je datum větší než dnes
Zkopírujte řádky a vložte je do jiného listu na základě dnešního data
Pokud potřebujete zkopírovat řádky, pokud je dnes datum, použijte následující kód VBA:
1. Podržte ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.
2, klikněte Vložit > Modula vložte následující kód do okna modulu.
Kód VBA: Zkopírujte a vložte řádky na základě dnešního data:
Sub CopyRow()
'Updateby Extendoffice
Dim xRgS As Range, xRgD As Range, xCell As Range
Dim I As Long, xCol As Long, J As Long
Dim xVal As Variant
On Error Resume Next
Set xRgS = Application.InputBox("Please select the date column:", "KuTools For Excel", Selection.Address, , , , , 8)
If xRgS Is Nothing Then Exit Sub
Set xRgD = Application.InputBox("Please select a destination cell:", "KuTools For Excel", , , , , , 8)
If xRgD Is Nothing Then Exit Sub
xCol = xRgS.Rows.Count
Set xRgS = xRgS(1)
Application.CutCopyMode = False
J = 0
For I = 1 To xCol
Set xCell = xRgS.Offset(I - 1, 0)
xVal = xCell.Value
If TypeName(xVal) = "Date" And (xVal <> "") And (xVal = Date) Then
xCell.EntireRow.Copy xRgD.Offset(J, 0)
J = J + 1
End If
Next
Application.CutCopyMode = True
End Sub
3. Po vložení výše uvedeného kódu stiskněte F5 klíč ke spuštění tohoto kódu a zobrazí se výzva, která vám připomene výběr sloupce data, na který chcete kopírovat řádky, viz screenshot:
4. Pak klikněte na tlačítko OK Tlačítko, v jiném okně výzvy, vyberte buňku na jiném listu, kam chcete výsledek odeslat, viz screenshot:
5. A pak klikněte na tlačítko OK Tlačítko, nyní jsou řádky, jejichž datum je dnes vloženo do nového listu najednou, viz screenshot:
Zkopírujte řádky a vložte je na jiný list, pokud je datum větší než dnes
Chcete-li zkopírovat a vložit řádky, jejichž datum je větší nebo rovno dnešnímu dni, například pokud je datum stejné nebo větší než 5 dní od dnešního dne, zkopírujte a vložte řádky na jiný list.
Následující kód VBA vám může udělat laskavost:
1. Podržte ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.
2, klikněte Vložit > Modula vložte následující kód do okna modulu.
Kód VBA: Zkopírujte a vložte řádky, pokud je datum větší než dnes:
Sub CopyRow()
'Updateby Extentoffice
Dim xRgS As Range, xRgD As Range, xCell As Range
Dim I As Long, xCol As Long, J As Long
Dim xVal As Variant
On Error Resume Next
Set xRgS = Application.InputBox("Please select the date column:", "KuTools For Excel", Selection.Address, , , , , 8)
If xRgS Is Nothing Then Exit Sub
Set xRgD = Application.InputBox("Please select a destination cell:", "KuTools For Excel", , , , , , 8)
If xRgD Is Nothing Then Exit Sub
xCol = xRgS.Rows.Count
Set xRgS = xRgS(1)
Application.CutCopyMode = False
J = 0
For I = 1 To xCol
Set xCell = xRgS.Offset(I - 1, 0)
xVal = xCell.Value
If TypeName(xVal) = "Date" And (xVal <> "") And (xVal >= Date And (xVal < Date + 5)) Then
xCell.EntireRow.Copy xRgD.Offset(J, 0)
J = J + 1
End If
Next
Application.CutCopyMode = True
End Sub
Poznámka: Ve výše uvedeném kódu můžete změnit kritéria, například méně než dnes nebo počet dní podle potřeby v If TypeName (xVal) = "Date" And (xVal <> "") And (xVal> = Date And (xVal <Date + 5)) Then kód skriptu.
3. Pak stiskněte tlačítko F5 klíč ke spuštění tohoto kódu, v poli výzvy vyberte datový sloupec, který chcete použít, viz screenshot:
4. Pak klikněte na tlačítko OK Tlačítko, v jiném okně výzvy, vyberte buňku na jiném listu, kam chcete výsledek odeslat, viz screenshot:
5, Klepněte na tlačítko OK Tlačítko, nyní, řádky, jejichž datum je stejné nebo větší než 5 dní od dnešního dne, byly zkopírovány a vloženy do nového listu jako následující obrázek obrazovky:
Nejlepší kancelářské nástroje produktivity
Kutools pro Excel řeší většinu vašich problémů a zvyšuje vaši produktivitu o 80%
- Opakované použití: Rychle vložte složité vzorce, grafy a cokoli, co jste dříve používali; Šifrovat buňky s heslem; Vytvořte seznam adresátů a posílat e-maily ...
- Super Formula Bar (snadno upravit více řádků textu a vzorce); Rozložení pro čtení (snadno číst a upravovat velké množství buněk); Vložit do filtrovaného rozsahu...
- Sloučit buňky / řádky / sloupce bez ztráty dat; Rozdělit obsah buněk; Zkombinujte duplicitní řádky / sloupce... Zabraňte duplicitním buňkám; Porovnat rozsahy...
- Vyberte možnost Duplikovat nebo Jedinečný Řádky; Vyberte prázdné řádky (všechny buňky jsou prázdné); Super hledání a fuzzy hledání v mnoha sešitech; Náhodný výběr ...
- Přesná kopie Více buněk beze změny odkazu na vzorec; Automaticky vytvářet reference do více listů; Vložte odrážky, Zaškrtávací políčka a další ...
- Extrahujte text, Přidat text, Odebrat podle pozice, Odebrat mezeru; Vytváření a tisk mezisoučtů stránkování; Převod mezi obsahem buněk a komentáři...
- Super filtr (uložit a použít schémata filtrů na jiné listy); Rozšířené řazení podle měsíce / týdne / dne, frekvence a dalších; Speciální filtr tučnou kurzívou ...
- Kombinujte sešity a pracovní listy; Sloučit tabulky na základě klíčových sloupců; Rozdělte data do více listů; Dávkový převod xls, xlsx a PDF...
- Více než 300 výkonných funkcí. Podporuje Office / Excel 2007-2021 a 365. Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Plné funkce 30denní bezplatná zkušební verze. 60denní záruka vrácení peněz.
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!
