Comment déplacer une ligne entière vers le bas de la feuille active en fonction de la valeur de la cellule dans Excel?

Pour déplacer la ligne entière vers le bas de la feuille active en fonction de la valeur de la cellule dans Excel, essayez le code VBA dans cet article.

Déplacer la ligne entière vers le bas de la feuille active en fonction de la valeur de la cellule avec le code VBA

Déplacer la ligne entière vers le bas de la feuille active en fonction de la valeur de la cellule avec le code VBA

Par exemple, comme illustré ci-dessous, si une cellule de la colonne C contient une certaine valeur «Terminé», déplacez la ligne entière vers le bas de la feuille actuelle. Veuillez faire comme suit.

1. presse autre+ F11 touches simultanément pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2. dans le Microsoft Visual Basic pour applications fenêtre, cliquez sur insérer > Module. Ensuite, copiez et collez le code VBA ci-dessous dans la fenêtre.

Code VBA: déplacer la ligne entière vers le bas de la feuille active en fonction de la valeur de la cellule

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

Notes: Dans le code VBA, "OK»Est la valeur de la cellule sur laquelle vous déplacerez la ligne entière. Vous pouvez le modifier selon vos besoins.

3. appuie sur le F5 clé pour exécuter le code, puis dans le pop-up Kutools for Excel boîte de dialogue, sélectionnez la plage de colonnes dans laquelle se trouve la certaine valeur, puis cliquez sur le OK .

Après avoir cliqué sur le OK , la ligne entière qui contient la valeur «Terminé» dans la colonne spécifiée est automatiquement déplacée vers le bas de la plage de données.

Débloquez Excel Magic avec Kutools AI

• Exécution intelligente: effectuez des opérations sur les cellules, analysez les données et créez des graphiques, le tout piloté par des commandes simples.
• Formules personnalisées: Générez des formules sur mesure pour rationaliser vos flux de travail.
• Codage VBA: Écrivez et implémentez du code VBA sans effort.
• Interprétation de la formule: Comprendre facilement des formules complexes.
• Traduction de texte: Brisez les barrières linguistiques dans vos feuilles de calcul.

Améliorez vos capacités Excel avec des outils basés sur l'IA. Téléchargez et faites l'expérience d'une efficacité comme jamais auparavant !

Articles connexes:

• Comment déplacer une ligne entière vers une autre feuille en fonction de la valeur de la cellule dans Excel?