Sut i symud rhes gyfan i waelod y ddalen weithredol yn seiliedig ar werth celloedd yn Excel?
Ar gyfer symud rhes gyfan i waelod y ddalen weithredol yn seiliedig ar werth celloedd yn Excel, rhowch gynnig ar y cod VBA yn yr erthygl hon.
Symud rhes gyfan i waelod y ddalen weithredol yn seiliedig ar werth celloedd gyda chod VBA
Symud rhes gyfan i waelod y ddalen weithredol yn seiliedig ar werth celloedd gyda chod VBA
Er enghraifft, fel y dangosir isod y llun, os yw cell yng ngholofn C yn cynnwys gwerth penodol “Wedi'i wneud”, yna symudwch y rhes gyfan i waelod y ddalen gyfredol. Gwnewch fel a ganlyn.
1. Gwasgwch Alt+ F11 allweddi ar yr un pryd i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch Mewnosod > Modiwlau. Yna copïwch a gludwch y cod VBA isod i'r ffenestr.
Cod VBA: Symudwch y rhes gyfan i waelod y ddalen weithredol yn seiliedig ar werth y gell
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
Nodyn: Yn y cod VBA, “Wedi'i wneud”Yw gwerth y gell y byddwch chi'n symud rhes gyfan yn seiliedig arno. Gallwch ei newid yn ôl yr angen.
3. Gwasgwch y F5 allwedd i redeg y cod, yna yn y popping up Kutools ar gyfer Excel blwch deialog, dewiswch yr ystod golofn y mae'r gwerth penodol yn bodoli ynddo, yna cliciwch ar y OK botwm.
Ar ôl clicio ar y OK botwm, mae'r rhes gyfan sy'n cynnwys y gwerth "Wedi'i wneud" yn y golofn benodol yn cael ei symud i waelod yr ystod ddata yn awtomatig.
Erthyglau perthnasol:
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer
- Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
- Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
- Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!