Private Sub Test()
Dim iTable As Range, iRowCount&, iRowOffset&
For Each iTable In Range("A:B").SpecialCells(xlConstants).Areas
iRowCount = iTable.Rows.Count
If iRowCount > 1 Then
Range("D3:E3").Offset(iRowOffset).Resize( _
iRowCount - 1).Value = iTable.Offset(1).Value
iRowOffset = iRowOffset + iRowCount - 1
End If
Next
End Sub
Собрать данные из Excel2007
не могу достать данные из одинаковых таблиц, но расположенных друг под другом, в прикреплённом файле есть модуль: он в выбирает данные, но с пустыми строками. [COLOR="Red"]в рисунке подробности вся задача![/COLOR]
заранее благодарен за все ответы интересующихся:confused:
заранее благодарен за все ответы интересующихся:confused:
разобрался сам.
В более ранних версиях можно было использовать такой вариант, причём, если таблиц, в которых наличествует только заголовок(шапка) нет, то проверку количества строк в таблице можно убрать.
Код: