Как переместить всю строку в нижнюю часть активного листа на основе значения ячейки в Excel?

Чтобы переместить всю строку в нижнюю часть активного листа на основе значения ячейки в Excel, попробуйте код VBA из этой статьи.

Переместить всю строку в нижнюю часть активного листа на основе значения ячейки с кодом VBA

Переместить всю строку в нижнюю часть активного листа на основе значения ячейки с кодом VBA

Например, как показано на снимке экрана ниже, если ячейка в столбце C содержит определенное значение «Готово», переместите всю строку в конец текущего листа. Пожалуйста, сделайте следующее.

1. Нажмите другой+ F11 клавиши одновременно, чтобы открыть Microsoft Visual Basic для приложений окно.

2. в Microsoft Visual Basic для приложений окна, нажмите Вставить > Модули. Затем скопируйте и вставьте в окно приведенный ниже код VBA.

Код VBA: переместить всю строку в нижнюю часть активного листа на основе значения ячейки

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

Внимание: В коде VBA "Готово”- это значение ячейки, на основе которого вы переместите всю строку. Вы можете изменить его по своему усмотрению.

3. нажмите F5 клавишу для запуска кода, затем во всплывающем окне Kutools for Excel в диалоговом окне выберите диапазон столбцов, в котором существует определенное значение, затем щелкните значок OK .

После нажатия OK При нажатии кнопки вся строка, содержащая значение «Готово» в указанном столбце, автоматически перемещается в конец диапазона данных.

Разблокируйте магию Excel с помощью Kutools AI

• Умное исполнение: выполнение операций с ячейками, анализ данных и создание диаграмм — и все это осуществляется с помощью простых команд.
• Пользовательские формулы: Создавайте индивидуальные формулы для оптимизации рабочих процессов.
• VBA-кодирование: Пишите и внедряйте код VBA без особых усилий.
• Интерпретация формулы: Легкое понимание сложных формул.
• Перевод текста: преодолевайте языковые барьеры в своих таблицах.

Расширьте свои возможности Excel с помощью инструментов на базе искусственного интеллекта. Скачать сейчас и испытайте эффективность, как никогда раньше!

Статьи по теме:

• Как переместить всю строку на другой лист на основе значения ячейки в Excel?