Mac环境下宏中引用指定工作表而非活动工作表的问题

我明白你的问题了——你的代码没有明确指定工作表对象，导致VBA默认使用当前激活的工作表，自然没法正确读取Sheet2的收货记录和修改Sheet3的库存。我帮你调整代码，加上清晰的工作表引用，还优化了细节避免出错：

修改后的完整代码 #

Option Explicit

Sub AdjustInventory()
    Dim wsReceipt As Worksheet ' 收货记录工作表（Sheet2）
    Dim wsInventory As Worksheet ' 库存清单工作表（Sheet3）
    Dim receiptCell As Range ' 遍历收货记录的单元格
    Dim inventoryMatch As Range ' 库存中匹配的单元格
    
    ' 明确指定工作表，避免依赖激活的工作表
    Set wsReceipt = ThisWorkbook.Sheets("Sheet2")
    Set wsInventory = ThisWorkbook.Sheets("Sheet3")
    
    ' 遍历Sheet2中第8列（H列）的有效数据，跳过表头（Offset(1)）
    For Each receiptCell In wsReceipt.Columns(8).SpecialCells(xlCellTypeConstants).Offset(1)
        ' 跳过空单元格（防止SpecialCells可能遗漏的情况）
        If Not IsEmpty(receiptCell.Value) Then
            ' 在Sheet3的第3列（C列）查找对应的产品
            Set inventoryMatch = wsInventory.Columns(3).Find( _
                What:=receiptCell.Value, _
                LookIn:=xlValues, _
                LookAt:=xlWhole, _
                MatchCase:=False)
            
            ' 如果找到匹配项，调整库存数量
            If Not inventoryMatch Is Nothing Then
                inventoryMatch.Offset(, 1).Value = inventoryMatch.Offset(, 1).Value - receiptCell.Offset(, 1).Value
            Else
                ' 可选：如果找不到匹配项，弹出提示
                MsgBox "产品 " & receiptCell.Value & " 在库存中未找到！", vbExclamation
            End If
        End If
    Next receiptCell
    
    MsgBox "库存调整完成！", vbInformation
End Sub

关键优化点说明 #

• 明确工作表引用：用Set wsReceipt = ThisWorkbook.Sheets("Sheet2")直接绑定工作表，彻底解决“默认使用当前激活表”的问题
• 变量声明：添加Option Explicit强制变量声明，能提前发现拼写错误或未定义的变量
• 缓存Find结果：把查找结果存到inventoryMatch变量里，避免重复执行Find操作，提升效率同时防止找不到时出错
• 空值判断：增加对收货单元格空值的检查，避免无效循环
• 错误提示：找不到匹配产品时弹出提示，方便排查问题

注意事项 #

• 确保Sheet2的H列（第8列）是产品标识，I列（第9列）是收货数量
• 确保Sheet3的C列（第3列）是产品标识，D列（第4列）是库存数量，和代码逻辑对应
• 如果工作表名称不是"Sheet2"/"Sheet3"，记得修改代码里的名称

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