提取休假人员名单

阿哩木

这公式有点绕不出来，来此求助，感谢！！

an_ju

Sub 提取名单()
c = Range("an6") + 4
n = 6
Range("an7:an1000").Clear
For r = 4 To 1000
    If Cells(r, c) = "休" Then n = n + 1: Cells(n, 40) = Cells(r, 2).MergeArea(1, 1)
Next
End Sub

an_ju

Sub 提取名单() c = Range("an6") + 4 n = 6 Range("an7:an1000").Clear For r = 4 To 1000     If Cells(r, c) = "休" Then n = n + 1: Cells(n, 40) = Cells(r, 2).MergeArea(1, 1) Next End Sub

mengrs

=FILTER(B4:B37,(OFFSET(D4:D37,,AN6)="休")*(B4:B37<>""))

an_ju

=UNIQUE(FILTER(B4:B100&B5:B101,OFFSET(A4:A100,,MATCH(AN6,2:2,0)-1)="休"))

an_ju

an_ju 发表于 2025-1-28 12:20
=UNIQUE(FILTER(B4:B100&B5:B101,OFFSET(A4:A100,,MATCH(AN6,2:2,0)-1)="休"))

这个公式名字有去重，所以重复的名字不显示。如果不想去重，可以把unique那一层去掉

an_ju

mengrs 发表于 2025-1-28 12:14
=FILTER(B4:B37,(OFFSET(D4:D37,,AN6)="休")*(B4:B37""))

赞!
直接用日期作为偏移行数，省去了查找

阿哩木

mengrs 发表于 2025-1-28 12:14
=FILTER(B4:B37,(OFFSET(D4:D37,,AN6)="休")*(B4:B37""))

太6了感谢感谢！！

祝洪忠-

=TEXTJOIN(",",,IF((E2:AI2=AN6)*(E4:AI37="休"),B4:B37&"",""))

E花E世界

1. =TOCOL(IF((INDEX(E4:AI37,,AN6)="休")*(B4:B37<>""),B4:B37,景),3)

复制代码