条件计数

yf_home

  如何按照指定倍数进行条件计数，谢谢！

   附件， 计数.zip (15.06 KB, 下载次数: 6)

2020-1-14 11:20 上传

点击文件名下载附件

一把小刀闯天下

'还要总数，，，

Option Explicit

Sub test()
  Dim arr, i, j, dic, m
  Set dic = CreateObject("scripting.dictionary")
  arr = range("k3:k" & Cells(Rows.Count, "k").End(xlUp).Row)
  ReDim mark(2 To UBound(arr, 1))
  j = 9
  For i = 2 To UBound(mark)
    j = j + 8: mark(i) = j
  Next
  For i = 1 To UBound(arr, 1)
    If Len(arr(i, 1)) Then dic(arr(i, 1)) = dic(arr(i, 1)) + 1
  Next
  arr = Application.Transpose(Array(dic.keys, dic.items, dic.items))
  For i = 1 To UBound(arr, 1)
    If arr(i, 2) <= 8 Then
      arr(i, 3) = 1: m = m + 1
    Else
      For j = 2 To UBound(mark)
        If arr(i, 2) <= mark(j) Then arr(i, 3) = j: m = m + 1: Exit For
      Next
    End If
  Next
  [ab1] = Format(m, "总数：0")
  [z2].Resize(UBound(arr, 1), 3) = arr
End Sub

yf_home

一把小刀闯天下 发表于 2020-1-14 12:27
'还要总数，，，

Option Explicit

感谢帮助，技法娴熟！

但是，总数，结果不对，如下图所示：



麻烦再帮忙看看，谢谢！

yf_home

正确结果是，51

其实我只想这个结果，51，
就可以了，

不过兄台的解法不错，把过程都列出来了，更便于理解，谢谢！

yf_home

最理想的结果是一个自定义函数，比如：
统计(区域或数组)=51

这样调用最方便，简洁。

一把小刀闯天下

yf_home 发表于 2020-1-14 13:46
正确结果是，51

其实我只想这个结果，51，

我还以为是计数，原来是累加，相应行修改一下就可以了：

If arr(i, 2) <= mark(j) Then arr(i, 3) = j: m = m + j: Exit For