Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Копия массива, VBA
 
#1
24.10.2014 15:43:45
Добрый день,

не могу разобраться никак.
хочу скопировать массив с использованием ReDim, Resize.
макрос написал, можете поправить его.
 
 
 
#2
24.10.2014 16:31:32
???
Удивление есть начало познания © Surprise me!
И да пребудет с нами сила ВПР.
 
 
 
#3
24.10.2014 16:32:04
1. цикл не правильный.
redim резервирует массив (1 to 3, 1 to 2) после чего вы идете циклом с 7 по 9
строка
Код
arr1(i, j) = arr(i, j) 
получается
arr1(1, 7) = arr(1, 7)
такого резерва нет в массиве - ошибка.
да и вообще первая строка формирует массив - redim и дальнейший цикл в данном примере лишнее.
Изменено: V - 24.10.2014 16:43:25
 
 
 
#4
24.10.2014 16:34:16
Чуть поменял код, ячейки оставил Ваши
Код
Sub mas()
Dim arr(), arr1()
    arr() = Range("A7:B9").Value
    ReDim arr1(1 To UBound(arr), 1 To 2)
    For i = 1 To UBound(arr)
        For j = 1 To 2
            arr1(i, j) = arr(i, j)
        Next
    Next
    ActiveSheet.Range("A15").Resize(UBound(arr1), 2) = arr1
End Sub
 
 
 
#5
24.10.2014 16:46:53
Спасибо ASKer_mk
 
 
 
#6
24.10.2014 16:51:20
:)
Код
Sub mas()
arr = Range(Cells(7, 1), Cells(9, 2))
Cells(15, 1).Resize(UBound(arr, 1), UBound(arr, 2)) = arr
End Sub
 
 
 
#7
24.10.2014 16:54:54
если развить тему и продолжить так: скопировать только столбцы с числами из массива, у мемя получается их копировать, но разрвыв (шаг) между ними сохраняется, как их скопировать рядом друг с другом (в столбец В и С)?
 
 
 
#8
24.10.2014 17:14:05
так?

Код
Sub mas()
Dim arr(), arr1(), M&
arr() = Range("B2:F4").Value
For j = 1 To UBound(arr1, 2) Step 3
M = M + 1
ReDim Preserve arr1(1 To UBound(arr), 1 To M)
  For i = 1 To UBound(arr)
   arr1(i, M) = arr(i, j)
  Next i
Next j
ActiveSheet.Range("B7").Resize(UBound(arr1), UBound(arr1, 2)) = arr1
End Sub
Изменено: V - 24.10.2014 17:15:16
 
 
 
#9
24.10.2014 17:34:40
не получается, пишет Subscript out of range
 
 
 
#10
24.10.2014 17:42:31
опечатка :) в 4 строке arr1 замените на arr.
 
 
 
#11
24.10.2014 17:53:28
))) тепрь type mismatch
 
 
 
#12
24.10.2014 18:21:58
V, объясните, пожалуйста смысл этой строки, а то не до конца понятен принцип действия
Код
 ActiveSheet.Range("B7").Resize(Ubound(arr1),Ubound(arr1,2))=arr1
Смысл до Ubound(arr1,2) понятен резервируется поле на листе, начиная с ячейки В7, высотой в "длинну" массива, а дальше что имеется в виду.
Спасибо.
 
 
 
#13
24.10.2014 20:51:07
шириной в ширину массива.
 
 
 
#14
24.10.2014 20:56:34
:)
Изменено: V - 24.10.2014 20:57:50
 
 
 
#15
24.10.2014 21:05:40
V,  а вас работает макрос? у меня ошибку пишет((((
 
 
 
#16
24.10.2014 21:29:08
У меня без ошибки.
 
 
 
#17
24.10.2014 22:20:47
Цитата
dima-dima пишет: а вас работает макрос?
если бы не работал то я бы файл не выкладывал.
 
 
 
Страницы: 1
Наверх