Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Как вывести значения из массива в вертикальный столбец на листе?
 
#1
14.02.2012 11:59:55
Подскажите пожалуйста:  
Как вывести значения из массива в вертикальный столбец на листе?    
(В ячейки A1:A7)  
 
Имеющийся у меня вариант умеет только горизонтально выводить:  
Sub test()  
d = Split("пн,вт,ср,чт,пт,сб,вс", ",")  
[A1].Resize(1, UBound(d)+1) = d
End Sub
Работать надо не 12 часов, а головой.
 
 
 
#2
14.02.2012 12:01:29
d=application.transpose(d)
Спасибо
 
 
 
#3
14.02.2012 12:18:58
А так не проще  
Range("A1:G1").Value=Array("пн","вт","ср","чт","пт","сб","вс")  
 
Range("A1:A7").Value=Array("пн","вт","ср","чт","пт","сб","вс")
 
 
 
#4
14.02.2012 12:31:14
{quote}{login=Kuzmich}{date=14.02.2012 12:18}{thema=Re}{post}А так не проще  
Range("A1:A7").Value=Array("пн","вт","ср","чт","пт","сб","вс"){/post}{/quote}  
Так заполнит в весь диапазон первый элемент массива
Спасибо
 
 
 
#5
14.02.2012 13:07:59
Спасибо большое!    
Помогло :)
Работать надо не 12 часов, а головой.
 
 
 
#6
14.02.2012 13:36:04
...R Dmitry  
До этого пользовался только горизонтальным заполнением,  
ну и подумал, что для вертикального аналогично, но ошибся.
 
 
 
#7
14.02.2012 14:03:14
Range("A1:G1").Value = Array("пн", "вт", "ср", "чт", "пт", "сб", "вс")  
 
Range("A1:A7").Value = Application.Transpose(Array("пн", "вт", "ср", "чт", "пт", "сб", "вс"))
 
 
 
#8
14.02.2012 15:11:59
Leanna, а насколько большой массив?  
Application.Transpose имеет ограничение в количестве обрабатываемых элементов 65536 (или около того). Поэтому Вы можете неожиданно получить не тот результат...  
Может быть придется в цикле переложить из массива в массив, а только потом выгружать на лист:)
 
 
 
#9
14.02.2012 15:26:08
[A1:A7]=[{"пн";"вт";"ср";"чт";"пт";"сб";"вс"}]
 
 
 
Страницы: 1
Читают тему
Loading...