多行多列提取不重复记录

4652525446

winnie_xyh 发表于 2012-11-13 13:10
试试：

请问如果只提取某两列的数据，应该怎么改？另外，每次数据变动之后，统计出来的结果怎么快速随动？

yshcy

wenwen000424 发表于 2012-11-13 13:28
试试，是否适合你？

代码精炼。 If dic.Exists(s) = False Then
     dic.Add s, 1 这句如何理解，能否解释下？这个1是什么作用？

ykcbf1100

yshcy 发表于 2024-2-27 22:14
代码精炼。 If dic.Exists(s) = False Then
     dic.Add s, 1 这句如何理解，能否解释下？这个1是什么 ...

计数为1。。。

ykcbf1100

参与一下。。。

ykcbf1100

代码如下：

1. Sub ykcbf()    '//2024.2.27
   
2.     Dim arr, d
   
3.     Set d = CreateObject("scripting.dictionary")
   
4.     r = Cells(Rows.Count, "a").End(xlUp).Row
   
5.     arr = [a1].Resize(r, 5)
   
6.     For i = 1 To UBound(arr)
   
7.         For j = 1 To UBound(arr, 2)
   
8.             s = arr(i, j)
   
9.             d(s) = d(s) + 1
   
10.         Next
    
11.     Next
    
12.     [f2].Resize(d.Count, 1) = Application.Transpose(d.keys)
    
13.     Set d = Nothing
    
14.     MsgBox "OK！"
    
15. End Sub
    

复制代码

cnmlgb9998

1. let
   
2.     源 = Excel.CurrentWorkbook(){[Name="表1"]}[Content],
   
3.     更改的类型 = Table.TransformColumnTypes(源,{{"列1", type text}, {"列2", type text}, {"列3", type text}, {"列4", type text}, {"列5", type text}}),
   
4.     自定义1 = Table.FromColumns({List.Distinct(List.Union(Table.ToColumns(更改的类型)))})
   
5. in
   
6.     自定义1

复制代码