[已解决]求助：如何把最大连出空值所对应的数字记录下来？

cys888

请教各位老师，谢谢！

最佳答案

月排行榜 / 总排行榜

尛ぃ謉

2013-7-11 11:09

堆一个

1. =IF(OR((MOD(MAX(FREQUENCY($AG2:$CK2,IF(ISNUMBER($AG5:$CK5),$AG5:$CK5,1))/1%+ROW(1:58)),100)-ROW(A1:INDEX(A:A,MAX(FREQUENCY($AG2:$CK2,IF(ISNUMBER($AG5:$CK5),$AG5:$CK5,1)))+1))+(MOD(MAX(FREQUENCY($AG2:$CK2,IF(ISNUMBER($AG5:$CK5),$AG5:$CK5,1))/1%+ROW(1:58)),100)<58))=AG2),AG2,"")

复制代码

数组公式
AG3输入
详见附件

跳转到最佳答案楼层

w2001pf

不清楚要求。

爱疯

比如选择AG5，按ctrl+右，应跳到AS5，可却到了CK5
奇怪，这是为什么呢？

cys888

w2001pf 发表于 2013-7-11 09:33
不清楚要求。

如果(AG5：CK5)的最大连出空值是在(AG5：AS5)这一段，那么就把(AG5：AS5)所对应的(AG2：AS2)的数字1到13分别记录在(AG3：AS3)。

cys888

爱疯 发表于 2013-7-11 09:47
比如选择AG5，按ctrl+右，应跳到AS5，可却到了CK5
奇怪，这是为什么呢？

表格应该没问题吧？

尛ぃ謉

爱疯 发表于 2013-7-11 09:47
比如选择AG5，按ctrl+右，应跳到AS5，可却到了CK5
奇怪，这是为什么呢？

=AG5:CL5=
{"","","","","","","","","","","","",13,"","","","",18,"","","","",23,"","",26,"","",29,30,"","","",34,"","","","","","","","","","",45,46,"","",49,"","","","",54,"",56,57,0}

sliang28

爱疯 发表于 2013-7-11 09:47
比如选择AG5，按ctrl+右，应跳到AS5，可却到了CK5
奇怪，这是为什么呢？

假空单元格吧！

爱疯

1. 
   
2. Sub test()
   
3.     Dim A, j
   
4.     Dim m   '上次的空格数
   
5.     Dim n   '最多空格的空格数
   
6.     Dim x1  '上次起点
   
7.     Dim y1  '上次终点
   
8.     Dim x2  '最多空格起点
   
9.     Dim y2  '最多空格终点
   
10. 
    
11. 
    
12.     A = [ag2:ck5]
    
13.     x1 = 1
    
14. 
    
15.     For j = 1 To UBound(A, 2)
    
16.         y1 = j
    
17.         If A(4, j) = "" Then
    
18.             m = m + 1    '累计空格数
    
19.         Else
    
20.             If m > n Then
    
21.                 x2 = x1: y2 = j: n = m    '更新最多空格区
    
22.             End If
    
23.             m = 0: x1 = j
    
24.         End If
    
25.     Next j
    
26. 
    
27.     Rows(3).ClearContents    '32 = Range("ag2").Column - 1
    
28.     Range(Cells(3, x2 + 32), Cells(3, y2 + 32)) = Range(Cells(2, x2 + 32), Cells(2, y2 + 32)).Value
    
29. End Sub
    

复制代码

Book1b.rar (9.61 KB, 下载次数: 5)

2013-7-11 10:53 上传

点击文件名下载附件

尛ぃ謉

堆一个

1. =IF(OR((MOD(MAX(FREQUENCY($AG2:$CK2,IF(ISNUMBER($AG5:$CK5),$AG5:$CK5,1))/1%+ROW(1:58)),100)-ROW(A1:INDEX(A:A,MAX(FREQUENCY($AG2:$CK2,IF(ISNUMBER($AG5:$CK5),$AG5:$CK5,1)))+1))+(MOD(MAX(FREQUENCY($AG2:$CK2,IF(ISNUMBER($AG5:$CK5),$AG5:$CK5,1))/1%+ROW(1:58)),100)<58))=AG2),AG2,"")

复制代码

数组公式
AG3输入
详见附件

cys888

谢谢各位老师的热心帮忙！