[已解决]求助，公式精简或修改函数

cdnyrg

求多工作表同一区域条件计数，请大师帮忙修改或精简一下，谢谢！
=COUNTIF(I4:I23,2013)+COUNTIF('(2)'!I4:I23,2013)+COUNTIF('(3)'!I4:I23,2013)+COUNTIF('3-2'!I4:I23,2013)+COUNTIF('4-1(1)'!I4:I23,2013)+COUNTIF('4-2(1)'!I4:I23,2013)+COUNTIF('4-1(2)'!I4:I23,2013)+COUNTIF('4-3'!I4:I23,2013)+COUNTIF('(5)'!I4:I23,2013)+COUNTIF('(6)'!I4:I23,2013)+COUNTIF('(7)'!I4:I23,2013)+COUNTIF('(8)'!I4:I23,2013)+COUNTIF('9-1(1)'!I4:I23,2013)+COUNTIF('9-1(2)'!I4:I23,2013)+COUNTIF('9-2 (1)'!I4:I23,2013)+COUNTIF('9-2 (2)'!I4:I23,2013)+COUNTIF('9-3'!I4:I23,2013)+COUNTIF('(10)'!I4:I23,2013)

最佳答案

月排行榜 / 总排行榜

E路人

2013-11-30 10:08

cdnyrg 发表于 2013-11-28 16:28
求怎么设置？不懂

1. Function Xcount(x As Integer)
   
2.     Dim i As Integer, n As Integer, m As Integer
   
3.     Application.Volatile
   
4.     For i = 1 To Sheets.Count
   
5.         n = Application.CountIf(Sheets(i).Range("I2:I100"), x)
   
6.         m = m + n
   
7.     Next i
   
8.     Xcount = m
   
9. End Function
   

复制代码

跳转到最佳答案楼层

zhp3

我弄了一个笨办法
1、先选定需要汇总的工作表，你这里是所有的表，所以选定所有的工作表，一次性输入下面的公式，分别得到每个工作表的汇总数:

1. =COUNTIF(I4:I23,2013)

复制代码

2、在H3单元格输入公式，对每个表的汇总数据在求和

1. =SUM('(1):(10)'!I1)

复制代码

张三.zip (15.73 KB, 下载次数: 2)

2013-11-27 11:18 上传

点击文件名下载附件

E路人

张三.rar (19.73 KB, 下载次数: 8)

2013-11-27 11:36 上传

点击文件名下载附件

E路人

zhyoucheng

E路人 发表于 2013-11-27 11:40

你的帖子"RE: 求助，公式精简或修改函数"下载后无法显示，我是个新手想了解xcount函数的用法，求帮忙发一下xcount函数的用法。（网上没有xcount的用法）

cdnyrg

E路人 发表于 2013-11-27 11:40

求怎么设置？不懂

E路人

cdnyrg 发表于 2013-11-28 16:28
求怎么设置？不懂

1. Function Xcount(x As Integer)
   
2.     Dim i As Integer, n As Integer, m As Integer
   
3.     Application.Volatile
   
4.     For i = 1 To Sheets.Count
   
5.         n = Application.CountIf(Sheets(i).Range("I2:I100"), x)
   
6.         m = m + n
   
7.     Next i
   
8.     Xcount = m
   
9. End Function
   

复制代码