У меня есть таблица с одним столбцом, который должен равномерно заполняться именами каждое утро.Исторически функция автозаполнения Excel была способна удовлетворить эту потребность, но поскольку использование этого листа расширяется для других пользователей, я стремлюсь сделать этот шаг безошибочным.Я хотел бы, чтобы столбец E (более 500 пустых строк) в таблице 2 был заполнен данными из столбца A (приблизительно 15 имен) в таблице 1 в последовательном порядке.
Sub TableTransfer()
Dim myArray() As Variant
Dim myTable As ListObject
Dim cell As Range
Dim x As Long
Set myTable = ActiveSheet.ListObjects("Table1")
TempArray = myTable.DataBodyRange
myArray = Application.Transpose(TempArray)
Set otherTable = ActiveSheet.ListObjects("Table2")
Range(otherTable) = myArray
For x = LBound(myArray) To UBound(myArray)
Next x
End Sub
Приведенный выше код использует только первую строку таблицы в таблице 1, но мне нужно, чтобы он прошел по всем строкам таблицы в таблице 1 и перенес их во все пустые строки таблицы 2.