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ší 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!