求助对excel中日期范围进行按日期拆分，并希望能过滤周末信息。

张松1020 · 发表于 2024-2-29 16:19

1. 右边数据直接按照左边表格填写的数据进行自动拆分成每一天，
2. 能过滤掉周末
3. 在最后一列带入日均工时

谢谢各位大神！！！

我的城市你来过 · 发表于 2024-2-29 16:55

=IFERROR(INDEX(TEXT(TEXTSPLIT(TEXTJOIN("-",,IF(MOD(VLOOKUP(B8,$B$2:$E$4,2,0)+ROW(INDIRECT("a1:a"&VLOOKUP($B8,$B$2:$E$4,4,0)))-1,7)={1,2,3,4,5},VLOOKUP(B8,$B$2:$E$4,2,0)+ROW(INDIRECT("a1:a"&VLOOKUP($B8,$B$2:$E$4,4,0)))-1,"")),,"-"),"yyyy-mm-dd"),COUNTIF(B$7:B8,B8)),"")

swl4561255 · 发表于 2024-2-29 17:35

Sub ChaiFen()
Dim brr()
ar = [B1].End(4).Row
arr = Range("B2:D" & ar)
For i = 1 To 3
For j = 1 To arr(i, 3) - arr(i, 2) + 1
m = m + 1
ReDim Preserve brr(1 To 2, 1 To m)
brr(1, m) = arr(i, 1)
brr(2, m) = arr(i, 2) + j - 1
Next
Next
[P2].Resize(m, 2) = Application.Transpose(brr)
[Q2].Resize(m, 1).NumberFormat = "yyyy/m/d"
End Sub

复制代码

quqiyuan · 发表于 2024-2-29 18:18

写得有点长了，供参考吧

张松1020 · 发表于 2024-3-7 11:47

我的城市你来过发表于 2024-2-29 16:55
=IFERROR(INDEX(TEXT(TEXTSPLIT(TEXTJOIN("-",,IF(MOD(VLOOKUP(B8,$B$2:$E$4,2,0)+ROW(INDIRECT("a1:a"&VLO ...

谢谢大佬，学习到了。

张松1020 · 发表于 2024-3-7 11:47

swl4561255 发表于 2024-2-29 17:35

谢谢大佬，学习到了。

张松1020 · 发表于 2024-3-7 11:48

swl4561255 发表于 2024-2-29 17:35

谢谢大佬，学习到了。

张松1020 · 发表于 2024-3-7 13:03

quqiyuan 发表于 2024-2-29 18:18
写得有点长了，供参考吧

感谢大佬，学习到了。

qydn · 发表于 2024-3-7 13:50

试试这个试试这个

ifan0916 · 发表于 2024-3-7 16:37

=LOOKUP(ROW(A2),SUBTOTAL(9,OFFSET(F$1,,,ROW($1:$4)))+2,B$2:B$4)&""

复制代码

=IF(B6<>"",LOOKUP(ROW(A2),SUBTOTAL(9,OFFSET(F$1,,,ROW($1:$4)))+2,C$2:C$4)+AGGREGATE(15,6,(ROW($1:$31)-1)/(WEEKDAY(LOOKUP(ROW(A2),SUBTOTAL(9,OFFSET(F$1,,,ROW($1:$4)))+2,C$2:C$4)+(ROW($1:$31)-1),2)<6),COUNTIF($B$6:B6,B6)),"")

复制代码

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

[求助] 求助对excel中日期范围进行按日期拆分，并希望能过滤周末信息。