VBA动态插入列问题：如何在工作表指定位置重复插入列

原来的固定列号插入方案（Range("K:K").Insert）会因为之前插入的列导致后续列位置偏移，解决核心是通过动态参考点定位插入位置，以下是几种可靠的实现方式：

方法1：通过表头文本定位（最通用） #

假设你的已支出成本、已开票成本列的表头带有固定标识（比如“已支出-XX月”“已开票-XX月”），可以通过遍历表头找到每组的最后一列，再在其右侧插入新列：

Sub InsertNewMonthCols()
    Dim ws As Worksheet
    Dim lastExpenseCol As Integer, lastInvoiceCol As Integer
    Dim colCount As Integer, i As Integer
    
    Set ws = ThisWorkbook.Sheets("Cost")
    colCount = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column ' 获取第一行最后有内容的列号
    
    ' 遍历表头，找到已支出组的最后一列
    lastExpenseCol = 0
    For i = 1 To colCount
        If InStr(ws.Cells(1, i).Value, "已支出") > 0 Then
            lastExpenseCol = i
        End If
    Next i
    
    ' 遍历表头，找到已开票组的最后一列
    lastInvoiceCol = 0
    For i = 1 To colCount
        If InStr(ws.Cells(1, i).Value, "已开票") > 0 Then
            lastInvoiceCol = i
        End If
    Next i
    
    ' 在已支出组末尾右侧插列
    If lastExpenseCol > 0 Then
        ws.Columns(lastExpenseCol + 1).EntireColumn.Insert
        ' 可选：自动设置新列表头（例如下一个月份）
        ws.Cells(1, lastExpenseCol + 1).Value = "已支出-" & Format(DateAdd("m", 1, Date), "m月")
    End If
    
    ' 在已开票组末尾右侧插列
    If lastInvoiceCol > 0 Then
        ws.Columns(lastInvoiceCol + 1).EntireColumn.Insert
        ws.Cells(1, lastInvoiceCol + 1).Value = "已开票-" & Format(DateAdd("m", 1, Date), "m月")
    End If
End Sub

方法2：使用定义名称（适合固定插入规则） #

预先给需要插入的位置定义名称，代码中引用名称定位，插入后更新名称的位置：

1. 打开Excel，选中第一组月份列右侧的空白列（比如初始是L列），点击公式选项卡→定义名称，命名为ExpenseInsertPoint；
2. 同理给第二组插入位置命名为InvoiceInsertPoint；
3. 使用以下代码：

Sub InsertWithNamedRange()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Cost")
    
    ' 在已支出插入点插列
    ws.Range("ExpenseInsertPoint").EntireColumn.Insert
    ' 更新插入点名称到新的空白列（因为插入后原位置右移）
    ThisWorkbook.Names("ExpenseInsertPoint").RefersTo = _
        "=Cost!$" & Chr(64 + ws.Range("ExpenseInsertPoint").Column + 1) & ":$" & Chr(64 + ws.Range("ExpenseInsertPoint").Column + 1)
    
    ' 在已开票插入点插列
    ws.Range("InvoiceInsertPoint").EntireColumn.Insert
    ThisWorkbook.Names("InvoiceInsertPoint").RefersTo = _
        "=Cost!$" & Chr(64 + ws.Range("InvoiceInsertPoint").Column + 1) & ":$" & Chr(64 + ws.Range("InvoiceInsertPoint").Column + 1)
End Sub

方法3：基于数据区域的相对位置 #

如果你的两组月份列是连续的（比如已支出列是从某列开始的连续区域，已开票列也是连续区域），可以用End(xlToRight)找到每组的最后一列：

Sub InsertWithDataRange()
    Dim ws As Worksheet
    Dim expenseStartCol As Integer, invoiceStartCol As Integer
    
    Set ws = ThisWorkbook.Sheets("Cost")
    expenseStartCol = ws.Cells(1, "K").Column ' 假设已支出组起始列是K
    invoiceStartCol = ws.Cells(1, "O").Column ' 假设已开票组起始列是O
    
    ' 找到已支出组最后一列
    Dim lastExpenseCol As Integer
    lastExpenseCol = ws.Cells(1, expenseStartCol).End(xlToRight).Column
    ' 插入新列
    ws.Columns(lastExpenseCol + 1).EntireColumn.Insert
    
    ' 找到已开票组最后一列
    Dim lastInvoiceCol As Integer
    lastInvoiceCol = ws.Cells(1, invoiceStartCol).End(xlToRight).Column
    ws.Columns(lastInvoiceCol + 1).EntireColumn.Insert
End Sub

这种方法适合初始列位置固定，且每组内列连续无空白的场景。

内容的提问来源于stack exchange，提问作者JB1993