Come spostare l'intera riga nella parte inferiore del foglio attivo in base al valore della cella in Excel?
Per spostare l'intera riga nella parte inferiore del foglio attivo in base al valore della cella in Excel, prova il codice VBA in questo articolo.
Sposta l'intera riga nella parte inferiore del foglio attivo in base al valore della cella con codice VBA
Ad esempio, come mostrato nell'immagine sottostante, se una cella nella colonna C contiene un determinato valore "Fatto", sposta l'intera riga in fondo al foglio corrente. Si prega di fare quanto segue.
1. Stampa altro+ F11 tasti contemporaneamente per aprire il file Microsoft Visual Basic, Applications Edition finestra.
2. Nel Microsoft Visual Basic, Applications Edition finestra, fare clic inserire > Moduli. Quindi copia e incolla il codice VBA sottostante nella finestra.
Codice VBA: sposta l'intera riga in fondo al foglio 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
Note:: Nel codice VBA, "Fatto"È il valore della cella su cui sposterai l'intera riga. Puoi cambiarlo quando ti serve.
3. premi il F5 chiave per eseguire il codice, quindi nel pop-up Kutools for Excel finestra di dialogo, selezionare l'intervallo di colonne in cui esiste un determinato valore, quindi fare clic su OK pulsante.
Dopo aver cliccato il OK , l'intera riga che contiene il valore "Fatto" nella colonna specificata viene spostata automaticamente in fondo all'intervallo di dati.
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!