Домашняя страница Undo Do Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Готовые решения

МЕНЮ САЙТА
  • 1
  • 2
  • 3

КАТЕГОРИИ РАЗДЕЛА

ОПРОСЫ
Какой версией Excel Вы пользуетесь?
Всего ответов: 35650
Главная » Готовые решения » VBA » Полезные приёмы

Как получить часть массива
15.08.2015, 14:38
[ Файл-пример (17.3Kb) ]
Sub test1()
Dim x: x = Range("A1:E20").Value
'извлекаем только один столбец (3-й)
Range("M1").Resize(UBound(x)).Value = Application.Index(x, 0, 3)
End Sub
Sub test2()
Dim x: x = Range("A1:E20").Value
'извлекаем только одну строку (10-ю)
Range("G10").Resize(, UBound(x, 2)).Value = Application.Index(x, 10, 0)
'или часть строки (столбцы 3, 4, 5)
Range("G11").Resize(, 3).Value = Application.Index(x, 10, [{3,4,5}])
End Sub
Sub test3()
Dim x, y()
x = Range("A1:E20").Value
ReDim y(1 To 2, 1 To 4)
'извлекаем строки с 3 по 8, столбцы со 2 по 4
With Application
 y() = .Index(x, [Row(3:8)], .Transpose([Row(2:4)]))
End With
Range("G1").Resize(UBound(y), UBound(y, 2)).Value = y()
End Sub
Добавил: nilem | | Теги: получить часть маасива, массивы, часть массива
Просмотров: 765 | Рейтинг: 5.0/1
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Яндекс цитирования
© 2010-2016 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!