[已解决]求老师们帮忙写个函数公式

ysq435299

Book.rar (7.48 KB, 下载次数: 12)

2021-11-17 15:22 上传

点击文件名下载附件 多谢老师们帮个忙，谢谢！
就是根据F4和E4的条件，在C列中查找符合条件的最大连续天数的个数，并把结果自动录入H4中，并在G4列中显示对应的起止日期

最佳答案

月排行榜 / 总排行榜

hcm19522

2021-11-18 11:35

起止行號 G2{=SUBSTITUTE(IMSUM((MATCH(H4+1,FREQUENCY(ROW($4:27),IF(B$1:B26&C$1:C26<>E4&F4,ROW($1:26),)),)-H4^{1,0})*{1,-1}&{"","i"}),"i",)

跳转到最佳答案楼层

心正意诚身修

1. Sub 数据返回()
   
2. Dim ARR, MINR As Integer, MAXR As Integer, K As Integer, I As Integer, A As Integer, B As Integer, MINC As Integer
   
3. Dim MAXC As Integer
   
4. K = Range("B1").End(xlDown).Row
   
5. ARR = Range("A2:C" & K + 1)
   
6. For I = 1 To K - 1
   
7.     If ARR(I, 2) = Range("E2") And ARR(I, 3) = Range("F2") Then
   
8.         MINR = ARR(I, 1)
   
9.         A = A + 1
   
10.         I = I + 1
    
11.         Do While ARR(I, 2) = ARR(I - 1, 2) And ARR(I, 3) = ARR(I - 1, 3)
    
12.             A = A + 1
    
13.             I = I + 1
    
14.         Loop
    
15.             MAXR = ARR(I - 1, 1)
    
16.             A = A
    
17.             If B < A Then
    
18.                B = A
    
19.                A = 0
    
20.                MINC = MINR
    
21.                 MINR = 0
    
22.                 MAXC = MAXR
    
23.                 MAXR = 0
    
24.             End If
    
25.      End If
    
26. Next I
    
27. Range("G2") = MINC & "-" & MAXC & "号"
    
28. Range("H2") = B
    
29.         
    
30. End Sub
    

复制代码

为了你拿去就能用。所以我把你解释说明的没用的行列删除了。你要用我的附件。

ysq435299

心正意诚身修 发表于 2021-11-17 16:50
为了你拿去就能用。所以我把你解释说明的没用的行列删除了。你要用我的附件。

多谢老师解答，能用函数公式解决吗？我没学过编程，代码复杂我搞不懂。实际用的表格有许多项目，我想有公式的话我可以根据需要任意调整统计表格。谢谢！

q19252721

G4

=TEXT(MMULT(LOOKUP(,0/FREQUENCY(-9^9,1-FREQUENCY(ROW($4:$27),IF(($B$4:$B$26=E4)*($C$4:$C$26=F4),0,ROW($4:$26)))),$A$3:$A$25)-IF({1,0},MAX(FREQUENCY(ROW($4:$27),IF(($B$4:$B$26=E4)*($C$4:$C$26=F4),0,ROW($4:$26))))-2,),10^{2;0}),"#-00号")

h4

=MAX(FREQUENCY(ROW($4:$27),IF(($B$4:$B$26=E4)*($C$4:$C$26=F4),0,ROW($4:$26))))-1

cutecpu

祝順心，南無阿彌陀佛！

hcm19522

起止行號 G2{=SUBSTITUTE(IMSUM((MATCH(H4+1,FREQUENCY(ROW($4:27),IF(B$1:B26&C$1:C26<>E4&F4,ROW($1:26),)),)-H4^{1,0})*{1,-1}&{"","i"}),"i",)

ysq435299

cutecpu 发表于 2021-11-17 22:26
祝順心，南無阿彌陀佛！

多谢老师了，这个我能看懂，再次感谢感谢！

ysq435299

q19252721 发表于 2021-11-17 20:44
G4

=TEXT(MMULT(LOOKUP(,0/FREQUENCY(-9^9,1-FREQUENCY(ROW($4:$27),IF(($B$4:$B$26=E4)*($C$4:$C$26=F4 ...

多谢老师了，这个我能看懂，感谢感谢！

ysq435299

hcm19522 发表于 2021-11-18 11:35
起止行號 G2{=SUBSTITUTE(IMSUM((MATCH(H4+1,FREQUENCY(ROW($4:27),IF(B$1:B26&C$1:C26E4&F4,ROW($1:26),)) ...

多谢老师解答

AmoKat

H4 =MAX(FREQUENCY(ROW($4:$99),ROW($4:$99)*((B$4:B$99=E4)*(C$4:C$99=F4)=0)))-1
G4 =TEXT(SUM((MATCH(H4+1,FREQUENCY(ROW($4:$99),ROW($4:$99)*((B$4:B$99=E4)*(C$4:C$99=F4)=0)),)-H4^{1,0})*{100,1}),"0-00號")