如何基于订单编号单元格值，向Excel指定单元格插入公式？

可以通过VBA宏实现需求，以下提供两种实用方案：

方案1：批量处理已有订单编号的行 #

这个宏会遍历Sheet1的L列（订单编号列），仅当对应行L列单元格有值时，自动给B、C、F、G列插入指定公式：

Sub InsertFormulasForOrders()
    Dim ws1 As Worksheet
    Dim lastRow As Long
    Dim currentRow As Long
    
    Set ws1 = ThisWorkbook.Worksheets("Sheet1")
    ' 获取L列最后一行有数据的行号
    lastRow = ws1.Cells(ws1.Rows.Count, "L").End(xlUp).Row
    
    For currentRow = 1 To lastRow
        ' 检查当前行L列是否有值
        If ws1.Cells(currentRow, "L").Value <> "" Then
            ' 给B列插入公式（替换为你的实际公式）
            ws1.Cells(currentRow, "B").Formula = "=IF(ISBLANK(FILTER(Sheet2!B:B,Sheet1!C" & currentRow & "=Sheet2!A:A)),"""",FILTER(Sheet2!B:B,Sheet1!C" & currentRow & "=Sheet2!A:A))"
            ' 给C列插入公式（替换为你的C列公式）
            ws1.Cells(currentRow, "C").Formula = "=你的C列提取公式（注意将行号替换为" & currentRow & "）"
            ' 给F列插入公式（替换为你的F列公式）
            ws1.Cells(currentRow, "F").Formula = "=你的F列提取公式（注意将行号替换为" & currentRow & "）"
            ' 给G列插入公式（替换为你的G列公式）
            ws1.Cells(currentRow, "G").Formula = "=你的G列提取公式（注意将行号替换为" & currentRow & "）"
        Else
            ' 可选：如果L列无值，清空对应单元格的内容/公式
            ws1.Cells(currentRow, "B").ClearContents
            ws1.Cells(currentRow, "C").ClearContents
            ws1.Cells(currentRow, "F").ClearContents
            ws1.Cells(currentRow, "G").ClearContents
        End If
    Next currentRow
End Sub

使用步骤： #

1. 打开Excel，按下Alt+F11打开VBA编辑器
2. 在左侧工程窗口找到你的工作簿，右键选择「插入」→「模块」
3. 将上述代码粘贴到模块中，替换示例公式为你实际需要的公式
4. 按下F5运行宏，或给宏添加快捷键/工作表按钮方便后续使用

方案2：实时触发（输入订单编号时自动处理） #

如果需要在手动输入订单编号时，立即给对应行插入公式，可以用工作表事件宏：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim ws1 As Worksheet
    Set ws1 = ThisWorkbook.Worksheets("Sheet1")
    
    ' 只处理L列的单元格变更
    If Not Intersect(Target, ws1.Range("L:L")) Is Nothing Then
        Dim changedCell As Range
        For Each changedCell In Target
            If changedCell.Value <> "" Then
                ' 插入对应公式
                ws1.Cells(changedCell.Row, "B").Formula = "=IF(ISBLANK(FILTER(Sheet2!B:B,Sheet1!C" & changedCell.Row & "=Sheet2!A:A)),"""",FILTER(Sheet2!B:B,Sheet1!C" & changedCell.Row & "=Sheet2!A:A))"
                ws1.Cells(changedCell.Row, "C").Formula = "=你的C列提取公式（替换行号）"
                ws1.Cells(changedCell.Row, "F").Formula = "=你的F列提取公式（替换行号）"
                ws1.Cells(changedCell.Row, "G").Formula = "=你的G列提取公式（替换行号）"
            Else
                ' 清空对应单元格内容
                ws1.Cells(changedCell.Row, "B").ClearContents
                ws1.Cells(changedCell.Row, "C").ClearContents
                ws1.Cells(changedCell.Row, "F").ClearContents
                ws1.Cells(changedCell.Row, "G").ClearContents
            End If
        Next changedCell
    End If
End Sub

使用步骤： #

1. 打开VBA编辑器，在左侧工程窗口双击「Sheet1」打开其代码窗口
2. 将上述代码粘贴进去，替换示例公式为实际公式
3. 关闭VBA编辑器，以后在Sheet1的L列输入或删除订单编号时，对应行的B/C/F/G列会自动插入或清空公式

注意事项： #

• 公式中的双引号需要用两个连续双引号""转义，对应Excel公式里的单个双引号
• 如果你的Excel使用英文区域设置，公式中的分号;需要替换为逗号,
• 运行宏前建议备份工作表，避免意外数据丢失

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