VBA怎样实现多条件求和统计？

gxyzwei

谢谢，我也要学习

xtz66007

这几天正在学习这个 留名 学习用

hw2166

根据工作内容的需要，我想在表里每个人员之前间隔两列以便其它之用，我刚才想自己在老师的代码上弄了一下，但实现不了，在此再次请求老师的帮忙，在现有的代码上改或新的代码都可以，谢谢

netfly168

学习了，谢谢大家分享经验

jesterz

学习了 mark 慢慢学习了

康康天下

这个好啊。。咱们工作进行统计的时候就方便多了。。谢谢！

1588078/37

如果是求和，不是求个数，怎么计算呢？

1588078/37

如果是求MVIN_QTY的和呢

adsupl

Simon_Zhu 发表于 2010-4-24 16:01
个人理解认为这种类型的问题应该是SQL的强项...

注意：你原来的附件中的数据有效性日期和数据源里 ...

你好，大神，有个问题想了很久不知道怎么实现，想请教一下您^_^ 问题如下：

ID 是子样本编号，每个子样本都两个变量abc，efg，且取值周期均为1987-2015，数据具体情况如附件所示，其中存在缺失值, 数据大体状况如下。

       1987     1988    …   2015      1987     1988   …   2015   

ID     abc        abc    ...    abc          efg         efg    ...    efg

1

2

3

…

13

以1987年为例，想实现的处理过程如下：

①  删除（或者不考虑）efg为空值的子样，也就是只考虑efg不为空值的子样本，为了方便表述将得到的新的子样集合记为“VAULE”

②  对“VAULE”中子样本的efg求中位数

③  将“VAULE”中子样本的efg取值小于中位数的抽出作为一组，将其记为“LESS”。

④  将“LESS”中各个子样的abc的数值求和，再将“VAULE”中所有子样的abc数值求和，再求二者的比值。

   计算完1987年的数据后，最好横拉单元格，实现1988-2015年该比值的批量计算。可以预见这个比值有些年份是根本无法计算的，但是即使只能得到个别年份的取值也是可以的。

泳轩

Simon_Zhu 发表于 2010-4-24 16:01
个人理解认为这种类型的问题应该是SQL的强项...

注意：你原来的附件中的数据有效性日期和数据源里 ...

受教了，MARK一下
此外，第5行代码 建议更改为如下代码，有的版本似乎支持不了可能会运行错误：
strpath = ThisWorkbook.FullName  '代码所在工作簿的完整名称
    If Application.Version < 12 Then '判断Excel版本号，以使用不同的连接字符串
       str_cnn = "Provider=Microsoft.jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=" & strpath
    Else
        str_cnn = "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & strpath
    End If
    cnn.Open str_cnn