Excel宏开发需求：填写任意两列自动计算第三列数值

嘿，我刚好有个完美的解决方案给你！这个VBA宏会自动检测你在Qnty In pack、packs Qnty、Total Qnty三列中输入的任意两列数据，实时计算并填充缺失的那一列，完全符合你的需求👇

宏代码实现 #

直接把这段代码粘贴到你的工作表代码窗口里就行：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim qtyInPackCol As Integer, packsQtyCol As Integer, totalQtyCol As Integer
    Dim ws As Worksheet
    Set ws = Target.Worksheet
    
    ' 根据表头名称定位三列（不用硬编码列号，更灵活）
    On Error Resume Next
    qtyInPackCol = ws.Rows(1).Find("Qnty In pack", LookIn:=xlValues, LookAt:=xlWhole).Column
    packsQtyCol = ws.Rows(1).Find("packs Qnty", LookIn:=xlValues, LookAt:=xlWhole).Column
    totalQtyCol = ws.Rows(1).Find("Total Qnty", LookIn:=xlValues, LookAt:=xlWhole).Column
    On Error GoTo 0
    
    ' 如果找不到任意一列的表头，直接退出
    If qtyInPackCol = 0 Or packsQtyCol = 0 Or totalQtyCol = 0 Then Exit Sub
    
    ' 只处理这三列的单元格变化
    If Not Intersect(Target, ws.Columns(qtyInPackCol)) Is Nothing Or _
       Not Intersect(Target, ws.Columns(packsQtyCol)) Is Nothing Or _
       Not Intersect(Target, ws.Columns(totalQtyCol)) Is Nothing Then
    
        Application.EnableEvents = False ' 防止循环触发Change事件，避免卡顿
        
        Dim cell As Range
        For Each cell In Target
            Dim rowNum As Integer
            rowNum = cell.Row
            If rowNum = 1 Then Exit For ' 跳过表头行，不处理标题
            
            Dim qtyInPack As Double, packsQty As Double, totalQty As Double
            qtyInPack = ws.Cells(rowNum, qtyInPackCol).Value
            packsQty = ws.Cells(rowNum, packsQtyCol).Value
            totalQty = ws.Cells(rowNum, totalQtyCol).Value
            
            ' 三种计算逻辑，只在缺失列为空时自动填充
            ' 1. 已知单包数量和包数，计算总数量
            If qtyInPack <> 0 And packsQty <> 0 And totalQty = 0 Then
                ws.Cells(rowNum, totalQtyCol).Value = qtyInPack * packsQty
            ' 2. 已知总数量和包数，计算单包数量
            ElseIf totalQty <> 0 And packsQty <> 0 And qtyInPack = 0 Then
                If packsQty <> 0 Then ' 避免除以0报错
                    ws.Cells(rowNum, qtyInPackCol).Value = totalQty / packsQty
                End If
            ' 3. 已知总数量和单包数量，计算包数
            ElseIf qtyInPack <> 0 And totalQty <> 0 And packsQty = 0 Then
                If qtyInPack <> 0 Then ' 避免除以0报错
                    ws.Cells(rowNum, packsQtyCol).Value = totalQty / qtyInPack
                End If
            End If
        Next cell
        
        Application.EnableEvents = True ' 恢复事件触发
    End If
End Sub

快速上手步骤 #

• 打开你的Excel文件，按下Alt + F11打开VBA编辑器
• 在左侧项目窗口里找到你要应用宏的工作表（比如Sheet1），双击它
• 把上面的代码粘贴到右侧的空白代码窗口中
• 回到Excel，将文件保存为**启用宏的工作簿（.xlsm）**格式（普通.xlsx不支持宏）
• 现在测试一下：在任意行的两列输入数值，第三列会自动弹出计算结果！

实用注意事项 #

• 确保你的表头和代码里的完全一致：Qnty In pack、packs Qnty、Total Qnty，如果表头有修改，记得同步修改代码里的查找字符串
• 代码默认表头在第一行，如果你的表头在其他行，把rowNum = 1改成对应的行号就行
• 只有当缺失的那一列为空时，宏才会自动填充，如果你手动修改了第三列的值，宏不会覆盖它
• 处理了除以0的情况，避免出现#DIV/0!错误

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