VBA Обновление заголовков таблицы из списка

У меня есть таблица, содержащая список имен.

Я хотел бы обновить дополнительную таблицу, чтобы иметь заголовки, соответствующие этому списку имен (начиная со столбца 2).

Пример, если мой исходный список содержал a,b,c. Я хотел бы, чтобы в моей вторичной таблице были заголовки столбцов «пусто», a, b, c

    With Range("Original Table[Names]")
        Range("Secondary Table").HeaderRowRange.Value = .Value
    End With

Вышеприведенное дает мне ошибки, однако я не могу понять, как это решить

Наверное нужно Application.Transpose здесь.

— 22.03.2022 18:09

Я пытался сделать это разными способами, но все равно получаю ошибки

— 22.03.2022 18:12

Кроме того, у вас не может быть пустого заголовка таблицы.

— 22.03.2022 18:13

excel vba

22.03.2022 18:07

Преобразование HTML-таблицы в профессиональный документ Excel

Это самый простой способ создания Excel из HTML-таблицы.

Импорт excel в laravel в базу данных

Здравствуйте, дорогой читатель, в этой статье я расскажу практическим и быстрым способом, как импортировать файл Excel в вашу базу данных с помощью...

Перейти к ответу Данный вопрос помечен как решенный

Ответы 1

Ответ принят как подходящий

Используйте Transpose и Resize.

With Range("Original Table[Names]")
    Range("Secondary Table").HeaderRowRange.Cells(2).Resize(,.Rows.Count).Value = Application.Transpose(.Value)
End With

Возможно, это личное предпочтение, но я бы работал с ListObjects здесь:

Dim origTable As ListObject
Set origTable = ThisWorkbook.Worksheets("insertname").ListObjects("Original Table")

Dim secTable As ListObject
Set secTable = ThisWorkbook.Worksheets("insertname").ListObjects("Secondary Table")

With origTable.ListColumns("Names").DataBodyRange
    secTable.HeaderRowRange.Cells(2).Resize(,.Rows.Count).Value = Application.Transpose(.Value)
End With

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

22.03.2022 18:13