首页 > Excel专区 > Excel函数 >

新增JOIN,CHINARANK,COLORSUM等函数

Excel函数 2023-01-14

大家不知道的是,我在微软内部工作,已经提前认识Excel2021版新增的几大函数。让我们拭目以待吧!

双向连接函数JOIN。

= JOIN(连接符,区域1,区域2,区域3 …)

 

中国式排名函数CHINARANK,当有相同值时排名保持连续。= CHINARANK(值,区域)

 

按颜色求和函数COLORSUM。

= COLORSUM(求和区域,颜色单元格)

 

想要Excel2021版下载地址吗?就在文章结尾,你使劲往下翻,翻翻翻…

哈哈哈,别找啦!Excel2021是我杜撰出来的!

只是几个函数是真实存在的,用到了VBA的自定义函数功能,快捷工作表标签,单击查看代码,插入模块,把下面的代码复制进去。

 

公共函数JOIN(ll,ParamArray x())

对于每个r x

如果IsArray(r)然后

对于每个rr In r

如果rr <>“”则JOIN = JOIN&ll&rr

下一个

其他

JOIN = JOIN&ll&r

万一

下一个

JOIN = Mid $(JOIN,2,Len(JOIN))

结束功能

函数ChinaRank(V,Rng)

昏暗x一样长,k一样长

昏暗的arr,arr1

arr = Rng

设置d = CreateObject(“ scripting.dictionary”)

对于x = 1到UBound(arr)

d(arr(x,1))=“”

下一个x

arr1 = d。键

对于x1 = 0到UBound(arr1)

如果arr1(x1)> V那么k = k + 1

下一个x1

中国排名= k + 1

结束功能

函数COLORSUM(Rg1作为范围,Rg2作为范围)

昏暗rg_ID为范围,rg_sum为长

对于Rg1中的每个rg_ID

如果rg_ID.Interior.ColorIndex = Rg2.Interior.ColorIndex然后

rg_sum = rg_sum + IIf(IsNumeric(rg_ID.Value),rg_ID.Value,0)

万一

下一个

COLORSUM = rg_sum

结束功能


Copyright © 2016-2023 office学习教程网 office.tqzw.net.cn. All Rights Reserved.