统计个数且在每个单元格右边标出

Qs18

试试...........

一招秒杀

taller 发表于 2024-11-10 09:19

换种老式写法，居然比前面的 Sum() Over 还要更快点。

yanglinzi

NBCBA123

wanghui834

vba里面调研coountif，不知道快不快

wanghui834

wanghui834 发表于 2024-11-10 08:46

1. =MAP(A2:A27651,LAMBDA(x,COUNTIF(A2:A27651,x)))

复制代码

楼主，我用这个表格函数结果秒出

翁知江安

Sub 计个数()
Dim i, k, irow
Dim arr, brr
Dim d As Object
Set d = CreateObject("scripting.dictionary")
irow = Sheet2.[a1].End(xlDown).Row
arr = Sheet2.Range("a1:b" & irow)
For i = 2 To irow
  d(arr(i, 1)) = d(arr(i, 1)) + 1
Next
ReDim brr(1 To 1000, 1 To 1)
For k = 2 To irow
   brr(k - 1, 1) = d(arr(k, 1))
Next
  Sheet2.Range("B2:B" & irow).ClearContents
  Sheet2.Range("B2").Resize(irow - 1, 1) = brr
End Sub

翁知江安

初步测试结果。。。

lizhipei78

NBCBA123 发表于 2024-11-10 10:25

第一次见用正则表达式来计算个数，学习一下，这个题目直接常规数组字典应该效率更高吧

飞天篮球猪

taller 发表于 2024-11-10 09:19

大佬，这个是不是有行数限制？