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中。这些列将被插入到"PMP“工作表上名为PMPTable的表中。

Answer 1

你没有提到在你的PMP表中的什么地方想要添加新的列...但是，假设从C列开始，我会这样做：

将列数分配给变量

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

使用nrCols值调整从C列开始的范围的大小，然后插入列。

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