Excel VBA – Многомерный массив в несмежный диапазон (с использованием объединения ячеек)

Вопрос:

Я пытаюсь взять многомерный массив и поместить его в диапазон. Но диапазон – это раскол (непересекающийся) диапазон, и мне нужно иметь возможность использовать .Cells а не стандартный .Range("A1"). Мой ниже код работает несколько, но только места в 1-м 2 экземплярах массива для каждого диапазона в Союзе.

См. Ниже:

 Dim TestArray(1 To 2, 1 To 3) As Integer
TestArray(1, 1) = 1
TestArray(2, 1) = 2
TestArray(1, 2) = 3
TestArray(2, 2) = 4
TestArray(1, 3) = 5
TestArray(2, 3) = 6

Union(Range(Cells(78, 1), Cells(79, 1)), Range(Cells(78, 4), Cells(79, 4)), _
Range(Cells(78, 6), Cells(79, 6))).Value = TestArray

Мои результаты:

A78=1
A79=2
D78=1
D79=2
F78=1
F79=2

Я хочу, чтобы мои результаты:

A78=1
A79=2
D78=3
D79=4
F78=5
F79=6

Любая помощь приветствуется!

Ответ №1

Пытаться…

 Range("A78:A79").Value = Application.Index(TestArray, 0, 1)
Range("D78:D79").Value = Application.Index(TestArray, 0, 2)
Range("F78:F79").Value = Application.Index(TestArray, 0, 3)

Надеюсь это поможет!