请教如何匹配A列某个姓名、B列某个日期，然后将对应行数据提取到另一表中对应的行中

yly0001

想从一张全公司的大表中，把每个人的每天的详细数据提取到另一张表里（SHEET1），请问要如何设计，今后每天的公司数据汇总到前一张表里后，此人的每日数据都可以提取到他的个人明细表里？

如果在个人明细下面还加一个总计的话，不在当前表用SUM，而是直接从前表抽取并自动计算，又该如何设计呢？

感谢各位大大。

活动量报表.zip (9.43 KB, 下载次数: 93)

2016-4-12 12:16 上传

点击文件名下载附件

小白想学习

朱荣兴 发表于 2016-4-12 15:54
在A2中输入姓名，实现自动筛选

老师厉害[大拇指]

yly0001

朱荣兴 发表于 2016-4-12 15:54
在A2中输入姓名，实现自动筛选

谢谢老师，多请教一句，如果不用宏，想使用公式能否实现呢？

olin12345

朱荣兴 发表于 2016-4-12 15:52

老师好，
如果需要使用日期来提取数据，该如何修改代码，请老师帮助。

Datous

yly0001 发表于 2016-4-12 20:56
谢谢老师，多请教一句，如果不用宏，想使用公式能否实现呢？

1. =SUMIFS(每日公司汇总!D:D,每日公司汇总!$A:$A,"*."&$A6,每日公司汇总!$B:$B,"*"&$A$2)

复制代码

Datous

olin12345 发表于 2019-3-19 20:31
老师好，
如果需要使用日期来提取数据，该如何修改代码，请老师帮助。

1. Sub Query()
   
2. Dim vntD, lngC As Long, I, J, K, strDate As String, vntR()
   
3. lngC = Sheets("每日公司汇总").UsedRange.Rows.Count - 4
   
4. vntD = Sheets("每日公司汇总").Range("a4").Resize(lngC, 12)
   
5. strDate = Sheets("个人每日明细").Range("A1").Value
   
6. For I = 1 To lngC
   
7.     If vntD(I, 1) = strDate Then
   
8.         ReDim Preserve vntR(9, K)
   
9.         vntR(0, K) = vntD(I, 2)
   
10.         For J = 1 To 9
    
11.             vntR(J, K) = vntD(I, J + 3)
    
12.         Next
    
13.         K = K + 1
    
14.     End If
    
15. Next
    
16. Sheets("个人每日明细").Range("A24").Resize(K, 10) = Application.WorksheetFunction.Transpose(vntR)
    
17. End Sub

复制代码

olin12345

Datous 发表于 2019-3-19 20:59

放入表格中没反应