Move entire rows from one table to another table

Guessed · #1 11-04-2021, 11:04 PM

I think this works one row at a time.

Code:

Sub MoveARow()
  Dim aLRow As ListRow, activeListCells As Range
  Dim iRowSel As Integer, iRowList As Integer, iSelRow As Integer
  Dim aLO As ListObject, aLO2 As ListObject
  Set aLO = ActiveWorkbook.Sheets("ForEdit").ListObjects("tForEdit")
  Set aLO2 = ActiveWorkbook.Sheets("Edited").ListObjects("tEdited")
  iRowSel = Selection.Row
  iRowList = aLO.Range.Row
  
  Set activeListCells = Intersect(aLO.DataBodyRange, Selection)
  If activeListCells Is Nothing Then
    MsgBox "List row not selected"
  Else
    iSelRow = iRowSel - iRowList
    Set aLRow = aLO.ListRows(iSelRow)
  End If
  aLO2.ListRows.Add
  aLO2.ListRows(aLO2.ListRows.Count).Range.Value = aLRow.Range.Value
  aLRow.Delete
End Sub

Marcia · #2 11-05-2021, 02:42 AM

Thank you Andrew. It works one row at a time and we have about 175,000 rows to edit, group and move to the tEdited table. Is there a way to make the code move multiple, contiguous rows?

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Deleting Blank Space between table heading and table rows	Pete Jones	Word Tables	5	01-22-2018 04:11 PM
Duplicating one or more table rows or an entire table with content controls	kevinbradley57	Word VBA	10	08-17-2017 02:13 PM
Move table cell contents from one table to another table or cell in same table	donaldadams1951	Word VBA	4	02-04-2015 03:54 PM
Is it possible to copy non-contiguous rows of a Table and paste them as a separate Table in Word?	Joey Cheung	Word Tables	1	08-12-2014 05:15 PM
Grouping table rows to prevent individual rows from breaking across pages	dennist77	Word	1	10-29-2013 11:39 PM