求助将sheet1中数据填入sheet2表格？谢谢！

wangweihebtu · 发表于 2020-2-5 09:51

本帖最后由 wangweihebtu 于 2020-2-5 16:22 编辑

疫情当前，当老师的每天需要统计本班学生体温情况并上报。问题有的家长或者学生不能按时上报，所以求助
求助将sheet1中体温数据填入sheet2表格？谢谢！

iwangyi · 发表于 2020-2-5 10:45

Sub C()
Set D = CreateObject("SCRIPTING.DICTIONARY")
ARR = Sheet1.UsedRange
For I = 2 To UBound(ARR)
D(ARR(I, 5) & ARR(I, 3)) = ARR(I, 6)
Next
BRR = Sheet2.UsedRange
For I = 2 To UBound(BRR)
For J = 2 To UBound(BRR, 2)
Cells(I, J) = D(BRR(I, 1) & BRR(1, J))
Next
Next
End Sub

iwangyi · 发表于 2020-2-5 10:50

附件请参考*****************

wangweihebtu · 发表于 2020-2-5 10:56

感谢二楼的帮助，不知道能用公式解决不？谢谢

syj2004hg · 发表于 2020-2-5 10:58

如果只是提取信息，可以index或者offset等函数，例如F3：=INDEX(Sheet2!$A:$E,MATCH(Sheet1!$E3,Sheet2!$A:$A,0),MATCH(Sheet1!$C3,Sheet2!$1:$1,0))
如果需要自动生成新的日期对应的信息表，需要用到VBA了，可以去VBA板块提问

sj15627581616 · 发表于 2020-2-5 12:46

=IFERROR(VLOOKUP(B$1&A2,IF({1,0},Sheet1!C:C&Sheet1!E:E,Sheet1!F:F),2,0),"") 数组公式个人建议还是使用VBA来的舒服

wangweihebtu · 发表于 2020-2-5 16:22

sj15627581616 发表于 2020-2-5 12:46
=IFERROR(VLOOKUP(B$1&A2,IF({1,0},Sheet1!C:C&Sheet1!E:E,Sheet1!F:F),2,0),"") 数组公式个人建议还是使 ...

呜呜，我错了，上午就写了一个类似的公式，但是我忘了用数组公式才对

chenyun1234 · 发表于 2020-2-5 17:06

1、直接用透视表做更快
2、有个别人同一天多次上报记录

一方天地 · 发表于 2020-2-5 17:25

=VLOOKUP(A2,Sheet1!E3:F415,2,0)
我使用的是VLOOKUP这个常见函数，看到有些大神使用VBA或者match、index函数，感觉好复杂，我想是不是我将问题想简单了，求赐教

wangweihebtu · 发表于 2020-2-5 17:51

一方天地发表于 2020-2-5 17:25
=VLOOKUP(A2,Sheet1!E3:F415,2,0)
我使用的是VLOOKUP这个常见函数，看到有些大神使用VBA或者match、index ...

兄弟，我要的还有按天，相当于区域转置

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

[已解决] 求助将sheet1中数据填入sheet2表格？谢谢！

评分

评分

评分

最新热点 /1