Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Присвоить диапозону значения из массива , без использования цикла
 
#1
19.11.2009 22:05:42
Как присвоить массиву значения из диапазона научили:  arr = Range("A1:B5").Value, а как наоборот?  
Если написать Range("A1:B5") = arr(), то все ячейки из диапазона примут значения первого элемента массива.
 
 
 
#2
19.11.2009 22:12:46
А поиграйтесь с Transpose(arr())/  
Ведь считывая строку в массив Вы получите одномерный "ВЕРТИКАЛЬНЫЙ", а хотите обратно в строку.
 
 
 
#3
19.11.2009 22:16:50
Упс, куда то понесло
 
 
 
#4
19.11.2009 22:23:13
Попробуем.
 
 
 
#5
19.11.2009 22:31:30
Да нет, промахнулся...  
arr = Range("A1:B5")  
arr(1 to 5, 1 to 2)  
 
и должен просто присваиваться диапазону. Главное что бы он был соразмерным..  
Sub fddf()  
Dim arr  
arr = Range("A1:B5").Value  
Range("A10:B14").Value = arr  
End Sub  
У меня работает и переносит
 
 
 
#6
19.11.2009 23:42:08
{quote}{login=}{date=19.11.2009 10:31}{thema=}{post}Да нет, промахнулся...  
arr = Range("A1:B5")  
arr(1 to 5, 1 to 2)  
 
и должен просто присваиваться диапазону. Главное что бы он был соразмерным..  
Sub fddf()  
Dim arr  
arr = Range("A1:B5").Value  
Range("A10:B14").Value = arr  
End Sub  
У меня работает и переносит{/post}{/quote}  
Здравствуйте!  
Уважаемый, вопрос от полного чайника: а чем отличается Ваш пример от:  
 
Sub fddf1()  
Range("A1:B5").Copy: Range("A10").PasteSpecial Paste:=xlPasteValues  
End Sub  
 
С ув. Vovan.
 
 
 
#7
09.02.2012 17:14:22
здравствуйте.  
пробую присвоить диапазону значение массива, как в этой теме.  
Так работает    
 
Sub cop()  
Dim arr(1 To 4)  
arr = Range("A1:A4")  
Range("b1:b4") = arr  
End Sub  
 
А так - нет. заполняется только первым элементом массива.  
 
Sub cop()  
Dim arr(1 To 4)  
For i = 1 To 4  
arr(i) = Cells(i, 1)  
Next  
Range("b1:b4") = arr  
End Sub  
 
Как правильно это осуществить?
 
 
 
#8
09.02.2012 17:19:30
Внимательно почитать тему.
Я сам - дурнее всякого примера! ...
 
 
 
#9
09.02.2012 17:21:33
Массив из диапазона листа (и обратно) должен быть двумерным. Даже если это один столбец листа.  
 
И кстати Ваш первый пример ТАК не работает.  
Работает вот так:  
 
Sub cop()  
Dim arr()  
arr = Range("A1:A4")  
Range("b1:b4") = arr  
End Sub
 
 
 
#10
09.02.2012 17:22:41
Sub cop()  
Dim arr(1 To 4, 1 To 1)  
For i = 1 To 4  
arr(i, 1) = Cells(i, 1)  
Next  
Range("b1:b4") = arr  
End Sub
фрилансер Excel, VBA - контакты в профиле
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг
 
 
 
#11
09.02.2012 17:46:44
спасибо)  
подошло и Transpose и двумерный массив)
 
 
 
Страницы: 1
Читают тему
Наверх