Come copiare righe e incollare su un altro foglio in base alla data in Excel? 

Supponendo, ho un intervallo di dati, ora, voglio copiare le intere righe in base a una data specifica e quindi incollarle in un altro foglio. Hai qualche buona idea per affrontare questo lavoro in Excel?

Copia le righe e incolla su un altro foglio in base alla data odierna

Copia le righe e incolla su un altro foglio se la data è maggiore di quella odierna

Copia le righe e incolla su un altro foglio in base alla data odierna

Se è necessario copiare le righe se la data è oggi, applicare il seguente codice VBA:

1. Tieni premuto il ALT + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.

2. Clic inserire > Modulie incolla il codice seguente nella finestra del modulo.

Codice VBA: copia e incolla le righe in base alla data odierna:

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. Dopo aver incollato il codice sopra, premere F5 chiave per eseguire questo codice e verrà visualizzata una finestra di messaggio per ricordarti di selezionare la colonna della data su cui desideri copiare le righe, vedi screenshot:

4. Quindi fare clic OK pulsante, in un'altra finestra di messaggio, seleziona una cella in un altro foglio in cui desideri visualizzare il risultato, vedi screenshot:

5. E poi clicca OK pulsante, ora, le righe la cui data è oggi vengono incollate nel nuovo foglio contemporaneamente, vedi screenshot:

Copia le righe e incolla su un altro foglio se la data è maggiore di quella odierna

Per copiare e incollare le righe la cui data è maggiore o uguale a oggi, ad esempio, se la data è uguale o maggiore di 5 giorni da oggi, quindi copia e incolla le righe su un altro foglio.

Il seguente codice VBA potrebbe farti un favore:

1. Tieni premuto il ALT + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.

2. Clic inserire > Modulie incolla il codice seguente nella finestra del modulo.

Codice VBA: copia e incolla le righe se la data è maggiore di oggi:

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

Note:: Nel codice sopra, puoi cambiare i criteri, come meno di oggi o il numero di giorni di cui hai bisogno nel file If TypeName (xVal) = "Date" And (xVal <> "") And (xVal> = Date And (xVal <Date + 5)) Allora codice di script.

3. Quindi premere F5 chiave per eseguire questo codice, nella casella del messaggio, selezionare la colonna di dati che si desidera utilizzare, vedere screenshot:

4. Quindi fare clic OK pulsante, in un'altra finestra di messaggio, seleziona una cella in un altro foglio in cui desideri visualizzare il risultato, vedi screenshot:

5. Clicca il OK pulsante, ora, le righe la cui data è uguale o maggiore di 5 giorni da oggi sono state copiate e incollate nel nuovo foglio come mostrato nella seguente schermata: