求两个公式，有点难，想不出来了……

素心向雪

如图：

感谢大神帮忙看看
1111.rar (7.87 KB, 下载次数: 39)

2020-2-20 14:13 上传

点击文件名下载附件

suibianbei~

公式做起来有点庞杂，vba容易的多。

1. Sub text()
   
2.     Dim k As Integer, i As Integer, j As Integer, rs As Integer
   
3.     k = 2: rs = 1
   
4.     Do While Cells(k, 2) <> ""
   
5.         For i = 4 To 8 Step 2
   
6.             If Cells(k, i) <> 0 Then
   
7.                 For j = 1 To Cells(k, i)
   
8.                     rs = rs + 1
   
9.                     Cells(rs, 12) = Cells(k, 2)
   
10.                     Cells(rs, 13) = Cells(k, i - 1)
    
11.                 Next
    
12.             End If
    
13.         Next
    
14.         k = k + 1
    
15.     Loop
    
16. End Sub

复制代码

sdc3211772

L2：=IFERROR(OFFSET($B$1,SMALL(IF(SUBTOTAL(9,OFFSET($C$1:$H$1,ROW($1:$8),))>=COLUMN(A:Z),ROW($1:$8)),ROW(A1)),),"")
M2：=IFERROR(VLOOKUP(L2,B:H,SMALL(IF(VLOOKUP(L2,B:H,{3,5,7},)>=ROW($1:$99),{2,4,6}),COUNTIF(L$2:L2,L2)),),"")
均为数组公式

海好呀

仅作参考：

魚。。

魚-辅助列版.rar (10.39 KB, 下载次数: 4)

2020-2-20 16:36 上传

点击文件名下载附件

毛利的乖乖熊

J2:
{=INDEX(B:B,MATCH(1=1,ROW()-1<=MMULT(1*(ROW($1:$8)>=COLUMN($A:$H)),SUBTOTAL(9,OFFSET($C$1:$H$1,ROW($1:$8),))),)+1)}

L2:
{=OFFSET(B$1,J2,MATCH(1=1,COUNTIF(J$1:J2,J2)<=MMULT(1*(ROW($1:$3)>=COLUMN($A:$C)),SUBTOTAL(9,OFFSET(B$1,J2,{2;4;6}))),)*2-1)}

素心向雪

sdc3211772 发表于 2020-2-20 15:40
L2：=IFERROR(OFFSET($B$1,SMALL(IF(SUBTOTAL(9,OFFSET($C$1:$H$1,ROW($1:$8),))>=COLUMN(A:Z),ROW($1:$8)) ...

你的公式最优秀，万分感谢！

素心向雪

感谢各位大神的帮助，万分感谢！

micch

1. =LOOKUP(ROW()-2,SUBTOTAL(9,OFFSET(D$1:H$1,,,B$2:B$9)),B$2:B$9)

复制代码

J2

1. =VLOOKUP(J2,B:I,LOOKUP(COUNTIF(J$1:J1,J2),SUBTOTAL(9,OFFSET(C$1,J2,,,{1,3,5})),{2,4,6}),)

复制代码

K2

素心向雪

micch 发表于 2020-2-20 19:40
J2K2

这个公式下拉后不会去掉空行，最后一天日期会无限重复，对应重复的日期内容均为0
感谢回复