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

Pokud chcete přesunout celý řádek do spodní části aktivního listu na základě hodnoty buňky v aplikaci Excel, vyzkoušejte kód VBA v tomto článku.

Přesuňte celý řádek do spodní části aktivního listu na základě hodnoty buňky s kódem VBA

Přesuňte celý řádek do spodní části aktivního listu na základě hodnoty buňky s kódem VBA

Například, jak je ukázáno níže, snímek obrazovky, pokud buňka ve sloupci C obsahuje určitou hodnotu „Hotovo“, pak přesuňte celý řádek do dolní části aktuálního listu. Postupujte prosím následovně.

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

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

Kód VBA: Přesunout celý řádek na spodní část aktivního listu na základě hodnoty buňky

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

Pozor: V kódu VBA, „Hotovo„Je hodnota buňky, podle které přesunete celý řádek. Můžete to změnit podle potřeby.

3. zmáčkni F5 klíč ke spuštění kódu, pak v vyskakovacím okně Kutools pro Excel V dialogovém okně vyberte rozsah sloupců, ve kterých existuje určitá hodnota, a klikněte na OK .

Po kliknutí na tlačítko OK tlačítko, celý řádek, který v zadaném sloupci obsahuje hodnotu „Hotovo“, se automaticky přesune do spodní části rozsahu dat.

Odemkněte Excel Magic pomocí Kutools AI

• Chytré provedení: Provádějte operace s buňkami, analyzujte data a vytvářejte grafy – to vše pomocí jednoduchých příkazů.
• Vlastní vzorce: Vytvářejte přizpůsobené vzorce pro zefektivnění vašich pracovních postupů.
• Kódování VBA: Napište a implementujte kód VBA bez námahy.
• Výklad vzorce: Snadno porozumíte složitým vzorcům.
• Překlad textu: Prolomte jazykové bariéry ve svých tabulkách.

Vylepšete své možnosti aplikace Excel pomocí nástrojů založených na umělé inteligenci. Stáhnout nyní a zažijte efektivitu jako nikdy předtím!

Související články:

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