Як перемістити весь рядок до нижньої частини активного аркуша на основі значення комірки в Excel?
Для переміщення цілого рядка внизу активного аркуша на основі значення комірки в Excel, спробуйте код VBA у цій статті.
Перемістіть цілий рядок унизу активного аркуша на основі значення комірки з кодом VBA
Перемістіть цілий рядок унизу активного аркуша на основі значення комірки з кодом VBA
Наприклад, як показано на знімку екрана нижче, якщо клітинка в стовпці C містить певне значення “Готово”, перемістіть весь рядок у нижню частину поточного аркуша. Будь ласка, виконайте наступне.
1. прес інший+ F11 клавіші одночасно, щоб відкрити Microsoft Visual Basic для додатків вікна.
2 В Microsoft Visual Basic для додатків вікна, натисніть Insert > Модулі. Потім скопіюйте та вставте наведений нижче код 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 для Excel діалоговому вікні, виберіть діапазон стовпців, у якому існує певне значення, а потім клацніть на OK кнопки.
Після натискання OK Кнопка, весь рядок, що містить значення "Готово" у зазначеному стовпці, автоматично переміщується в нижню частину діапазону даних.
Статті по темі:
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!