excel统计重复个数

Posted 2023-03-15

如何统计两位数重复的有几个 红色的有几个

统计两位数重复的有几个？是要将重复的40、57、12、37这几个有重复的数字个数统计出来是4个这样吗？你会自定义函数吗？我写两个自定义 函数给你：

一、设统计某列两位数重复的有几个，函数名写为 tjc( )。为简化，括号内参数 为列序数，如A列为 1 ，B列为2。。。

二、设统计某列红底的数有几个，函数名写为 tjh( )。

按键ALT+F11，则打开VBA代码编辑器，
菜单中［插入］—［模块］，粘贴以下代码进去。

Function tjc(l As Integer)
    k = 0
    lastrow = Cells(Rows.Count, l).End(3).Row
    For i = 1 To lastrow
        If Len(Cells(i, l)) = 2 Then
            If Application.WorksheetFunction.CountIf(Range(Cells(1, l), Cells(i, l)), Cells(i, l)) = 1 Then
                 If Application.WorksheetFunction.CountIf(Range(Cells(i, l), Cells(lastrow, l)), Cells(i, l)) > 1 Then
                    k = k + 1
                 End If
            End If
        End If
    Next
    tjc = k
End Function
Function tjh(l As Integer)
    k = 0
    lastrow = Cells(Rows.Count, l).End(3).Row
    For i = 1 To lastrow
        If Cells(i, l).Interior.ColorIndex = 3 Then
            k = k + 1
        End If
    Next
    tjh = k
End Function

如要统计第2列两位数重复的有几个，结果 放在D1，请在D1输入公式：=tjc(2)

如要统计第3列红底数有几个，结果 放在D3，请在D3输入公式：=tjh(3)

测试通过。

参考技术A 如果用公式，可以统计有几个两位数，但不可以统计与颜色有关的指标。 参考技术B .........57132899........
看不懂，烦解释 参考技术C 用代码可以统计追问

我不会