根据批注信息来统计

liulang0808

Sub 按钮792_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, "bp").Value) Then Cells(j, "bq") = d(Cells(j, "bp").Value)
    Next j
End Sub

liulang0808

模拟结果供参考。。。。。。。

宝玉66

liulang0808 发表于 2022-12-13 10:44
模拟结果供参考。。。。。。。

版主，谢谢您的帮助，您的代码是包含12月和11月所有出入库的批注信息，我只想要12月和11月所有出入库的特殊粉批的批注信息汇总数量。您可以在帮我看一下吗，再次感谢。

liulang0808

。。。。。。。。。。。。

宝玉66

liulang0808 发表于 2022-12-13 11:08
。。。。。。。。。。。。

谢谢版主的帮助

宝玉66

liulang0808 发表于 2022-12-13 11:08
。。。。。。。。。。。。

版主，上次您给我写了一个按批注统计的代码，我套用了一下，计算出来的结果不正确，可以帮我看一下吗，谢谢，代码如下。


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