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

张松1020

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

谢谢各位大神！！！

我的城市你来过

=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

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

复制代码

quqiyuan

写得有点长了，供参考吧

张松1020

我的城市你来过 发表于 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

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

谢谢大佬，学习到了。

张松1020

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

谢谢大佬，学习到了。

张松1020

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

感谢大佬，学习到了。

qydn

试试这个 试试这个

ifan0916

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

复制代码

1. =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)),"")

复制代码