请帮忙看看这个怎么弄啊

lin7516 · 发表于 2015-7-15 16:58

本帖最后由 lin7516 于 2015-7-16 08:52 编辑

请问怎样把小李，小王，小钱等日期大于2015-6-6日的数值用VBA统计放入表2.
表2的效果如下：

jellyguoyunl · 发表于 2015-7-15 17:29

你那个6-6号日期是固定了，还是作为一个参考值是在变化的，这个很重要

lin7516 · 发表于 2015-7-15 17:48

作为参考值！可以用某单元格代替。

jellyguoyunl · 发表于 2015-7-15 21:25

=IFERROR(INDEX(Sheet1!B:B,SMALL(IF(Sheet1!$B$2:$B$4999>Sheet1!$E$1,ROW(Sheet1!1:1)+1,6^8),ROW(Sheet2!1:1)),0),"")
数组

lin7516 · 发表于 2015-7-16 08:52

jellyguoyunl 发表于 2015-7-15 21:25
=IFERROR(INDEX(Sheet1!B:B,SMALL(IF(Sheet1!$B$2:$B$4999>Sheet1!$E$1,ROW(Sheet1!1:1)+1,6^8),ROW(Sheet2 ...

你的附件不完整，还有有没有VBA的啊。

hyg7501 · 发表于 2015-7-23 07:32

你这个就是用一个if条件判断就可以完成的啊，看你的表效果，也没有对每个人的数值进行汇总吧。所以就单从时间点上来判断，大于时间点就导入。假如原数据在abc列。
p=[a65536].end(xlup).row
k=2
for i=2 to p
date01=range("b"&i)
if date01>2015/6/6 then
range("f"&k)=range("a"&i)
range("g"&k)=range("b"&i)
range("h"&k)=range("c"&i)
k=k+1
end if
next

huang1314wei · 发表于 2015-7-25 20:14

Sub text()
Dim arr, i%, d, j%, r%
Dim brr(1 To 30, 1 To 2)
Set d = CreateObject("scripting.dictionary")
arr = Range("A1").CurrentRegion
For i = 2 To UBound(arr)
If arr(i, 2) > CDate("2015/6/6") Then
If Not d.exists(arr(i, 1)) Then
j = j + 1
d(arr(i, 1)) = j
brr(j, 1) = arr(i, 1)
brr(j, 2) = arr(i, 3)
Else
brr(d(arr(i, 1)), 2) = brr(d(arr(i, 1)), 2) + arr(i, 3)
End If
End If
Next
Sheet2.Range("A1").Resize(1, 2) = Array("姓名", "合计数值")
Sheet2.Range("A2").Resize(j, 2) = brr
End Sub

复制代码

huang1314wei · 发表于 2015-7-25 20:15

附件供参考

查找数据.rar (11.97 KB, 下载次数: 6)

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