Come spostare un’intera riga in un altro foglio in base al valore di una cella in Excel?
Per spostare un’intera riga in un altro foglio in base al valore di una cella, questo articolo ti sarà di grande aiuto.
Sposta Riga intera in un altro foglio in base al valore di una cella con codice VBA
Sposta Riga intera in un altro foglio in base al valore di una cella con Kutools per Excel
Sposta Riga intera in un altro foglio in base al valore di una cella con codice VBA
Come illustrato nello screenshot seguente, devi spostare l’intera riga da Foglio1 a Foglio2 se nella colonna C è presente la parola specifica «Done». Prova il seguente codice VBA.
1. Premi contemporaneamente i tasti Alt + F11 per aprire la finestra di Microsoft Visual Basic for Applications.
2. Nella finestra di Microsoft Visual Basic for Applications, fai clic su Inserisci > Modulo. Quindi copia e incolla il seguente codice VBA nella finestra.
VBA code 1: Move entire row to another sheet based on cell value
Sub Cheezy()
'Updated by Kutools for Excel 2017/8/28
Dim xRg As Range
Dim xCell As Range
Dim I As Long
Dim J As Long
Dim K As Long
I = Worksheets("Sheet1").UsedRange.Rows.Count
J = Worksheets("Sheet2").UsedRange.Rows.Count
If J = 1 Then
If Application.WorksheetFunction.CountA(Worksheets("Sheet2").UsedRange) = 0 Then J = 0
End If
Set xRg = Worksheets("Sheet1").Range("C1:C" & I)
On Error Resume Next
Application.ScreenUpdating = False
For K = 1 To xRg.Count
If CStr(xRg(K).Value) = "Done" Then
xRg(K).EntireRow.Copy Destination:=Worksheets("Sheet2").Range("A" & J + 1)
xRg(K).EntireRow.Delete
If CStr(xRg(K).Value) = "Done" Then
K = K - 1
End If
J = J + 1
End If
Next
Application.ScreenUpdating = True
End SubNota: nel codice, Foglio1 è il foglio di lavoro che contiene la riga da spostare. Foglio2 è invece il foglio di destinazione in cui verrà posizionata la riga. «C:C» è la colonna che contiene il valore specifico, e la parola «Done» è il valore in base al quale verrà spostata la riga. Modificali in base alle tue esigenze.
3. Premi il tasto F5 per eseguire il codice: le righe che soddisfano i criteri in Foglio1 saranno immediatamente spostate in Foglio2.
Nota: il codice VBA riportato sopra elimina le righe dai dati originali dopo averle spostate in un foglio di lavoro specificato. Se invece desideri semplicemente copiare le righe in base al valore di una cella senza eliminarle, utilizza il seguente codice VBA.
VBA code 2: Copy entire row to another sheet based on cell value
Sub MoveRowBasedOnCellValue()
'Updated by Extendoffice 2017/11/10
Dim xRg As Range
Dim xCell As Range
Dim I As Long
Dim J As Long
Dim K As Long
I = Worksheets("Sheet1").UsedRange.Rows.Count
J = Worksheets("Sheet2").UsedRange.Rows.Count
If J = 1 Then
If Application.WorksheetFunction.CountA(Worksheets("Sheet2").UsedRange) = 0 Then J = 0
End If
Set xRg = Worksheets("Sheet1").Range("C1:C" & I)
On Error Resume Next
Application.ScreenUpdating = False
For K = 1 To xRg.Count
If CStr(xRg(K).Value) = "Done" Then
xRg(K).EntireRow.Copy Destination:=Worksheets("Sheet2").Range("A" & J + 1)
J = J + 1
End If
Next
Application.ScreenUpdating = True
End SubSposta Riga intera in un altro foglio in base al valore di una cella con Kutools per Excel
Se non hai familiarità con il codice VBA, ti presentiamo l’utilità Seleziona celle specifiche di Kutools per Excel. Grazie a questa funzionalità, puoi selezionare facilmente tutte le righe in base a un determinato valore di cella o a più valori all’interno di un foglio di lavoro e copiare le righe selezionate nel foglio di destinazione desiderato. Ecco come procedere.
1. Seleziona la colonna contenente il valore della cella in base al quale sposterai le righe, quindi fai clic su Kutools > Seleziona > Seleziona celle specifiche. Vedi screenshot:
2. Nella finestra di dialogo Seleziona celle specifiche visualizzata, scegli Riga intera nella sezione Seleziona tipo, seleziona Uguale nel menu a discesa Specifica tipo, inserisci il valore della cella nella casella di testo e fai clic sul pulsante OK.
Si aprirà un’altra finestra di dialogo Seleziona celle specifiche per mostrarti il numero di righe selezionate; nel frattempo, tutte le righe contenenti il valore specificato nella colonna selezionata saranno state evidenziate. Vedi screenshot:
3. Premi i tasti Ctrl+C per copiare le righe selezionate, quindi incollale nel foglio di destinazione desiderato.
Nota: se desideri spostare righe in un altro foglio di lavoro in base a due valori di cella diversi – ad esempio, spostare righe con valori «Done» o «Processing» – puoi attivare la condizione Oppurenella finestra di dialogo Seleziona celle specifichecome mostrato nello screenshot seguente:
Se desidera provare gratuitamente (30 giorni) questa utility, faccia clic qui per scaricarla, quindi segua la procedura illustrata nei passaggi sopra.
Articoli correlati:
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 oltre 300 funzionalità avanzate per aumentare la produttività e Risparmia tempo.Clicca qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab Porta l'interfaccia a schede in Office e rende il tuo lavoro molto più semplice
- 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 all’interno della stessa finestra, invece che in finestre separate.
- Aumenta la tua produttività del 50 % e risparmia centinaia di clic del mouse ogni giorno!
Tutti i componenti aggiuntivi di Kutools in un unico programma di installazione.
Kutools for Office è la suite che include componenti aggiuntivi per Excel, Word, Outlook e PowerPoint, oltre a Office Tab Pro: la soluzione ideale per i team che lavorano su diverse app di Office.
- Suite completa— componenti aggiuntivi per Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Un unico programma di installazione, una sola licenza— configurazione in pochi minuti (pronto per MSI)
- Funziona meglio insieme— produttività ottimizzata tra le app di Office
- Prova gratuita di 30 giorni con tutte le funzionalità— nessuna registrazione, nessuna carta di credito
- Miglior rapporto qualità-prezzo— risparmia rispetto all’acquisto dei singoli componenti aggiuntivi