[已解决]求助一个统计的代码

ryoryo66

我想统计一下,K4:S4,K5:S5,K6:S6,K7:S7分别对比一下B2:D2,看看有几个相同的个数.把统计结果写在J列.

B2:D2 是个位数,如果有相同的,只按1个统计.

范围内标红色的是方便查看.

请老师看看这个代码应该怎么写?

最佳答案

月排行榜 / 总排行榜

cutecpu

2021-9-27 11:08

ryoryo66 发表于 2021-9-28 00:12
谢谢老师了,这有个小问题.

当B2:D2出现有0的时候,统计就出错了, 这个怎么修改一下啊?

跳转到最佳答案楼层

cutecpu

ryoryo66 发表于 2021-9-28 00:12
谢谢老师了,这有个小问题.

当B2:D2出现有0的时候,统计就出错了, 这个怎么修改一下啊?

zjdh

Sub TEST()
    ARR = Range("K4:S" & Range("K65536").End(3).Row)
    BRR = Range("B2:D2")
    ReDim CRR(1 To UBound(ARR))
    For T = 1 To UBound(ARR)
        CRR(T) = 0
        For I = 1 To UBound(ARR, 2)
            For j = 1 To UBound(BRR, 2)
                If ARR(T, I) = BRR(1, j) Then CRR(T) = CRR(T) + 1
            Next: Next: Next
    Range("J4").Resize(UBound(CRR)) = Application.Transpose(CRR)
End Sub

lisongmei

Sub cout()
Dim i, j, x, k As Integer
Dim arr, arr1
arr = Range("K4:S" & [k1000].End(xlUp).Row)
arr1 = Range("b2:d2")
Columns("j:j").ClearContents
For i = 1 To UBound(arr)
    For j = 1 To UBound(arr, 2)
        For x = 1 To UBound(arr1, 2)
            If arr(i, j) = arr1(1, x) Then k = k + 1
        Next
    Next
Range("j" & i + 3) = k
k = 0
Next
End Sub

ryoryo66

zjdh 发表于 2021-9-27 11:35
Sub TEST()
    ARR = Range("K4:S" & Range("K65536").End(3).Row)
    BRR = Range("B2:D2")

谢谢老师,这个如果B2:D2有相同的数字,那么就按1个值来统计,这个需要修改一下.

ryoryo66

lisongmei 发表于 2021-9-27 11:43
Sub cout()
Dim i, j, x, k As Integer
Dim arr, arr1

谢谢老师,这个如果B2:D2有相同的数字,那么就按1个值来统计,这个需要修改一下.

cutecpu

Sub demo()
   For Each sh In Sheets
      sh.[J4:J7] = sh.[MMULT(N(COUNTIF(B2:D2,K4:S7)>0),Z1:Z9+1)]
   Next
End Sub

祝順心，南無阿彌陀佛！

excel用户1116

求助.zip (554.34 KB, 下载次数: 8)

2021-9-27 12:33 上传

点击文件名下载附件

ryoryo66

excel用户1116 发表于 2021-9-27 12:33

谢谢老师,我这个想在范围里加变量,
用arr=[] 我不会表示,弄不好了

ryoryo66

lisongmei 发表于 2021-9-27 11:43
Sub cout()
Dim i, j, x, k As Integer
Dim arr, arr1

老师,再帮我看看吧,怎么修改一下?