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

Supponiamo che io abbia un intervallo di dati, ora voglio copiare le righe intere in base a una data specifica e poi incollarle in un altro foglio. Avete qualche buona idea per gestire questo compito in Excel?

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

Copia righe e incolla in un altro foglio se la data è successiva a oggi

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

Se hai bisogno di copiare le righe se la data è oggi, applica il seguente codice VBA:

1. Tieni premuti i tasti ALT + F11 per aprire la finestra Microsoft Visual Basic for Applications.

2. Clicca su Inserisci > Modulo, e incolla il seguente codice nella finestra del Modulo.

Codice VBA: Copia e incolla 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, premi il tasto F5 per eseguire questo codice, e apparirà una finestra di dialogo per ricordarti di selezionare la colonna della data in base alla quale vuoi copiare le righe, vedi screenshot:

4. Quindi clicca sul pulsante OK, in un'altra finestra di dialogo, seleziona una cella in un altro foglio dove vuoi ottenere il risultato, vedi screenshot:

5. E poi clicca sul pulsante OK, ora, le righe con la data di oggi sono state incollate nel nuovo foglio immediatamente, vedi screenshot:

Copia righe e incolla in un altro foglio se la data è successiva a oggi

Per copiare e incollare le righe con una data successiva o uguale a oggi, ad esempio, se la data è uguale o successiva a 5 giorni da oggi, allora copia e incolla le righe in un altro foglio.

Il seguente codice VBA potrebbe esserti utile:

1. Tieni premuti i tasti ALT + F11 per aprire la finestra Microsoft Visual Basic for Applications.

2. Clicca su Inserisci > Modulo, e incolla il seguente codice nella finestra del Modulo.

Codice VBA: Copia e incolla righe se la data è successiva a 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 

Nota: Nel codice sopra, puoi modificare i criteri, come minore di oggi o il numero di giorni di cui hai bisogno nello script If TypeName(xVal) = "Date" And (xVal <> "") And (xVal >= Date And (xVal < Date + 5)) Then.

3. Quindi premi il tasto F5 per eseguire questo codice, nella finestra di dialogo, seleziona la colonna dei dati che vuoi utilizzare, vedi screenshot:

4. Quindi clicca sul pulsante OK, in un'altra finestra di dialogo, seleziona una cella in un altro foglio dove vuoi ottenere il risultato, vedi screenshot:

5. Clicca sul pulsante OK, ora, le righe con la data uguale o successiva a 5 giorni da oggi sono state copiate e incollate nel nuovo foglio come mostrato nello screenshot seguente: