求大神列个公式

浮生物语2023

mykitami 发表于 2024-10-19 11:34
=BYCOL(1*ISNUMBER(FIND({"语文","数学","英语","日语","物理","化学","生物","历史","政治","地理"},A2:A7 ...

接近10万行，公式计算不出来。

浮生物语2023

你是那块小饼干 发表于 2024-10-19 13:30

接近10万行，公式计算不出来。

浮生物语2023

接近10万行，公式计算不出来。

浮生物语2023

无关岁月 发表于 2024-10-19 11:18

接近10万行，公式计算不出来。

cnmlgb9998

借楼练一下PQ 中的 迭代函数。

ww87725244

1. 那就写个VBA
   
2. Sub aa()
   
3. Dim ar, d, i, k, m, n, ar1, ar2(1 To 10000, 1 To 2)
   
4. Set d = CreateObject("scripting.dictionary")
   
5. With Sheet1
   
6.     ar = .Range("a2:a" & .UsedRange.Rows.Count)
   
7.     For i = 1 To UBound(ar)
   
8.         ar1 = Split(ar(i, 1), "、")
   
9.         For k = 0 To UBound(ar1)
   
10.             If Not d.exists(ar1(k)) Then
    
11.                 m = m + 1
    
12.                 d(ar1(k)) = m
    
13.                 ar2(m, 1) = ar1(k)
    
14.                 ar2(m, 2) = 1
    
15.             Else
    
16.                 n = d(ar1(k))
    
17.                 ar2(n, 2) = ar2(n, 2) + 1
    
18.             End If
    
19.         Next
    
20.     Next
    
21.     .[d2].Resize(UBound(ar2), UBound(ar2, 2)) = ar2
    
22. End With
    
23. End Sub

复制代码