Напишите несколько несмежных ячеек одновременно - PullRequest
0 голосов
/ 28 апреля 2020

Мне может понадобиться помощь для решения простой проблемы: я хочу писать в различных несмежных ячейках, используя однострочный код. Цель состоит в том, чтобы написать 1 раз N ячеек вместо N раз 1 ячейки, чтобы go быстрее.

Я знаю, что использование смежных ячеек в данном диапазоне работает, но я не хочу писать в каждом столбцы одной строки.

Это код, который я пишу, но не получаю то, что хочу:

Dim myRange As Range
arr = Array(1, 2, 3)
Set myRange = Union(Cells(2, 1), Cells(2, 3))
myRange = arr 

Результат этого кода

enter image description here

Я хочу, чтобы вторые ячейки моего диапазона (1,3) получали второе значение моего массива (2), а не первое или третье.

Что я хочу

enter image description here

Есть ли решение? Или мне придется шаг за шагом писать в каждой ячейке:

Cells(1,1)=arr(0)
cells(1,2)=arr(1)
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...