老师请帮忙：根据要求统计数量

沙漠滴雨

希望用VBA动态地根据“数据”工作表的变化，统计出红框和蓝框中的结果。效果图如下：


注意：如果在“数据”工作表书目列内容为“缺少”的，表示没有书，所以统计的数量不包括它们。

例如701A包括11行，但第一行书目列内容为“缺少”,那么这一类的数量就只有10。

类似的还有——

提前感谢您的帮助。

yjh_27

参见附件。

liulang0808

Private Sub CommandButton1_Click()
    Application.ScreenUpdating = False
    Set d = CreateObject("scripting.dictionary")
    arr = Sheets(1).UsedRange
    For j = 2 To UBound(arr)
        If arr(j, 2) <> "缺少" Then
            d(Left(arr(j, 1), 4)) = d(Left(arr(j, 1), 4)) + 1
        End If
    Next j

    For j = 2 To 23
        Cells(j, "c") = d(Cells(j, "b").Value)
    Next j
    Application.ScreenUpdating = True
End Sub

liulang0808

半自动吧,具体看你需求了,可以调整的d列用公式完成

沙漠滴雨

yjh_27 发表于 2014-4-3 18:31
参见附件。

感谢老师关注与帮助，但D列内容没有生成：

沙漠滴雨

liulang0808 发表于 2014-4-3 19:45
半自动吧,具体看你需求了,可以调整的d列用公式完成

再次感谢老师！
1、能让二级列也自动生成吗？

2、希望C列不依靠B列生成，而是依据“数据”表生成。
3、不想在D列再做公式。

liulang0808

沙漠滴雨 发表于 2014-4-3 21:22
再次感谢老师！
1、能让二级列也自动生成吗？

今天太晚了,可能明天晚上有时间再看看吧
你可以判断单元格是否合并了,来考虑求和

liulang0808

或者根据单元格内字体颜色来判断求和

yjh_27

沙漠滴雨 发表于 2014-4-3 21:14
感谢老师关注与帮助，但D列内容没有生成：

附件里有公式，简单有效。

沙漠滴雨

liulang0808 发表于 2014-4-3 21:25
今天太晚了,可能明天晚上有时间再看看吧
你可以判断单元格是否合并了,来考虑求和

谢谢老师。