Come spostare l'intera riga su un altro foglio in base al valore della cella in Excel?
Per spostare l'intera riga su un altro foglio in base al valore della cella, questo articolo ti aiuterà.
Sposta l'intera riga su un altro foglio in base al valore della cella con codice VBA
Sposta l'intera riga su un altro foglio in base al valore della cella con Kutools per Excel
Sposta l'intera riga su un altro foglio in base al valore della cella con codice VBA
Come mostrato nell'immagine sottostante, è necessario spostare l'intera riga da Sheet1 a Sheet2 se esiste una parola specifica "Fatto" nella colonna C. È possibile provare il seguente codice VBA.
1. Stampa altro+ F11 tasti contemporaneamente per aprire il file Microsoft Visual Basic, Applications Edition finestra.
2. Nella finestra Microsoft Visual Basic, Applications Edition, fare clic su inserire > Moduli. Quindi copia e incolla il codice VBA sottostante 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 Sub
Note:: Nel codice, Sheet1 è il foglio di lavoro che contiene la riga che si desidera spostare. E Sheet2 è il foglio di lavoro di destinazione in cui individuare la riga. "C: C"È la colonna che contiene il determinato valore e la parola"Fatto"È il valore certo su cui sposterai la riga. Si prega di modificarli in base alle proprie esigenze.
3. premi il F5 chiave per eseguire il codice, quindi la riga che soddisfa i criteri in Sheet1 verrà spostata immediatamente in Sheet2.
Note:: Il codice VBA sopra cancellerà le righe dai dati originali dopo lo spostamento in un foglio di lavoro specificato. Se desideri copiare solo le righe in base al valore della cella invece di eliminarle. Si prega di applicare il codice VBA di seguito 2.
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 Sub
Sposta l'intera riga su un altro foglio in base al valore della cella con Kutools per Excel
Se sei un principiante nel codice VBA. Qui presento il Seleziona celle specifiche utilità di Kutools for Excel. Con questa utility, puoi selezionare facilmente tutte le righe in base a un determinato valore di cella o a diversi valori di cella in un foglio di lavoro e copiare le righe selezionate nel foglio di lavoro di destinazione di cui hai bisogno. Si prega di fare quanto segue.
Prima di applicare Kutools for Excel, Per favore scaricalo e installalo prima.
1. Selezionare l'elenco di colonne contenente il valore della cella su cui spostare le righe in base, quindi fare clic su Kutools > Seleziona > Seleziona celle specifiche. Vedi screenshot:
2. In apertura Seleziona celle specifiche finestra di dialogo, scegliere Intera riga nel Tipo di selezione sezione, selezionare Equivale nel Tipo specifico dall'elenco a discesa, immettere il valore della cella nella casella di testo e quindi fare clic su OK pulsante.
Un altro Seleziona celle specifiche la finestra di dialogo si apre per mostrare il numero di righe selezionate e, nel frattempo, tutte le righe contengono il valore specificato nella colonna selezionata sono state selezionate. Vedi screenshot:
3. premi il Ctrl + C tasti per copiare le righe selezionate, quindi incollarle nel foglio di lavoro di destinazione necessario.
Note:: Se desideri spostare le righe in un altro foglio di lavoro in base a due diversi valori di cella. Ad esempio, sposta le righe in base ai valori delle celle "Fine" o "Elaborazione", puoi abilitare il Or condizione nel Seleziona celle specifiche finestra di dialogo come mostrato nell'immagine sottostante:
Se desideri avere una prova gratuita (30 giorni) di questa utility, fare clic per scaricarlo, quindi andare ad applicare l'operazione secondo i passaggi precedenti.
Articoli correlati:
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!