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:
I migliori strumenti per la produttività in ufficio
Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Fai clic qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
- Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!