如何在左侧新增列时自动填充指定单元格公式？

方法1：利用Excel表格（结构化引用） #

• 选中包含B1、B2的目标数据区域，按下Ctrl+T，根据提示勾选“我的表格有标题”（如果数据带表头），把区域转换为表格。
• 在表格第二行对应列输入公式=[@[对应列名]]+180（比如原B1所在列叫“基准值”，就写=[@基准值]+180；也可以直接用相对引用=A2+180，表格会自动识别列间的相对关系）。
• 后续在该列左侧新增列时，表格会自动扩展，新列的第二行将自动套用同逻辑的公式，无需手动输入。

方法2：VBA事件宏（精准触发） #

如果需要严格匹配=B1+180的公式，可通过工作表事件实现：

1. 按下Alt+F11打开VBA编辑器。
2. 在左侧项目栏找到目标工作表（比如Sheet1），双击打开代码窗口。
3. 粘贴以下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim insertCol As Integer
    insertCol = 2 ' 目标列是B列（列号2）
    ' 判断是否为插入列操作，且新列是B列
    If Target.Columns.Count = Columns.Count And Cells(2, insertCol).Value = "" Then
        ' 给新B2单元格设置公式
        Cells(2, insertCol).Formula = "=B1+180"
    End If
End Sub

4. 将文件另存为.xlsm格式（启用宏的工作簿），之后在B列左侧插入列时，新B2会自动填充指定公式。

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