根据关键信息自动生成统计表格

HooPHooP · 发表于 2024-4-5 08:30

根据关键信息自动生成统计表格

山菊花 · 发表于 2024-4-5 08:36

选择区域A1:C41，点击“数据——删除重复项”。

3190496160 · 发表于 2024-4-5 08:40

如果用的是wps的话，wps就有去除重复项的功能的

ykcbf1100 · 发表于 2024-4-5 08:41

附件供参考。。。

ykcbf1100 · 发表于 2024-4-5 08:41

参与一下。。。

Sub ykcbf() '//2024.4.5
Set d = CreateObject("Scripting.Dictionary")
r = Me.Cells(Rows.Count, 1).End(3).Row
arr = Me.[a1].Resize(r, 3)
For i = 1 To UBound(arr)
s = arr(i, 1) & "|" & arr(i, 2) & "|" & arr(i, 3)
If Not d.exists(s) Then
d(s) = Array(arr(i, 1), arr(i, 2), arr(i, 3))
End If
Next
Me.[i2].Resize(d.Count, 3) = Application.Rept(d.Items, 1)
Me.[i2].Resize(d.Count, 3).Borders.LineStyle = 1
End Sub

复制代码

3190496160 · 发表于 2024-4-5 08:47

Sub 去重复()
Dim ar As Variant
Dim br()
Dim d As Object
Set d = CreateObject("scripting.dictionary")
With Sheet1
r = .Cells(Rows.Count, 1).End(xlUp).Row
If r < 2 Then MsgBox "数据源为空！": End
ar = .Range("a1:c" & r)
ReDim br(1 To UBound(ar), 1 To 3)
n = 1
For j = 1 To 3
      br(n, j) = ar(1, j)
Next j
For i = 2 To UBound(ar)
      zd = ar(i, 1) & "|" & ar(i, 2) & "|" & ar(i, 3)
      If Not d.exists(zd) Then
         n = n + 1
         For j = 1 To 3
            br(n, j) = ar(i, j)
         Next j
         d(zd) = ""
      End If
Next i
.Columns("e:g") = Empty
.[e2].Resize(n, 3) = br
End With

End Sub

swl4561255 · 发表于 2024-4-5 08:47

Sub test()
Application.DisplayAlerts = False
arr = Range("A1").CurrentRegion
Set d = CreateObject("Scripting.Dictionary")
For i = 2 To UBound(arr)
d(arr(i, 1) & "-" & arr(i, 2) & "-" & arr(i, 3)) = ""
Next
k = d.keys
Range("A1:C1").Copy [E2]
[E3].Resize(d.Count, 1) = Application.Transpose(k)
Range("E3:E" & d.Count + 2).TextToColumns other:=True, otherchar:="-"
Application.DisplayAlerts = True
End Sub

复制代码

3190496160 · 发表于 2024-4-5 08:48

自动生成统计表格.rar (15.96 KB, 下载次数: 10)

shiruiqiang · 发表于 2024-4-5 09:02

sql语句去重复效果不错

xsy我可以很好 · 发表于 2024-4-5 17:28

数据透视表

		自动登录	找回密码
密码			免费注册

[求助] 根据关键信息自动生成统计表格