求宏：统计指定三数相连出现最长是多少单元格

xljzhzhf · 发表于 2009-5-4 13:06

太难了，我不会。高人来吧……

hupanshan · 发表于 2009-5-4 13:29

求宏：统计指定三数相连出现最长是多少单元格.rar (8.86 KB, 下载次数: 14)

一意孤行 · 发表于 2009-5-4 13:38

可以直接用数组公式得到结果。
如果一定要宏的话，可以用下面的语句

Application.Evaluate("MAX(FREQUENCY(IF(MMULT(--(A1:A26=C2:E2),ROW(1:3)^0),ROW(A1:A26)),IF(MMULT(--(A1:A26<>C2:E2),ROW(1:3)^0)=3,ROW(A1:A26))))")

dazigaoshou · 发表于 2009-5-4 14:10

谢谢！问题解决了！！！谢谢各位，谢谢hupanshan!!!!

dazigaoshou · 发表于 2009-5-4 14:17

谢谢一意孤行的函数！！！高手！！反应速度快！

dazigaoshou · 发表于 2009-5-4 14:31

请问，要是函数的话，如何设置？？

lzy02002 · 发表于 2009-5-4 15:09

我来迟了，通用型 RngTarget 目标区域， RngRule 条件区域（对应本例中C2：E2）
Function xx(RngTarget As Range, RngRule As Range) As Integer
Dim array_a, array_b, array_c, array_d, i As Long, j As Long
array_a = RngTarget
ReDim array_b(1 To UBound(array_a) + 1, 1 To 1)
ReDim array_c(1 To UBound(array_a) + 1, 1 To 1)
array_b(1, 1) = Application.CountIf(RngRule, array_a(1, 1))
array_c(1, 1) = array_b(1, 1)
For i = 2 To UBound(array_a)
      array_b(i, 1) = Application.CountIf(RngRule, array_a(i, 1))
      array_c(i, 1) = array_b(i, 1) * (array_c(i - 1, 1) + array_b(i, 1))
      If array_c(i, 1) = 0 And array_c(i - 1, 1) > 0 Then
         array_d = Application.CountIf(Range(Cells(i - array_c(i - 1, 1), 1), Cells(i - 1, 1)), RngRule)
         If Not CBool(Application.Product(array_d)) Then
         For j = i - 1 To i - array_c(i - 1, 1) Step -1
         array_c(j, 1) = 0
         Next
         End If
      End If
Next
xx = IIf(Application.Max(array_c) > 2, Application.Max(array_c), 0)
End Function

lzy02002 · 发表于 2009-5-4 15:24

还是 hupanshan 简洁阿，Instr 那句中的 * 设得真巧妙阿....我是想不出这样写..... 好好学习了

dazigaoshou · 发表于 2009-5-4 17:34

不迟，谢谢你的帮助！！lzy2002！！

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

[求助] 求宏：统计指定三数相连出现最长是多少单元格

最新热点 /1