VBA多条件的统计数量汇总

zax010

jnsday 发表于 2017-3-26 12:36
就是想统计，B列，不带底色的数据，带底色的跳过，不加入数组
添加这个之后，报错424，要求对象
If ar ...

看完新传附件，才知又没搞对，再试：

        If ar(i, 8) <> "" And Sheet2.Cells(i, 8).Interior.ColorIndex = xlNone Then d(ar(i, 2) & ar(i, 3) & ar(i, 8)) = d(ar(i, 2) & ar(i, 3) & ar(i, 8)) + 1

jnsday

zax010 发表于 2017-3-26 13:06
连我都整迷了，应该是

If Sheet2.Cells(i, 8).Interior.ColorIndex = 0   Then

万分感谢~~
改成
If Sheet2.Cells(i, 2).Interior.ColorIndex = xlNone Then
之后 完美运作，加上后续的整合 总算是统计完成了。。

zax010

jnsday 发表于 2017-3-26 13:19
万分感谢~~
改成
If Sheet2.Cells(i, 2).Interior.ColorIndex = xlNone Then

因为要在工作表上频繁读写，代码前部加
    Application.ScreenUpdating = False
结束前加
    Application.ScreenUpdating = True
可明显提高运行速度。