Excel VBA计算报错：成本值与INDEX MATCH乘积运算问题求助

你的代码存在几个核心问题，导致运行报错：

• cost_2计算逻辑错误：你把VBA的WorksheetFunction调用当成字符串拼接，试图用字符串形式的公式参与数值运算，这会触发类型不匹配错误。VBA中直接调用WorksheetFunction会返回计算结果，不需要加=或包裹成字符串。
• r变量未初始化：代码中使用了r + i来定位行，但r没有被赋值，会导致Range引用出错。
• 未指定Range的父工作表：.Range前缺少工作表对象，VBA会默认使用活动工作表，容易引发引用混乱。
• 未处理匹配失败的情况：如果MATCH找不到对应值，会直接抛出运行时错误，需要添加错误处理。

修正后的代码示例 #

Sub Expense_Save4()
    Dim r As Long, i As Long
    Dim serv As Variant, qu As Variant, cost As Double
    Dim margin As Double, cost_2 As Double
    Dim targetSheet As Worksheet ' 定义目标工作表，避免活动表依赖
    
    ' 初始化起始行号，请根据你的实际需求修改
    r = 2
    ' 指定要写入数据的工作表，比如Sheet2，按需修改
    Set targetSheet = ThisWorkbook.Sheets("Sheet2")
    
    ' 遍历1-9项服务
    For i = 0 To 8
        serv = Sheet1.Range("U12").Offset(i * 6).Value
        qu = Sheet1.Range("V14").Offset(i * 6).Value
        cost = Sheet1.Range("V16").Offset(i * 6).Value
        
        ' 捕获MATCH/INDEX可能的错误，避免崩溃
        On Error Resume Next
        margin = WorksheetFunction.Index( _
            ThisWorkbook.Sheets("Products and Services Margins").Range("$B$2:$AQ$77"), _
            WorksheetFunction.Match(targetSheet.Range("E" & r + i).Value, ThisWorkbook.Sheets("Products and Services Margins").Range("$A$2:$A$77"), 0), _
            WorksheetFunction.Match(targetSheet.Range("C" & r + i).Value, ThisWorkbook.Sheets("Products and Services Margins").Range("$A$1:$AQ$1"), 0) _
        )
        ' 如果匹配失败，margin设为0（或按需调整默认值）
        If Err.Number <> 0 Then
            margin = 0
            Err.Clear
        End If
        On Error GoTo 0
        
        ' 计算最终cost_2
        cost_2 = cost * (1 + margin)
        
        ' 非空时写入数据
        If Len(serv) > 0 Or Len(qu) > 0 Then
            targetSheet.Range("E" & r + i).Value = serv
            targetSheet.Range("F" & r + i).Value = qu
            targetSheet.Range("G" & r + i).Value = cost_2
            targetSheet.Range("H" & r + i).Formula = "=F" & r + i & "*G" & r + i
        End If
    Next i
End Sub

关键修正点说明 #

1. 正确调用WorksheetFunction：直接通过WorksheetFunction.Index/Match获取边际值，返回数值类型后参与运算，不再使用字符串拼接。
2. 初始化r变量：明确设置起始行号r，根据你的实际表格结构调整数值。
3. 指定父工作表：用targetSheet变量明确要写入的工作表，同时在引用Products and Services Margins表时也指定父工作簿，避免引用歧义。
4. 错误处理：添加On Error Resume Next捕获匹配失败的情况，避免程序崩溃，同时重置错误状态。
5. 变量类型优化：明确cost、margin等变量为数值类型，减少隐式转换的潜在问题。

内容的提问来源于stack exchange，提问作者Nicolas Kalman-Serdar