VBA - вставка переменного количества столбцов в определенном месте таблицы

Question

Мне нужна помощь, чтобы вставить переменное количество столбцов в таблицу с помощью VBA.Пока что у меня есть:

Private Sub copy_data(filename As String)
    disable_updates

    If Not filename = "False" Then
        Set dest_workbook = ActiveWorkbook
        Set src_workbook = Workbooks.Open(filename, True, True)

        test = copy_sheet_with_links(src_workbook.Worksheets("Main"), dest_workbook.Worksheets("Reference"), 0, 0)
        test = copy_sheet_with_links(src_workbook.Worksheets("PMP"), dest_workbook.Worksheets("PMP"), 1, 1)

        src_workbook.Close False
        Set src_workbook = Nothing

        dest_workbook.RefreshAll
        dest_workbook.Worksheets("PMP").Select
    End If

    enable_updates
End Sub

Количество вставляемых столбцов находится в ячейке B19 на листе «Справочник».Столбцы должны быть вставлены в таблицу с именем PMPTable на листе «PMP».

Answer 1

Вы не упомянули, где примерно в вашем PMP-листе хотите добавить новые столбцы ... однако, предполагая, что он начинается со столбца C, я бы сделал что-то вроде этого:

Назначьте количествостолбцы для переменной

Dim nrCols As Long
nrCols = dest_workbook.Sheets("Reference").Range("B19").Value

Измените диапазон, начиная с столбца C, со значения nrCols и вставьте столбцы.

With src_workbook.Sheets("PMP")
    .Range("C:C").Resize(, nrCols).EntireColumn.Insert
End With