如何在VBA循环中为活动工作表插入带表头的可变列？

原代码问题分析 #

你的代码之所以只在首尾列显示列名，核心问题是列名赋值的位置和插入列的位置不匹配：

• 每次循环都在第2列插入新列，但你用Cells(1, i)赋值时，i从1到4会指向第1、2、3、4列
• 当i≥3时，新插入的列始终在第2列位置，而你却给已经被挤到后面的列赋值，导致新插入的中间列没有正确设置列名

修正方案1：逐列插入并即时赋值 #

每次插入列后，直接给当前的第2列（新插入的列）设置列名，确保每一列都能正确获取名称：

Sub AddColumns()
    Dim i As Long
    
    ' 循环插入4列，每列插入后立即设置列名
    For i = 1 To 4
        Columns(2).EntireColumn.Insert
        ' 新列始终在第2列位置，直接赋值
        Cells(1, 2) = "Level " & i
    Next i
End Sub

修正方案2：批量插入+批量赋值（更高效） #

如果需要插入大量列，建议一次性插入所有列，再批量设置列名，减少工作表操作的开销：

Sub AddColumns_Batch()
    Dim insertCount As Long
    insertCount = 4 ' 可修改为需要插入的列数
    
    ' 一次性在第2列位置插入指定数量的列
    Columns(2).Resize(ColumnSize:=insertCount).EntireColumn.Insert
    
    ' 批量给新插入的列设置列名
    Range(Cells(1, 2), Cells(1, 2 + insertCount - 1)).Value = _
        Application.Transpose(Evaluate("""Level ""&ROW(1:" & insertCount & ")"))
End Sub

可变列数版本（支持自定义插入数量） #

如果需要灵活指定插入的列数，可以添加输入框让用户自定义：

Sub AddColumns_Variable()
    Dim insertCount As Long
    
    ' 获取用户输入的列数，默认4列
    insertCount = InputBox("请输入要插入的列数:", "设置插入数量", 4)
    ' 输入无效（小于1）则退出程序
    If insertCount < 1 Then Exit Sub
    
    ' 批量插入列
    Columns(2).Resize(ColumnSize:=insertCount).EntireColumn.Insert
    
    ' 批量设置列名
    Range(Cells(1, 2), Cells(1, 2 + insertCount - 1)).Value = _
        Application.Transpose(Evaluate("""Level ""&ROW(1:" & insertCount & ")"))
End Sub

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