求助大神，求助老师，我的需求是统计！！！谢谢

珍惜的人7758258

半百 发表于 2024-2-27 10:42

你好，我按照你的代码输入表格，发现不可以，不知哪里出问题了

半百

珍惜的人7758258 发表于 2024-2-28 11:02
你好，我按照你的代码输入表格，发现不可以，不知哪里出问题了

珍惜的人7758258

半百 发表于 2024-2-28 15:23

功能二：①已知在表格1中，在单元格A7设置Sheet1，单元格A8设置列范围，，，，，当单元格D2和E2是A122和10。是在表格Sheet1中，单元格A122到A113,统计单元格内，数值和文字出现的次数，并且从多到少,排！当单元格H2和I2是A121和10，是在表格Sheet1中，单元格A121到A112,统计单元格内，数值和文字出现的次数，并且从多到少,排！结果是放在表格1中，请看表格，以此类推。

②在表格1中，在单元格A7设置Sheet1，单元格A8设置范围行。。。单元格D2和E2是A122和1，那就是在表格Sheet1中，单元格A122，这一行，统计单元格内，数值和文字出现的次数，并且从多到少，排！结果是放在表格1中，请看表格，以此类推。





老师你好，请完善两个问题。

第一个问题是从多到少,排。请看图。

第二个问题，这个没有完善，不出结果。（②在表格1中，在单元格A7设置Sheet1，单元格A8设置范围行。。。单元格D2和E2是A122和1，那就是在表格Sheet1中，单元格A122，这一行，统计单元格内，数值和文字出现的次数，并且从多到少，排！结果是放在表格1中，请看表格，以此类推。）

珍惜的人7758258

珍惜的人7758258

半百 发表于 2024-2-28 15:23

老师你好，请完善两个问题。

半百

从多到少排。范围行那个还是不明白，或许你可以根据列范围的代码自己修改适用。

1. Sub test()
   
2. Set d = CreateObject("Scripting.dictionary")
   
3. [b3:ru12].Clear
   
4. arr = Sheets(1).UsedRange
   
5. m1 = Val(Mid([d2], 2))
   
6. m2 = [e2]
   
7. For i = 4 To Cells(1, Columns.Count).End(1).Column + 2 Step 4
   
8.    Cells(2, i) = "A" & m1 '功能一
   
9.    Cells(2, i + 1) = m2
   
10.    For j = m1 - m2 + 1 To m1 '功能二-（1）
    
11.      If m1 < m2 Then Exit For
    
12.      d(arr(j, 1)) = d(arr(j, 1)) + 1
    
13.      If d(arr(j, 1)) > m Then m = d(arr(j, 1))
    
14.    Next
    
15.    a = d.Keys
    
16.     For j = 0 To UBound(a)
    
17.         s = CStr(d(a(j)))
    
18.         d(s) = d(s) & "," & a(j)
    
19.    Next
    
20.    m3 = Cells(2, i - 2)
    
21.    r = 2
    
22.    For j = m To 1 Step -1
    
23.     If d.exists(CStr(j)) Then
    
24.         a = Split(d(CStr(j)), ",")
    
25.         For k = 1 To UBound(a)
    
26.          r = r + 1
    
27.           With Cells(r, i)
    
28.             .Value = a(k)
    
29.             .Offset(0, 1) = j & "个"
    
30.             If Val(a(k)) = m3 Then          '功能三
    
31.                 .Interior.ColorIndex = 6
    
32.                 .Font.ColorIndex = 3
    
33.              End If
    
34.          End With
    
35.          Next
    
36.      End If
    
37.   Next
    
38.   d.RemoveAll
    
39.   m1 = m1 - 1
    
40. Next
    
41. [b3:ru12].Borders.LineStyle = 1
    
42. End Sub
    
43. 
    

复制代码

珍惜的人7758258

求助各位老师谢谢了

珍惜的人7758258

半百 发表于 2024-3-1 15:14
从多到少排。范围行那个还是不明白，或许你可以根据列范围的代码自己修改适用。

老师您好，是我解释不到位，才让您不明白。

②在表格1中，在单元格A7设置Sheet1，单元格A8设置范围行。。。单元格D2和E2是A122和1，那就是在表格Sheet1中，单元格A122（从单元格A122到单元格S122），这一行，统计单元格内，数值和文字出现的次数，并且从多到少，排！结果是放在表格1中。


同理，单元格D2和E2是A122和2，那就是在表格Sheet1中，单元格A122和A121（从单元格A122和A121到单元格S122和S121），这两行。单元格D2和E2是A122和3，那就是在表格Sheet1中，单元格A122和A121和A120(单元格A122和A121和A120到单元格S122和S121和S120)，这三行。以此类推。

另外，设置范围行。。。单元格D2和E2是B122和1，那就是在表格Sheet1中，单元格B122（从单元格B122到单元格S122），这一行。其他不变。




其实从从多到少，排加从小到大排，更好。

珍惜的人7758258

半百 发表于 2024-3-1 15:14
从多到少排。范围行那个还是不明白，或许你可以根据列范围的代码自己修改适用。

求助老师搞定

半百