分类横向匹配汇总

jjmysjg

原帖横向匹配的是时间格式，改为无规律的文本后，如何分类匹配汇总。

原帖：https://club.excelhome.net/threa ... tml?_dsign=d20e137c
谢谢各位老师！

zpy2

改为无规律的文本后？

哪里改了？
啥是无规律文本？

zpy2

数据透视表？

ykcbf1100

全表自动生成

附件供参考。。。

ykcbf1100

排重汇总。。。

1. Sub ykcbf()   '//2024.8.12  排重汇总
   
2.     Application.ScreenUpdating = False
   
3.     Application.DisplayAlerts = False
   
4.     Set d = CreateObject("Scripting.Dictionary")
   
5.     a = [{"不分月","再定","一月","二月","三月","四月","五月","六月","七月","八月","九月","十月","十一月","十二月"}]
   
6.     ReDim brr(1 To 10000, 1 To 100)
   
7.     m = 1
   
8.     brr(1, 1) = "客户"
   
9.     On Error Resume Next
   
10.     With Sheets("数据源")
    
11.         r = .Cells(Rows.Count, 1).End(3).Row
    
12.         c = .UsedRange.Columns.Count
    
13.         arr = .[a1].Resize(r, c)
    
14.     End With
    
15.     For i = 2 To UBound(arr)
    
16.         s = arr(i, 1)
    
17.         If Not d.exists(s) Then
    
18.             m = m + 1
    
19.             d(s) = m
    
20.             brr(m, 1) = s
    
21.         End If
    
22.         r = d(arr(i, 1))
    
23.         s = arr(i, 2)
    
24.         n = 1
    
25.         For x = 1 To UBound(a)
    
26.             If s = a(x) Then
    
27.                 n = n + x
    
28.                 brr(1, n) = s
    
29.                 Exit For
    
30.             End If
    
31.         Next
    
32.         brr(r, n) = brr(r, n) + arr(i, 8)
    
33.     Next
    
34.     n = n + 1
    
35.     brr(1, n) = "总计"
    
36.     With Sheets("统计查看")
    
37.         .UsedRange.Offset(1).Clear
    
38.         .[a2].Resize(1, n).Interior.Color = 49407
    
39.         With .[a2].Resize(m, n)
    
40.             .Value = brr
    
41.             .Borders.LineStyle = 1
    
42.             .HorizontalAlignment = xlCenter
    
43.             .VerticalAlignment = xlCenter
    
44.         End With
    
45.         For i = 3 To m + 1
    
46.             .Cells(i, n) = Application.Sum(.Cells(i, 2).Resize(, n - 2))
    
47.         Next
    
48.     End With
    
49.     Application.ScreenUpdating = True
    
50.     MsgBox "OK！"
    
51. End Sub
    
52. 
    

复制代码

jjmysjg

ykcbf1100 发表于 2024-8-12 20:48
全表自动生成

附件供参考。。。

是这个效果。
但是，数据源的B列内容不定，能不能筛选出其唯一值自动写入统计表的B2向右？

jjmysjg

ykcbf1100 发表于 2024-8-12 20:48
全表自动生成

附件供参考。。。

不一定是"不分月","再定","一月","二月","三月","四月","五月","六月","七月","八月","九月","十月","十一月","十二月"这些名称

songshihai

统计值偷了个懒,调用了工作表函数

ykcbf1100

jjmysjg 发表于 2024-8-12 22:29
不一定是"不分月","再定","一月","二月","三月","四月","五月","六月","七月","八月","九月","十月","十 ...

那没问题的，但是，就不一定是按月份排序来了。

ykcbf1100

jjmysjg 发表于 2024-8-12 22:29
不一定是"不分月","再定","一月","二月","三月","四月","五月","六月","七月","八月","九月","十月","十 ...

改好了，标题行按B列内容写入。