работа с массивом. перенос с таблицы

[sn00p]

всем хеллоу!
подскажите, дайте линк или кода немного
нужно впихнуть всю строку в массив разом, со всеми столбцами, как сделать это?
у меня массив Dim DataArray(1 To nLastrow, 1 To nLastCol) As Variant и таблица с 10ю столбцами и соответсвтенно мне нужно к ним образаться по тем же адресам в массиве, что они на листе находятся

[IgorGO]

если все физически лежит на листе то:
Rows("XX:YY").Copy
Rows("ZZ").Insert Shift:=xlDown
где
XX - начальный номер строки из тех, что хотим вставить
YY - конечный номер строки из тех, что хотим вставить
ZZ - номер строки, перед которой надо все вствить (эта строка сместится вниз)

[sn00p]

Сообщение от IgorGO

если все физически лежит на листе то:
Rows("XX:YY").Copy
Rows("ZZ").Insert Shift:=xlDown
где
XX - начальный номер строки из тех, что хотим вставить
YY - конечный номер строки из тех, что хотим вставить
ZZ - номер строки, перед которой надо все вствить (эта строка сместится вниз)

а для чего делать смещение?
если у меня будет цикл и я хочу вставить строку с ее порядковым номером этого делать ведь необязательно?
допустим, хочу , что бы у меня 10я строка вставлялась как10..
Rows("XX:YY").Copy
Rows("ZZ").Insert
так не пойдет?

[sn00p]

может у вас ошибка в коде?
rowitem = Rows("A1:J" + Trim(Str(nLastCol))).Copy
выдает ошибку
модет надо?
rowitem = range("A1:J" + Trim(Str(nLastCol))).Copy

[sn00p]

вот такой код выдаёт ошибку
Range("A1:J" + Trim(Str(nLastrow))).Copy

DataArray(1).Insert

[IgorGO]

так не пойдет.
если хотите сохранить порядковые номера строк, то нужно выделить служебный столбец, в котором они будут храниться, обращение и поиск производить не по номеру в массиве, а по значению в служебном столбце.
Но Вы что-то усложняете, нарветесь на ситуацию, когда в служебном столбце будут две строки с одинаковыми номерами и как Вы их потом различите между собой.
Что-то намудрено здесь. Или я все неправильно понял, не осознал глубины глубин...

[sn00p]

Сообщение от IgorGO

так не пойдет.
если хотите сохранить порядковые номера строк, то нужно выделить служебный столбец, в котором они будут храниться, обращение и поиск производить не по номеру в массиве, а по значению в служебном столбце.
Но Вы что-то усложняете, нарветесь на ситуацию, когда в служебном столбце будут две строки с одинаковыми номерами и как Вы их потом различите между собой.
Что-то намудрено здесь. Или я все неправильно понял, не осознал глубины глубин...

да мне просто нужно выделить все данные на листе, запихать их в массив в том же порядке и обращаться к ним по определенным адресам, не нужен мне служебный столбец. а после обработки выполнить обратную операцию - выделить содержимое массива и вставить его на лист

[Hugo121]

Sub tt()
Dim a
a = [a1:b10]
MsgBox a(1, 1)
MsgBox a(10, 2)
[d1:e10] = a
End Sub

Содержимое массива смотрите в окне Locals.