建立数组查询结果

czg975572566 · 发表于 2019-12-25 16:24

本帖最后由 czg975572566 于 2019-12-25 21:07 编辑

=IFERROR(IF(B2="早班",IF(OR(LEN(A2)=3,LEN(A2)=2),VLOOKUP(A2&B2,IF({1,0},明细!J:J&明细!F:F,明细!B:B),2,0),VLOOKUP(A2&B2,IF({1,0},明细!D:D&明细!F:F,明细!B:B),2,0)),IF(B2="中班",IF(OR(LEN(A1)=3,LEN(A1)=2),VLOOKUP(A1&B2,IF({1,0},明细!J:J&明细!F:F,明细!B:B),2,0),VLOOKUP(A1&B2,IF({1,0},明细!D:D&明细!F:F,明细!B:B),2,0)))),"达标")

首先将明细表中的人名+班次、第四列地名+班次建立数组，然后在工作表延误占比中，将A列和B列建立数组，A2&B2、A2&B3类推，查询明细表中的应出门时间，如果明细中无此数据则返回“达标”。楼下孙老师的代码在求中班时间的时候结果错误，新手，不知道该怎么做了

opel-wong · 发表于 2019-12-25 16:45

看着这密密码码的公式就头大了，你应该把需求写出来，VBA自然就可以处理了。

czg975572566 · 发表于 2019-12-25 16:49

本帖最后由 czg975572566 于 2019-12-25 17:35 编辑

opel-wong 发表于 2019-12-25 16:45
看着这密密码码的公式就头大了，你应该把需求写出来，VBA自然就可以处理了。

如果A列是人名，就根据人名和班次，查询明细工作表中的时间；如果A列是地名，就根据地名和班次，查询明细工作表中的时间；如果达标了（无数据）则返回“达标”

孙旭白 · 发表于 2019-12-25 17:19

Sub try()
Dim arr
Dim dic
Set dic = CreateObject("scripting.dictionary")
arr = Sheets("明细").UsedRange
For i = 2 To UBound(arr)
s = arr(i, 4) & arr(i, 6)
s1 = arr(i, 10) & arr(i, 6)
If Not dic.exists(s) Then
      dic(s) = arr(i, 2)
End If
If Not dic.exists(s1) Then
      dic(s1) = arr(i, 2)
End If
Next i

For i = 2 To Sheets("延误占比").Range("a65536").End(xlUp).Row
s2 = Sheets("延误占比").Range("a" & i) & Sheets("延误占比").Range("b" & i)
s3 = Sheets("延误占比").Range("a" & i) & Sheets("延误占比").Range("b" & i + 1)
If dic.exists(s2) Then
      Sheets("延误占比").Range("c" & i) = dic(s2)
      Sheets("延误占比").Range("c" & i + 1) = dic(s3)
End If
Next i

End Sub

孙旭白 · 发表于 2019-12-25 17:26

请试一下，如果结果不对，请增加查询条件

microyip · 发表于 2019-12-25 17:32

opel-wong 发表于 2019-12-25 16:45
看着这密密码码的公式就头大了，你应该把需求写出来，VBA自然就可以处理了。

有没有密集恐惧症？

czg975572566 · 发表于 2019-12-25 17:34

孙旭白发表于 2019-12-25 17:26
请试一下，如果结果不对，请增加查询条件

老师，如图，中班时间是不对的

czg975572566 · 发表于 2019-12-25 18:49

求各位老师给个代码

czg975572566 · 发表于 2019-12-25 20:28

四楼老师给的代码，在查询中班时间的时候会出错，不知道是什么问题

czg975572566 · 发表于 2019-12-25 21:11

救救孩子吧

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

[求助] 建立数组查询结果

最新热点 /1