Вставить массив текста в последнюю строку

Question

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

Вот мой код:

 sub Headers()

    Dim last_row As Long 
    Dim Header() As Variant
    Header = VBA.Array("koko", "momo", "dodo", "gogo")

    last_row = Cells(Rows.Count, "B").End(xlUp).Row + 1
    ActiveSheet.Cells(last_row, "A").Value = Header

End Sub

введите описание изображения здесь

Answer 1

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

ActiveSheet.Cells(last_row, "A").Resize(1, Ubound(header)+1).Value = Header

Чтобы поместить массив в несколько строк в одном столбце, измените размер целевого объекта и транспонируйте массив.

ActiveSheet.Cells(last_row, "A").Resize(Ubound(header)+1, 1).Value = application.transpose(Header)

Чтобы поместить массивв одну ячейку, присоединиться к массиву.

ActiveSheet.Cells(last_row, "A").Value = Join(Header, ", ")

Answer 2

Вы должны изменить размер целевого диапазона, чтобы получить полное содержимое массива

ActiveSheet.Cells(last_row, "A").Resize(1, UBound(Header) + 1).Value = Header

: -)