Jak přesunout celý řádek na jiný list na základě hodnoty buňky v aplikaci Excel?

Tento článek vám pomůže při přesunutí celého řádku na jiný list na základě hodnoty buňky.

Přesuňte celý řádek na jiný list na základě hodnoty buňky pomocí kódu VBA
Přesuňte celý řádek na jiný list na základě hodnoty buňky pomocí Kutools pro Excel

Přesuňte celý řádek na jiný list na základě hodnoty buňky pomocí kódu VBA

Jak je ukázáno na níže uvedeném snímku obrazovky, je třeba přesunout celý řádek z Listu1 do Listu2, pokud ve sloupci C existuje konkrétní slovo „Hotovo“. Můžete vyzkoušet následující kód VBA.

1. lis Další+ F11 současně otevřete Microsoft Visual Basic pro aplikace okno.

2. V okně Microsoft Visual Basic pro aplikace klepněte na Vložit > Modul. Poté zkopírujte a vložte níže uvedený kód VBA do okna.

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

Pozor: V kódu, Sheet1 je list obsahující řádek, který chcete přesunout. A Sheet2 je cílový list, do kterého řádek najdete. "C: C„Je sloupec obsahující určitou hodnotu a slovo„Hotovo„Je určitá hodnota, na základě které přesunete řádek. Změňte je prosím podle svých potřeb.

3. zmáčkni F5 klíč ke spuštění kódu, poté bude řádek, který splňuje kritéria v Listu1, okamžitě přesunut do Listu2.

Pozor: Výše ​​uvedený kód VBA odstraní řádky z původních dat po přesunutí do zadaného listu. Pokud chcete pouze kopírovat řádky na základě hodnoty buňky místo jejich mazání. Použijte níže uvedený kód VBA 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

Přesuňte celý řádek na jiný list na základě hodnoty buňky pomocí Kutools pro Excel

Pokud jste nováček v kódu VBA. Zde představuji Vyberte konkrétní buňky užitečnost Kutools pro Excel. Pomocí tohoto nástroje můžete snadno vybrat všechny řádky na základě určité hodnoty buňky nebo různých hodnot buňky v listu a zkopírovat vybrané řádky do cílového listu podle potřeby. Postupujte prosím následovně.

1. Vyberte seznam sloupců obsahujících hodnotu buňky, podle které budete přesouvat řádky, a poté klikněte Kutools > vybrat > Vyberte konkrétní buňky. Viz snímek obrazovky:

2. V otvoru Vyberte konkrétní buňky dialogové okno vyberte Celá řada v Typ výběru vyberte část rovná v Specifický typ rozevíracího seznamu, zadejte hodnotu buňky do textového pole a poté klikněte na OK .

Další Vyberte konkrétní buňky Zobrazí se dialogové okno, které vám ukáže počet vybraných řádků a mezitím byly vybrány všechny řádky obsahující zadanou hodnotu ve vybraném sloupci. Viz snímek obrazovky:

3. zmáčkni Ctrl + C klávesy zkopírujte vybrané řádky a poté je vložte do požadovaného cílového listu.

Pozor: Pokud chcete přesunout řádky do jiného listu na základě dvou různých hodnot buněk. Například můžete přesouvat řádky na základě hodnot buněk „Hotovo“ nebo „Zpracování“, můžete povolit Or stav v Vyberte konkrétní buňky zobrazeno dialogové okno níže:

Související články:

• Jak přesunout celý řádek do spodní části aktivního listu na základě hodnoty buňky v aplikaci Excel?