添加JOIN、CHINARANK、COLORSUM等功能

你不知道的是，我在微软工作，已经提前知道了Excel2021中的几个新功能。让我们拭目以待吧！

双向JOIN函数。

=JOIN(连接器，区域1，区域2，区域3.)

CHINARANK是一个中文排名函数，当排名值相同时，保持排名连续。=CHINARANK(值，区域)

colorsum函数COLORSUM。

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

你想要Excel2021的下载地址吗？在文章的最后，你翻了又翻…

哈哈，别找了！Excel2021是我发明的！

只有几个函数是真实的，使用VBA的自定义函数，快捷工作表选项卡，点击查看代码，插入模块，并复制以下代码。

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

对于每个r x。

如果I array(r)那么。

r中的每个RR

如果rr " "，则JOIN=JOINllrr。

然后

其他的

JOIN=JOINllr

以防万一

然后

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

结束功能

函数chinanrank(V，Rng)。

x和dim一样长，k也一样长。

arr的黑暗，arr1。

arr=Rng

Set d=createobject("脚本。字典”)。

对于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函数(Rg1作为范围，Rg2作为范围)

Dim rg_ID是范围，rg_sum是长的。

对于Rg1中的每个rg_ID，

如果rg _ id . interior . color index=rg2 . interior . color index，则。

rg _ sum=rg _ sum IIf(IsNumeric(rg _ ID。值)，rg_ID。值，0)

以防万一

然后

COLORSUM=rg_sum

结束功能