求批量获取指定数据的VBA代码，谢谢

glenstyle · 发表于 2024-1-15 11:16

本帖最后由 glenstyle 于 2024-1-15 15:54 编辑

老师们好，可能我想的太简单了，现在把实际的表格放上。
现在的需求是：把某人支付日期为同一天的金额合计，筛选出来，然后最上面一列是这个人符合条件的金额总计，接着把所有符合条件的往下面叠加。最终放在sheet2上。感谢各位。

半百 · 发表于 2024-1-15 12:37

请测试。。。。

taller · 发表于 2024-1-15 12:47

taller · 发表于 2024-1-15 12:47

本帖最后由 taller 于 2024-1-15 13:23 编辑

sql只针对楼主提供的数据进行测试验证结果，如果一天内用户有多个订单，提取结果可能会出现重复记录

ykcbf1100 · 发表于 2024-1-15 13:03

参与一下。。。

Sub ykcbf() '//2024.1.15
Set d = CreateObject("Scripting.Dictionary")
With Sheets("Sheet1")
r = .Cells(Rows.Count, 1).End(3).Row
arr = .Range("a1:e" & r)
End With
ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2))
For i = 2 To UBound(arr)
If arr(i, 1) = 2 And arr(i, 5) > 500 Then
s = arr(i, 2)
d(s) = ""
End If
Next
For i = 2 To UBound(arr)
s = arr(i, 2)
If d.exists(s) Then
If arr(i, 1) = 3 Then
m = m + 1
For j = 2 To UBound(arr, 2)
brr(m, j - 1) = arr(i, j)
Next
End If
End If
Next
With Sheets("Sheet2")
.[a2].Resize(m, 4) = brr
End With
MsgBox "OK！"
End Sub

复制代码

ykcbf1100 · 发表于 2024-1-15 13:04

附件供参考。。。

飞天篮球猪 · 发表于 2024-1-15 14:59

供参考...

飞天篮球猪 · 发表于 2024-1-15 15:22

grf1973 · 发表于 2024-1-15 15:42

。。。。。。。。。。。。。

glenstyle · 发表于 2024-1-15 15:57

ykcbf1100 发表于 2024-1-15 13:04
附件供参考。。。

老师，需求有点变化，您有空的话，希望可以不吝赐教，谢谢。

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

[求助] 求批量获取指定数据的VBA代码，谢谢

评分