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

Pour déplacer une ligne entière vers une autre feuille en fonction de la valeur de la cellule, cet article vous aidera.

Déplacer la ligne entière vers une autre feuille en fonction de la valeur de la cellule avec le code VBA
Déplacez la ligne entière vers une autre feuille en fonction de la valeur de la cellule avec Kutools for Excel

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

Comme illustré ci-dessous, vous devez déplacer la ligne entière de Sheet1 à Sheet2 si un mot spécifique «Done» existe dans la colonne C. Vous pouvez essayer le code VBA suivant.

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

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

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

Notes: Dans le code, Sheet1 est la feuille de calcul contient la ligne que vous souhaitez déplacer. Et Sheet2 est la feuille de calcul de destination dans laquelle vous allez localiser la ligne. "C: C"Est la colonne contient la certaine valeur, et le mot"OK»Est la certaine valeur sur laquelle vous déplacerez la ligne. Veuillez les modifier en fonction de vos besoins.

3. appuie sur le F5 pour exécuter le code, la ligne qui répond aux critères de la feuille Sheet1 sera immédiatement déplacée vers la feuille Sheet2.

Notes: Le code VBA ci-dessus supprimera les lignes des données d'origine après le déplacement vers une feuille de calcul spécifiée. Si vous souhaitez uniquement copier des lignes en fonction de la valeur de la cellule au lieu de les supprimer. Veuillez appliquer le code VBA ci-dessous 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

Déplacez la ligne entière vers une autre feuille en fonction de la valeur de la cellule avec Kutools for Excel

Si vous êtes novice en code VBA. Ici, je présente le Sélectionnez des cellules spécifiques utilité de Kutools for Excel. Avec cet utilitaire, vous pouvez facilement sélectionner toutes les lignes en fonction d'une certaine valeur de cellule ou de différentes valeurs de cellule dans une feuille de calcul, et copier les lignes sélectionnées dans la feuille de calcul de destination selon vos besoins. Veuillez faire comme suit.

1. Sélectionnez la liste de colonnes contenant la valeur de cellule sur laquelle vous déplacerez les lignes, puis cliquez sur Kutools > Choisir > Sélectionnez des cellules spécifiques. Voir la capture d'écran:

2. Dans l'ouverture Sélectionnez des cellules spécifiques boîte de dialogue, choisissez Ligne entière dans le Type de sélection section, sélectionnez Équivaut à dans le Type spécifique liste déroulante, entrez la valeur de la cellule dans la zone de texte, puis cliquez sur le bouton OK .

Une autre Sélectionnez des cellules spécifiques boîte de dialogue apparaît pour vous montrer le nombre de lignes sélectionnées, et pendant ce temps, toutes les lignes contiennent la valeur spécifiée dans la colonne sélectionnée ont été sélectionnées. Voir la capture d'écran:

3. appuie sur le Ctrl + C clés pour copier les lignes sélectionnées, puis collez-les dans la feuille de calcul de destination dont vous avez besoin.

Notes: Si vous souhaitez déplacer des lignes vers une autre feuille de calcul en fonction de deux valeurs de cellule différentes. Par exemple, pour déplacer les lignes en fonction des valeurs de cellule "Terminé" ou "Traitement", vous pouvez activer Or état dans le Sélectionnez des cellules spécifiques boîte de dialogue comme ci-dessous capture d'écran montrée:

Articles connexes:

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