Excelvba如何实现两列表的数据统计？

swzr79

Excel工作表中，如何统计查询列在源数据列的总下线人数和直接下线人数，附件已上传。谢谢各位大神的帮助，不胜感激。

ykcbf1100

没看太明白。

就加个合计行吗？

swzr79

不要合计，效果要求如F，G列所显示那样。

tanglf188

这是传X模式，就当看不见了

swzr79

实现如F，G列的效果，我用函数已经实现了，现在想用VBA实现如F,G列的效果。

gwjkkkkk

Sub TEST()
Dim arr, i&, j&
arr = [A1].CurrentRegion
For i = 2 To UBound(arr)
    arr(i, 6) = 0: arr(i, 7) = 0
    For j = 2 To UBound(arr)
       If InStr(arr(j, 3), arr(i, 5)) Then
          arr(i, 6) = arr(i, 6) + 1
         If arr(j, 4) = arr(i, 4) + 1 Then
            arr(i, 7) = arr(i, 7) + 1
         End If
       End If
    Next j
Next i
[A1].CurrentRegion = arr
End Sub

gwjkkkkk

请楼主参考 。。。

swzr79

谢谢6楼的朋友,刚才测试了下,是我想要的效果,非常感谢!

swzr79

gwjkkkkk 发表于 2022-11-29 18:54
Sub TEST()
Dim arr, i&, j&
arr = [A1].CurrentRegion

谢谢6楼的朋友,刚才测试了下,是我想要的效果,非常感谢!

swzr79

swzr79 发表于 2022-11-29 20:11
谢谢6楼的朋友,刚才测试了下,是我想要的效果,非常感谢!

您好,6楼的朋友,我看了代码,发现您引用了D列,实际只用C,E两列,不要引用D列,麻烦能再修改下好吗?多谢多谢.