Note: The other languages of the website are Google-translated. Back to English
Mewngofnodi  \/ 
x
or
x
Cofrestru  \/ 
x

or

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:


Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na 300 o nodweddion pwerus. Yn cefnogi Swyddfa / Excel 2007-2019 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a 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!
gwaelod officetab
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Kandice · 3 months ago
    I have a list with check boxes that when one column is checked I need it to go to one section of the spreadsheet and if the other is checked instead it goes to the end.  I have tried a hundred diff ways to do this can anyone help with this?
  • To post as a guest, your comment is unpublished.
    Brett Meehan · 6 months ago
    Hi Crystal,

    Thanks for you help, the code works great but rather than move the row to the bottom of a page how to I move it to another tab i.e. a "Closed" tab?
  • To post as a guest, your comment is unpublished.
    VikasExcelinExcel · 7 months ago
    How do it if "Done" is only a part of a column string. Suppose my Columns contains value like - XYZDone, ABCDone, 123Done etc, can I just filter out based on partial string "Done"?
  • To post as a guest, your comment is unpublished.
    jasnoke · 11 months ago
    Hello, I have a task my boss has given me. It seemed simple enough at first but now I am confused as how to proceed. We have a Forecast sheet of the possible jobs and they have a "Order Probability" column by %. He wants me to set up 3 different sheets with 100-70%, 69%-41, and 40-0%. The idea is that as the information is typed inot the master sheet, when the percentage is entered in, it automatically gets copied into the proceeding sheet matching that percentile rage. I did this with a simple IF(and formula. However i need to sort inorder to loose the empty cells and make it look cleaner. Then when i sort , if i add a new Oder Probability offer to the master sheet, it does not automatically show it, without unsorting then sorting again. I apologize if this question does not belong her. But is there a string of code i could put in that would handle this issue easier? The only value that determines if the whole row gets moved is the K column. seems simple, but however complex for this excel beginner. Thanks in advance for your help.
  • To post as a guest, your comment is unpublished.
    awiesner7482 · 1 years ago
    Hello,

    I am having issues using the code provided and keep receiving a syntax error. I am super new to excel and have been trying to self teach what I need to run my home business. I have an inventory spreadsheet id like to be able to designate items in a column as RETIRED? yes/no and if yes, they move to the bottom of the sheet, in alphabetical order, without leaving a blank space in the main spread sheet. we have items retire completely and then come back for a special re-release in limited quantities and id like these items stored at the bottom of my sheet until they become available again. Thank you.
  • To post as a guest, your comment is unpublished.
    Jerel · 1 years ago
    What if you only need to move rows under Column A and B; then Column C should retain? should we still use EntireRow?
    • To post as a guest, your comment is unpublished.
      crystal · 1 years ago
      Hi Jerel,
      Try the below code. Hope I can help.

      Sub MoveToEnd()
      'Updated by Extendoffice 20200717
      Dim xRg As Range
      Dim xTxt As String
      Dim xCell As Range
      Dim xEndRow As Long
      Dim xIntR As Integer
      Dim I As Long
      Dim xWs As Worksheet
      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
      xWs = xRg.Worksheet
      xWs.Activate
      Application.ScreenUpdating = False
      For I = xRg.Rows.Count To 1 Step -1
      If xRg.Item(I) = "Done" Then
      Rows(xEndRow).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
      xIntR = xRg.Cells(I).Row
      Range("A" & xIntR & ":B" & xIntR).Select
      Selection.Cut
      Range("A" & xEndRow).Select
      ActiveSheet.Paste
      xEndRow = xEndRow + 1

      End If
      Next
      Application.ScreenUpdating = True
      End Sub
  • To post as a guest, your comment is unpublished.
    sarah · 2 years ago
    hello crystal the code u gave to anon to have the vba run code automatically is great but i cant insert a sheet of rows is there a possible way to fix it
    • To post as a guest, your comment is unpublished.
      crystal · 1 years ago
      Hi sarah,
      Sorry for the inconvenience. Please try the below VBA. Thanks.

      Private Sub Worksheet_Change(ByVal Target As Range)
      'Updated by Extendoffice 20200424
      Dim xRg As Range
      Dim xIRg As Range
      Dim xTxt As String
      Dim xCell As Range
      Dim xEndRow As Long
      Dim I As Long
      Dim xDStr As String
      On Error GoTo Err1
      xDStr = "C:C"
      Set xRg = Me.Range(xDStr)
      Set xIRg = Application.Intersect(Target, xRg)
      If xIRg Is Nothing Then Exit Sub
      Application.ScreenUpdating = False
      Application.EnableEvents = False

      If Target.Value = "Done" Then
      'xEndRow = ActiveSheet.UsedRange.Rows.Count + 1
      xEndRow = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1
      Target.EntireRow.Cut
      Rows(xEndRow).Insert Shift:=xlDown
      End If
      Err1:
      Application.EnableEvents = True
      Application.ScreenUpdating = True
      End Sub
      • To post as a guest, your comment is unpublished.
        Michael · 5 months ago
        I tried to copy this code but it continues to say invalid use of Me.
  • To post as a guest, your comment is unpublished.
    Anon · 2 years ago
    Hello, the only way I can get this to work is if I "run" the macro in the Visual Basic sub screen. Is it possible to have this VBA code run automatically, once the user types in "Done"? Each time I'm getting the Kutools for Excel dialog box pop up to ask the parameters I'm requesting the code to search by. I have sort of worked around this by replacing : xTxt = ActiveSheet.UsedRange.AddressLocal with the parameters I need searched and hitting enter. But it would be more convenient if it automatically made the changes after "Done" was entered. Thank you!
    • To post as a guest, your comment is unpublished.
      crystal · 2 years ago
      Hi Anon,
      The below VBA code can do you a favor. Please have a try.
      Please right click the sheet tab (the sheet contains the data you will move to bottom), select View Code from the context menu and copy the below code into the Code window.

      Private Sub Worksheet_Change(ByVal Target As Range)
      'Updated by Extendoffice 20190925
      Dim xRg As Range
      Dim xIRg As Range
      Dim xTxt As String
      Dim xCell As Range
      Dim xEndRow As Long
      Dim I As Long
      Dim xDStr As String
      On Error Resume Next
      xDStr = "C:C"
      Set xRg = Me.Range(xDStr)
      Set xIRg = Application.Intersect(Target, xRg)
      If xIRg Is Nothing Then Exit Sub
      Application.ScreenUpdating = False
      Application.EnableEvents = False

      If Target = "Done" Then
      xEndRow = ActiveSheet.UsedRange.Rows.Count + 1
      Target.EntireRow.Cut
      Rows(xEndRow).Insert Shift:=xlDown
      End If
      Application.EnableEvents = True
      Application.ScreenUpdating = True
      End Sub
      • To post as a guest, your comment is unpublished.
        tbsinc · 2 years ago
        Hi crystal,

        Thank you for posting this code. I would like to know how to get the code to move the row back to the top if Done was typed in error. Could a secondary code be added for "move" to move it to the top, and "done" for the bottom?
  • To post as a guest, your comment is unpublished.
    Tammy · 2 years ago
    Hello, is there a way to tweak this so that it moves a row somewhere else in the same sheet besides the end? I have a sheet that has order information for dated orders and upcoming orders yet to be dated and I have it so that when I put an "X" in column A things highlight and bold depending on part #'s and shipping locations. Now I have to physically cut and paste the newly dated (shipping date) so that it fits in at the top sorted by date (1st thru end of month). I have been able to conditional format everything up to this point, but I don't think I can move rows that way. I was wondering if VBA could do this, move a row when a date is entered to fit in with the other dated rows?
  • To post as a guest, your comment is unpublished.
    hendrix56 · 3 years ago
    Hello. This is almost perfect for what I want. I have part of the same request as Anon had to make this work without user input along with some extras.

    I am wondering if it is possible to have the only column searched to be i4 to i50 and have it automatically run at open or anytime the i column is edited. Also if it would be possible to move the rows to the bottom of the sheet without any blank rows between "done" rows and "no" rows. Currently if I select i4:i50 and if I only have data up to row 25 it will paste the "done" rows ascending from row 50 instead of row 25. The number of rows in my sheet is constantly changing and shouldn't get to more than 50. Thanks for the help.
    • To post as a guest, your comment is unpublished.
      crystal · 2 years ago
      Hi Brandon,
      Sorry can help you with that. Thank you for your comment.
  • To post as a guest, your comment is unpublished.
    Mags · 3 years ago
    Hi Crystal, this code works great, thank you. I would like move all the rows which contain word "Complete" in column D to the top of the table (insert in row 3). Is that possible? then I would like to delete all these complete rows which contain "yesterday date" in column V.
  • To post as a guest, your comment is unpublished.
    Anon · 3 years ago
    How could I make it so the kutools selects specific rows without user input?
    • To post as a guest, your comment is unpublished.
      crystal · 3 years ago
      Hi Anon,
      I am sorry, I'm not sure what you mean. Would be nice if you can explain it again or provide a screenshot to show what you are trying to do .
      Thanks for your comment.