VBA EXCEL 2010 Как присвоить значения ячеек дивпазона, не смежных ячеек, массиву / Microsoft Office

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / VBA EXCEL 2010 Как присвоить значения ячеек дивпазона, не смежных ячеек, массиву

3 сообщений из 3, страница 1 из 1

VBA EXCEL 2010 Как присвоить значения ячеек дивпазона, не смежных ячеек, массиву

#38518436

ru_efim

Гость

Точнее ситуация такая
Имеем лист с ячейками содержащими например такие данные
A B C D 1 11121314 1 21222324
Необходимо написать макрос в котором создается массив Arr(2,3) и присваиваем его элементам значение таким образом как реализовано в следующем макросе:

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.

Sub text2()
    Dim Arr() As Variant
    Dim tmpRange As Range
    
'Этот блок кода просто для целей тестирования, в исходных условиях ячейки уже заполнены.
    Range("A1") = 11
    Range("A2") = 21
    Range("B1") = 12
    Range("B2") = 22
    Range("C1") = 13
    Range("C2") = 23
    Range("D1") = 14
    Range("D2") = 24
'Конец блока кода
    
    Set tmpRange = Range("A1:B2, D1:D2")
    tmpRange.Copy
    
'А вот нижеследующих операций присвоение значений ячейкам листа и хотелось бы избежать
    Range("A4").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
'Конец блока кода

    ReDim Arr(2, 2)
    Arr() = Selection

    Selection.Clear
    Range("A1:D2").Clear
End Sub

Но хотелось бы избежать цикла при заполнении значениями элементов массива (представленный код его как раз и не имеет) , и как сказанное в комментариях выше, операций "временного" присвоение значений ячейкам листа .
В общем, додумался до следующего. Метод Range.PasteSpecial корректно обрабатывает, содержащуюся после копирования в буфере обмена, структуру. Все же попытки работы с объектом tmpRange , созданным и инициализированным в макросе, подобные выполнению следующей операции Arr() = tmpRange.value , приведут к не желаемому результату( Arr(2, 2) содержащему только два столбца "А" и "B") т.к. присваиваются только значения первой Areas и походу иначе невозможно.
Но вдруг, все таки возможно, просто я не знаю как, вопрос в том как достичь желаемого.

...

Рейтинг:

0 / 0

06.01.2014, 14:37

| Ответить | Цитировать | Написать

VBA EXCEL 2010 Как присвоить значения ячеек дивпазона, не смежных ячеек, массиву

#38518441

ru_efim

Гость

ru_efim,

Извиняюсь в коде макроса корректно изменять размерность массива так

Код: vbnet

ReDim Arr(2, 3)

Хотя, похоже, это не принципиально, можно вообще не изменять размерность.

...

Рейтинг:

0 / 0

06.01.2014, 14:42

| Ответить | Цитировать | Написать

VBA EXCEL 2010 Как присвоить значения ячеек дивпазона, не смежных ячеек, массиву

#38518684

AndreTM

Участник

Откуда: Где-то в вологодских лесах...

Сообщения: 6 316

Рейтинг: 0 / 0

Без циклов здесь - никак. Другое дело, что обработка переменных памяти - всегда намного быстрее, чем объектов. Так что можно создавать массив, считывая области объединённого диапазона; или скопировать в массив весь диапазон - а затем удалить ненужные строки/столбцы.

А, например, используя API (CopyMemory через RtlMoveMemory, примеров полно) - можно получить такое быстродействие, что мало не покажется

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.

Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)

Sub arr_del_column(ByRef Arr(), delCol As Long)
    mr% = UBound(Arr)
    mc% = UBound(Arr, 2)
    CopyMemory Arr(1, delCol), Arr(1, delCol + 1), 16 * mr * (mc - delCol)
    ReDim Preserve Arr(LBound(Arr) To mr, LBound(Arr, 2) To mc - 1)
End Sub

Sub test_del()
    Dim a()
    a = Range("A1:D3")
    arr_del_column a, 2
End Sub

Смотрим: считываем в массив диапазон A1:D3 (3 строки, 4 столбца), а затем удаляем столбец 2. И получаем масив 3х3.
Конечно, можно удалить и несколько столбцов сразу. А изменение размерности - вынести из процедуры (или встроить CopyMemory на предыдущий уровень). Или удалить строки (транспонируя исходный массив, например). etc...
P.S. 16 - это размер в байтах ячейки массива типа Variant.

...

Рейтинг:

0 / 0

06.01.2014, 18:50

| Ответить | Цитировать | Написать

3 сообщений из 3, страница 1 из 1

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?desktop=1&fid=61&tid=2174317]:	0ms
get settings:	8ms
get forum list:	15ms
check forum access:	4ms
check topic access:	4ms
track hit:	80ms
get topic data:	12ms
get forum data:	2ms
get page messages:	45ms
get tp. blocked users:	2ms
others:	330ms

total:	502ms