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:
I migliori strumenti per la produttività in Office
Potenzia le tue competenze in Excel con Kutools per Excel e sperimenta un'efficienza mai vista prima. Kutools per Excel offre oltre300 funzionalità avanzate per aumentare la produttività e farti risparmiare tempo. Clicca qui per ottenere la funzione di cui hai più bisogno...
Office Tab porta le schede su Office e rende il tuo lavoro molto più semplice
- Abilita la modifica e lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra invece che in nuove finestre.
- Aumenta la produttività del50% e riduce centinaia di clic del mouse ogni giorno!
Tutti gli add-in Kutools. Un solo programma di installazione
La suite Kutools for Office include add-in per Excel, Word, Outlook & PowerPoint più Office Tab Pro, ideale per i team che lavorano su più app di Office.
- Suite tutto-in-uno — Add-in per Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Un solo programma di installazione, una sola licenza — configurazione in pochi minuti (pronto per MSI)
- Funzionano meglio insieme — produttività ottimizzata su tutte le app Office
- Prova completa30 giorni — nessuna registrazione, nessuna carta di credito
- Massimo risparmio — costa meno rispetto all’acquisto singolo degli add-in