求助：也来个去重的，根据A列和C列的数据去重，并把D列求和

幽默的熊 · 发表于 2024-8-1 20:59

本帖最后由幽默的熊于 2024-8-1 21:01 编辑

大佬们，我又麻烦大家了
在原表上，根据A列和C列的数据去重，并把D列求和，搞了半天没搞成，真心求助！

ykcbf1100 · 发表于 2024-8-1 21:18

字典排重

ykcbf1100 · 发表于 2024-8-1 21:19

参与一下。。。

Sub ykcbf() '//2024.8.1
Dim arr, brr, d
Application.ScreenUpdating = False
Set d = CreateObject("scripting.dictionary")
With Sheets("求助")
r = .Cells(Rows.Count, 1).End(3).Row
arr = .[a1].Resize(r, 4)
End With
ReDim brr(1 To UBound(arr), 1 To 4)
For i = 2 To UBound(arr)
s = arr(i, 1) & "|" & arr(i, 3)
If Not d.Exists(s) Then
m = m + 1
d(s) = m
brr(m, 1) = arr(i, 1)
brr(m, 2) = arr(i, 2)
brr(m, 3) = arr(i, 3)
brr(m, 4) = arr(i, 4)
Else
r = d(s)
brr(r, 4) = brr(r, 4) + arr(i, 4)
End If
Next
With Sheets("结果")
.UsedRange.Offset(1) = ""
.Range("a2").Resize(m, 4) = brr
End With
Set d = Nothing
Application.ScreenUpdating = True
MsgBox "OK！"
End Sub

复制代码

小凡、、、 · 发表于 2024-8-1 21:30

本帖最后由小凡、、、于 2024-8-1 21:32 编辑

可以不同写入数组，直接cells(s,1) for each里循环就直接写入单元格

杨建营 · 发表于 2024-8-1 21:32

请楼主参考。

cgzn · 发表于 2024-8-2 08:37

sql一下就出来了

cgzn · 发表于 2024-8-2 08:47

本帖最后由 cgzn 于 2024-8-2 08:52 编辑

你可以增加一列函数 =a2 & "," & c2
然后数据toushi表求和即可

幽默的熊 · 发表于 2024-8-2 09:53

ykcbf1100 发表于 2024-8-1 21:19
参与一下。。。

大佬, 最喜欢您的代码, 我受益匪浅

幽默的熊 · 发表于 2024-8-2 09:59

本帖最后由幽默的熊于 2024-8-2 10:02 编辑

ykcbf1100 发表于 2024-8-1 21:19
参与一下。。。

这次是我没表述清楚, 情况稍微复杂一点.
1. 行列数并不完全统一, 有长有短, 最后需要都放在一起(g列开始), 行列保持原有状态即可;
2. 如果B列有"tt"字样的话, 做AC列的唯一项, 合并D列, 其他数据跟在其后面; 如果没有则直接粘贴至g列起
3. 也有可能带有"tt"的行并不在最上面, 也有可能在其他数据下面, 此情况也同上处理
情况比较多, 搞得我一头雾水, 再次求出大佬!!

ykcbf1100 · 发表于 2024-8-2 11:01

幽默的熊发表于 2024-8-2 09:59
这次是我没表述清楚, 情况稍微复杂一点.
1. 行列数并不完全统一, 有长有短, 最后需要都放在一起(g列开始 ...

我有时间再看一下

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

[求助] 求助：也来个去重的，根据A列和C列的数据去重，并把D列求和

评分

评分

评分

评分