Cum să mutați întregul rând în partea de jos a foii active pe baza valorii celulei din Excel?
Pentru a muta întregul rând în partea de jos a foii active pe baza valorii celulei din Excel, încercați codul VBA din acest articol.
Mutați întregul rând în partea de jos a foii active pe baza valorii celulei cu cod VBA
Mutați întregul rând în partea de jos a foii active pe baza valorii celulei cu cod VBA
De exemplu, după cum se arată în imaginea de mai jos, dacă o celulă din coloana C conține o anumită valoare „Terminat”, mutați întregul rând în partea de jos a foii curente. Vă rugăm să faceți următoarele.
1. presa Alt+ F11 tastele simultan pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.
2. În Microsoft Visual Basic pentru aplicații fereastră, faceți clic pe Insera > Module. Apoi copiați și lipiți codul VBA de mai jos în fereastră.
Cod VBA: Mutați întregul rând în partea de jos a foii active pe baza valorii celulei
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
notițe: În codul VBA, „Terminat ”Este valoarea celulei pe care veți muta întregul rând pe baza căruia. Îl puteți schimba după cum aveți nevoie.
3. apasă pe F5 tasta pentru a rula codul, apoi în fereastra pop-up Kutools pentru Excel caseta de dialog, selectați intervalul de coloane în care există o anumită valoare, apoi faceți clic pe OK butonul.
După ce faceți clic OK butonul, întregul rând care conține valoarea „Terminat” în coloana specificată este mutat automat în partea de jos a intervalului de date.
Articole pe aceeași temă:
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!