当前所在位置: 首页 > 儿童教育 > 正文

excel如何进行多条件统计

2023-01-26 餐饮美食网 【 字体:

这是在知乎上看到的一个问题,我试着用VBA来解决。欢迎大家就自已使用Excel中遇到的问题或想要的解决方案提问,我将尽力解答。

问题:怎么用EXCEL多条件统计重复次数计数?如下所示,要统计每个试室都有什么专业(F),每个专业多少人,用左边的表生成右边的表(生成M、N、列就行),数据大概4W多条,需要考虑效率。怎么能做出来?VBA,公式啥的行,不想用筛选。

由于没有原始表格,我自已仿照做了一个示例数据表,如下所示。

提问者只要求能够生成右边表格的右侧3列,中为列L、列M、列N,这样的话列I、列J、列K中的数据是应该都有了,这样相对来说更容易一些。由于我没有原始表格,所以我将右边表格的全部6列都使用VBA来生成。

分析左侧的数据表,统计每个试室有什么专业、每个专业有多少人,实际上就是求每个试室每个专业的不重复数。因此,我将场次、考场编码、试室、试室编码、报考专业连接起来,单独放置在列G中,将它们作为字典的键值,这样就得到了不重复的数据。在填充字典键的同时,统计重复的数据,作为键的元素值,从而得到了每个试室每个专业的人数。然后,再将字典键进行拆分,输入到右侧的场次、考场编码、试室、试室编码、报考专业对应单元格中,并将对应的元素值输入到报考人数对应的单元格,这样就得到了统计数据。

完整的VBA代码如下:

Sub StatisticsData()

Dim lngLastRow As Long

Dim rng As Range

Dim myDict As Variant

Dim myKey As Variant

Dim str() As String

Dim num As Long

‘获取数据最后一行

lngLastRow = Range(“A” &Rows.Count).End(xlUp).Row

‘将数据区域单元格中的场次考场编码试室试室编码报考专业数据组合

‘将组合后的数据临时存放在G列

‘每个单元格数据之间用空格分开

‘方便后面拆分

For Each rng In Range(“A2:A” & lngLastRow)

With rng

.Offset( , 6) = .Offset( , ) +” ” + _

.Offset( , 1) +” ” + _

.Offset( , 2) +” ” + _

.Offset( , 3) +” ” + _

.Offset( , 5)

End With

Next rng

‘字典

Set myDict =CreateObject(“scripting.dictionary”)

‘遍历列G中的数据并将其放置在字典中

‘字典中键值为不同的数据组合

‘字典中键对应的值为每种数据组合的数量,即专业报考人数

For Each rng In Range(“G2:G”& lngLastRow)

With myDict

If Not .exists(rng.Value) Then

.Item(rng.Value) = 1

Else

.Item(rng.Value) =.Item(rng.Value) + 1

End If

End With

Next rng

‘清除临时存放在列G中的数据

Range(“G2:G” &lngLastRow).Clear

‘获取字典键

myKey = myDict.keys

‘遍历字典键

For num = To UBound(myKey)

‘拆分字典键中的字符

‘分别对应场次考场编码试室试室编码报考专业

str = Split(myKey(num))

‘取出相应的值并放置在相应的单元格

With Range(“I2”)

.Offset(num, ) = str( )

.Offset(num, 1) = str(1)

.Offset(num, 2) = str(2)

.Offset(num, 3) = str(3)

.Offset(num, 4) = str(4)

.Offset(num, 5) =myDict.Item(myKey(num))

End With

Next num

‘获取统计区域的数据最后一行

lngLastRow = Range(“I” &Rows.Count).End(xlUp).Row

With Range(“I1:N” &lngLastRow)

‘对统计区域的数据排序

.Sort _

Key1:=”场次”, Order1:=xlAscending, _

Key2:=”考场编码”, Order2:=xlAscending, _

Key3:=”试室编码”, Order3:=xlAscending, _

Header:=xlYes

‘调整列宽

.Columns.AutoFit

End With

Set myDict = Nothing

End Sub

代码中有相应的注释,可以参照理解。

