代码计算不正确

宝玉66

Sub 按钮9_Click()
    arr = ActiveSheet.UsedRange
    Set d = CreateObject("scripting.dictionary")
    For j = 2 To UBound(arr)
        If InStr(arr(j, 62), "11月") > 0 Then
            d("11月黄盖粉出库") = d("11月黄盖粉出库") + Val(arr(j, 6))
        Else
            If InStr(arr(j, 62), "12月") > 0 Then
                d("12月黄盖粉出库") = d("12月黄盖粉出库") + Val(arr(j, 6))
            End If
        End If
        If InStr(arr(j, 63), "11月") > 0 Then
            d("11月黄盖粉入库") = d("11月黄盖粉入库") + Val(arr(j, 7))
        Else
            If InStr(arr(j, 63), "12月") > 0 Then
                d("12月黄盖粉入库") = d("12月黄盖粉入库") + Val(arr(j, 7))
            End If
        End If
    Next j
    For j = 3 To 10
        If d.exists(Cells(j, "br").Value) Then Cells(j, "bs") = d(Cells(j, "br").Value)
    Next j
End Sub

各位老师，帮忙看看这段代码，谢谢。

蓝桥玄霜

代码的结果没错，只是你的条件中没有把有“特殊”的去掉。

宝玉66

蓝桥玄霜 发表于 2022-12-23 16:35
代码的结果没错，只是你的条件中没有把有“特殊”的去掉。

版主您好，您昨天写的代码我测试后报错，能帮我在看一下吗，谢谢。

02761752696

宝玉66 发表于 2022-12-24 09:16
版主您好，您昨天写的代码我测试后报错，能帮我在看一下吗，谢谢。