Come spostare l'intera riga in fondo al foglio di lavoro attivo in base al valore della cella in Excel?

Per spostare l'intera riga in fondo al foglio di lavoro attivo in base al valore della cella in Excel, prova il codice VBA presente in questo articolo.

Sposta l'intera riga in fondo al foglio di lavoro attivo in base al valore della cella con il codice VBA

Sposta l'intera riga in fondo al foglio di lavoro attivo in base al valore della cella con il codice VBA

Ad esempio, come mostrato nello screenshot sottostante, se una cella nella colonna C contiene un certo valore “Completato”, allora sposta l'intera riga in fondo al foglio corrente. Procedi come segue.

1. Premi contemporaneamente i tasti Alt+ F11 per aprire la finestra Microsoft Visual Basic for Applications .

2. Nella finestra Microsoft Visual Basic for Applications, clicca su Inserisci > Modulo. Poi copia e incolla il seguente codice VBA nella finestra.

Codice VBA: Sposta l'intera riga in fondo al foglio di lavoro attivo in base al valore della cella

Sub MoveToEnd()
    Dim xRg As Range
    Dim xTxt As String
    Dim xCell As Range
    Dim xEndRow As Long
    Dim I As Long
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
lOne:
    Set xRg = Application.InputBox("Select range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If xRg.Columns.Count > 1 Or xRg.Areas.Count > 1 Then
        MsgBox " Multiple ranges or columns have been selected ", vbInformation, "Kutools for Excel"
        GoTo lOne
    End If
    xEndRow = xRg.Rows.Count + xRg.Row
    Application.ScreenUpdating = False
    For I = xRg.Rows.Count To 1 Step -1
        If xRg.Cells(I) = "Done" Then
           xRg.Cells(I).EntireRow.Cut
           Rows(xEndRow).Insert Shift:=xlDown
        End If
    Next
    Application.ScreenUpdating = True
End Sub

Nota: Nel codice VBA, “Completato” è il valore della cella in base al quale verrà spostata l'intera riga. Puoi modificarlo secondo necessità.

3. Premi il tasto F5 per eseguire il codice, quindi nella finestra di dialogo Kutools for Excel che appare, seleziona l'intervallo di colonne in cui esiste il valore specifico, poi clicca sul pulsante OK.

Dopo aver cliccato sul pulsante OK, l'intera riga che contiene il valore “Completato” nella colonna specificata viene automaticamente spostata in fondo all'intervallo dati.

Sblocca la Magia di Excel con Kutools AI

• Esecuzione Intelligente: Esegui operazioni sulle celle, analizza i dati e crea grafici — tutto guidato da semplici comandi.
• Formule Personalizzate: Genera formule su misura per ottimizzare i tuoi flussi di lavoro.
• Codifica VBA: Scrivi e implementa codice VBA senza sforzo.
• Interpretazione delle Formule: Comprendi facilmente formule complesse.
• Traduzione del Testo: Superare le barriere linguistiche all'interno dei tuoi fogli di calcolo.

Potenzia le tue capacità di Excel con strumenti alimentati dall'IA. Scarica Ora ed esperisci un'efficienza mai vista prima!

Articoli correlati:

• Come spostare l'intera riga in un altro foglio in base al valore della cella in Excel?