Только первая переменная из массива вставляется в диапазон ячеек

Question

Я пытаюсь скопировать массив меток в диапазон ячеек, однако только первая переменная копируется в диапазон. В этом случае все ячейки B4:B17 устанавливаются как «Количество свойств». Я прикрепил свой код ниже. Спасибо.

'Format and Set Values for Labels
Dim labels As Range
Set labels = Sheet1.Range(r.Offset(RowOffset:=2).Address & ":" & _
        r.Offset(RowOffset:=15).Address)

labels.Interior.ColorIndex = 0
labels.Font.ColorIndex = 0
labels.Font.Bold = True
labels.HorizontalAlignment = xlLeft
labels.NumberFormat = "General"

labels.Value = Array("Number of Properties", "", "", "Name", "Address", "City/State", _
            "Purchase Date", "Holding Period", "", "Units", "Rentable SF", _
            "Avg SF Per Unit", "Parking Spaces", "Parking Ratio")

Answer 1

Используйте Application.Transpose как это

labels.Value = Application.Transpose(Array("Number of Properties", "", "", "Name", "Address", "City/State", _
            "Purchase Date", "Holding Period", "", "Units", "Rentable SF", _
            "Avg SF Per Unit", "Parking Spaces", "Parking Ratio"))

И вы можете использовать переменные для более легкого использования позже, если это необходимо

Dim x
x = Array("Number of Properties", "", "", "Name", "Address", "City/State", _
            "Purchase Date", "Holding Period", "", "Units", "Rentable SF", _
            "Avg SF Per Unit", "Parking Spaces", "Parking Ratio")
labels.Value = Application.Transpose(x)