分类汇总获取唯一值的意思。

憨笑

有点分类汇总的意思，就好像：广东下一级有广州，深圳等市，不太会表述，一切详见附件。

dengjq2000

VBA 语句：

1. Sub 循环()
   
2.     Dim i As Long, Arr, d
   
3.     Set d = CreateObject("Scripting.Dictionary")
   
4.     Set d1 = CreateObject("Scripting.Dictionary")
   
5.     Range("F2:F65536").ClearContents
   
6.     Arr = [a1].CurrentRegion
   
7.     For i = 2 To UBound(Arr)
   
8.         d(Arr(i, 1) & Arr(i, 2)) = d(Arr(i, 1) & Arr(i, 2)) & Arr(i, 3) & "、"
   
9.         d1(Arr(i, 1) & Arr(1, 1) & Arr(i, 2) & Arr(1, 2)) = d(Arr(i, 1) & Arr(i, 2))
   
10.     Next
    
11.     k = d1.keys: t = d1.items
    
12.     For i = 0 To UBound(k)
    
13.         Cells(i + 2, 6) = k(i) & Left(t(i), Len(t(i)) - 1) & Arr(1, 3)
    
14.     Next
    
15. End Sub
    

复制代码

dengjq2000

VBA源程序文件。结果与你的要求还是有点差异。

憨笑

dengjq2000 发表于 2018-1-29 23:02
VBA源程序文件。结果与你的要求还是有点差异。

意思是一样了，只是没连上去