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

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

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

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

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

1. Нажмите клавиши Alt+ F11 одновременно, чтобы открыть окно Microsoft Visual Basic for Applications .

2. В окне Microsoft Visual Basic for Applications нажмите Вставить > Модуль. Затем скопируйте и вставьте приведенный ниже код 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 «Done» — это значение ячейки, на основе которого вы будете перемещать всю строку. Вы можете изменить его по своему усмотрению.

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

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

Раскройте магию Excel с Kutools AI

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

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

Связанные статьи:

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