新人求助，如何求每日平均工作员工数

manione

大家好，我有一份每日工作记录表，求得每日平均工作人数
逻辑就是每个日期号中提交人员计数的不重复数值

日期 提交人员 2018年12月1日 A 2018年12月1日 B 2018年12月1日 A 2018年12月1日 A 2018年12月1日 C 2018年12月1日 A 2018年12月1日 B 2018年12月1日 D 2018年12月1日 G 2018年12月1日 D 2018年12月1日 B 2018年12月1日 C 2018年12月1日 B 2018年12月1日 Y 2018年12月1日 C 2018年12月1日 I 2018年12月1日 D 2018年12月2日 C 2018年12月2日 A 2018年12月2日 D 2018年12月2日 A 2018年12月2日 B 2018年12月2日 A 2018年12月2日 D 2018年12月2日 G

fxl447098457

先去重复然后分组计数、

liangmutou01

1.   Dim conn As New ADODB.Connection
   
2.   conn.Open "provider=microsoft.ace.oledb.12.0;extended properties='excel 12.0;HDR=yes';data source=" & ThisWorkbook.FullName
   
3.   Range("d2").CopyFromRecordset conn.Execute("select 日期,count(提交人员) from (select DISTINCT * from [sheet1$]) group by 日期;")
   
4.   conn.Close: Set conn = Nothing
   

复制代码

manione

liangmutou01 发表于 2018-12-31 16:10

能说明一下吗

liangmutou01

manione 发表于 2018-12-31 18:43
能说明一下吗

Dim conn As New ADODB.Connection
'ado连接，先要对ado进行引用，编程界面--工具--引用--选中某ado--确定。
  conn.Open "provider=microsoft.ace.oledb.12.0;extended properties='excel 12.0;HDR=yes';data source=" & ThisWorkbook.FullName
'打开与自己工作簿的连接，也就是ado访问自己，HDR=yes，第一行是标题
  Range("d2").CopyFromRecordset conn.Execute("select 日期,count(提交人员) from (select DISTINCT * from [sheet1$]) group by 日期;")
'这是关键一句：将ado查询的结果复制到以d2单元格为起点的单元格区域。
"select 日期,count(提交人员) from (select DISTINCT * from [sheet1$]) group by 日期;"  这是查询语句
select DISTINCT * from [sheet1$]  去掉重复，同时又作为外查询的数据源
整句的意思：无重复的以日期分组，统计提交人员的人数
  conn.Close: Set conn = Nothing
关闭连接。
将成品文件发给你。

manione

liangmutou01 发表于 2018-12-31 21:28
Dim conn As New ADODB.Connection
'ado连接，先要对ado进行引用，编程界面--工具--引用--选中某ado-- ...

非常感谢，我梳理一下逻辑

liangmutou01

manione 发表于 2018-12-31 18:43
能说明一下吗

Dim conn As New ADODB.Connection
'ado连接，先要对ado进行引用，编程界面--工具--引用--选中某ado--确定。
  conn.Open "provider=microsoft.ace.oledb.12.0;extended properties='excel 12.0;HDR=yes';data source=" & ThisWorkbook.FullName
'打开与自己工作簿的连接，也就是ado访问自己，HDR=yes，第一行是标题
  Range("d2").CopyFromRecordset conn.Execute("select 日期,count(提交人员) from (select DISTINCT * from [sheet1$]) group by 日期;")
'这是关键一句：将ado查询的结果复制到以d2单元格为起点的单元格区域。
"select 日期,count(提交人员) from (select DISTINCT * from [sheet1$]) group by 日期;"  这是查询语句
select DISTINCT * from [sheet1$]  去掉重复，同时又作为外查询的数据源
整句的意思：无重复的以日期分组，统计提交人员的人数
  conn.Close: Set conn = Nothing
关闭连接。
将成品文件发给你。

manione

liangmutou01 发表于 2019-1-1 12:35
Dim conn As New ADODB.Connection
'ado连接，先要对ado进行引用，编程界面--工具--引用--选中某ado-- ...

您好，可以通过POWER BI里的度量值或者新建列直接实现吗，因为每天记录数据量较大

liangmutou01

可以，是最佳方案。

liangmutou01

具体操作：不打开被统计的工作簿
数据→新建查询→从文件、从工作簿→记数（被统计工作簿）→sheet1→编辑→将第1列转换为日期→分组依据→选日期、非重复行计数→确定→关闭并上载。
就在一张新的工作表里有查询结果了，以后只要原工作簿的数据有变化，只要在查询表里更新数据就可以了。