阅读全文
相关推荐

如何自制蛋挞

如何自制蛋挞
1、倒入低筋面、黄油和水,揉成面团状,藏一小时后取出,抹上黄油卷起,包上保鲜膜冷藏半小时。2、取出,将面团切成一厘米的面团,放入模具内,用力按压,中间稍薄,外缘要比模具高,将蛋挞液倒入蛋挞皮中,放入烤箱里烤30分钟即可。

肉火烧面怎么和面

肉火烧面怎么和面
1、首先用温水把酵母融开,加入面粉,用手把面粉揉成非常软的面团,可以放一点熬好的猪油在面团里面。2、然后放在温暖的地方,盖上保鲜膜发酵至2倍大,发好的面团用手插入不回缩,就说明面团发酵好了。

奶茶几分糖好喝

奶茶几分糖好喝
1、不同的人对奶茶的口感要求是不一样的,一般来说,奶茶有三分糖、五分糖、七分糖三种不同的口味。2、女生一般都喜欢喝甜一点的,而男生则喜欢喝不那么甜的,七分糖的奶茶最好喝。

过桥米线是哪里的?

过桥米线是哪里的?
过桥米线是来自云南省滇南地区的一种有名特色小吃。过桥米线最早是在清朝就已经出现,距离现在至少有一百多年的历史啦!起源于建水县东城外锁龙桥西侧的鸡市街头处,有建水的特产草芽、地椒作配料,风味独特而远近闻名。深受广大美食爱好者的喜欢,不少人为此专门长途跋涉,只为尝

面霜和乳液的区别

面霜和乳液的区别
面霜和乳液的区别,相较而言乳液的水分含量要比面霜高,乳液质地要轻薄一些,乳液主要作用是保湿,滋润可以隔离外界干燥的气候,面霜既可保湿,又可美白,还能抗衰老,乳液的吸收快一些,而面霜吸收比较慢一些,因为液体的吸收速度都比较快。

怎么摘隐形眼镜

怎么摘隐形眼镜
在摘隐形眼镜之前,先用洗手液将手清洗干净,以免将细菌带入眼睛内,对着镜子,用右手中指轻拉眼睛下眼睑,左手中指轻拉眼睛上眼睑,让黑色眼球暴露在空气中,用右手食指和拇指轻触镜片的两边缘部分,向中间推使镜片拱起,再用两手指轻轻捏出镜片即可。

粉饼和散粉的区别

粉饼和散粉的区别
粉饼是呈压缩固体状态,多呈圆形或者方形,散粉则是细腻的粉末状,粉饼遮瑕力会比较强一些,可以湿用做粉底,或者用来补妆,而散粉则是定妆的效果,粉饼通常用在底妆的第一步,而散粉通常用在底妆最后一步。

冷烫和热烫的区别

冷烫和热烫的区别
冷烫和热烫的区别:冷烫对头发的要求是要在保温状态下才能给卷有个好的效果,而热烫是在干和湿的情况下都行,热烫烫出来的头发比较自然明显而有弹力,冷烫的头发风干后基本看不出来,并且发质会有点干。

高品质香水如何鉴别?用三步就可以解决

高品质香水如何鉴别?用三步就可以解决
1、看色泽以天然香料调制而成的高级香水,都有它本来的颜色,且大都是琥珀色或褐色,看起来很像宝石,比如,从茉莉、玫瑰或水仙等天然鲜花中所萃取的精油都呈黄色、褐白或绿褐色;此外,香水中所添加的魅惑香气物性香料也是褐色,苔类中的橡树苔是绿色,从树根或树根脂类中萃取的

如何去除黑眼圈

如何去除黑眼圈
去除黑眼圈首先可以用热毛巾敷眼,然后再用冷毛巾敷,十分钟就能让黑眼圈淡化的不那么严重,其次将去壳后的鸡蛋用无菌纱布包裹住,敷于眼部轻轻转动,可以急救去除黑眼圈,另外抹完眼霜后,用双手顺时针按摩,可以促进血液循环消除黑眼圈。
本文Tag