Как переместить всю строку в нижнюю часть активного листа на основе значения ячейки в 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 for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
