Jak przenieść cały wiersz na dół aktywnego arkusza na podstawie wartości komórki w programie Excel?
Aby przenieść cały wiersz na dół aktywnego arkusza na podstawie wartości komórki w programie Excel, wypróbuj kod VBA w tym artykule.
Przenieś cały wiersz na dół aktywnego arkusza na podstawie wartości komórki z kodem VBA
Przenieś cały wiersz na dół aktywnego arkusza na podstawie wartości komórki z kodem VBA
Na przykład, jak pokazano na poniższym zrzucie ekranu, jeśli komórka w kolumnie C zawiera określoną wartość „Gotowe”, przesuń cały wiersz na dół bieżącego arkusza. Wykonaj następujące czynności.
1. naciśnij inny+ F11 klawisze jednocześnie, aby otworzyć Microsoft Visual Basic for Applications okno.
2. w Microsoft Visual Basic for Applications okno, kliknij wstawka > Moduł. Następnie skopiuj i wklej poniższy kod VBA do okna.
Kod VBA: Przenieś cały wiersz na dół aktywnego arkusza na podstawie wartości komórki
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
Note: W kodzie VBA „Gotowe ”To wartość komórki, na podstawie której zostanie przeniesiony cały wiersz. Możesz to zmienić według potrzeb.
3. wciśnij F5 klucz do uruchomienia kodu, a następnie w wyskakującym okienku Kutools dla programu Excel W oknie dialogowym wybierz zakres kolumn, w którym istnieje określona wartość, a następnie kliknij przycisk OK przycisk.
Po kliknięciu OK przycisk, cały wiersz zawierający wartość „Gotowe” w określonej kolumnie jest automatycznie przenoszony na dół zakresu danych.
Powiązane artykuły:
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!