计数值为行中最小值的个数

Cindy_Blue

大神，求助。
我想计算，值为对应行中最小值的个数，忽然卡住了，不知道公式该怎么写了。
求助怎么写公式呀？

我走我流

=COUNT(0/(B$2:B$5=SUBTOTAL(5,OFFSET($B$1:$C$1,ROW($1:$4),))))

gwjkkkkk

Option Explicit
Sub TEST1()
    Dim ar, br, i&, j&, strJoin$, n&
   
    ar = [B2].CurrentRegion
    For i = 2 To UBound(ar)
        strJoin = strJoin & "," & WorksheetFunction.Min(Application.Index(ar, i))
    Next i
    strJoin = strJoin & ","
   
    ReDim br(1 To UBound(ar, 2))
    For j = 1 To UBound(ar, 2)
         n = 0
         For i = 2 To UBound(ar)
             If InStr(strJoin, "," & ar(i, j) & ",") Then
                  n = n + 1
             End If
         Next i
         br(j) = n
    Next j
   
    [B7].Resize(, UBound(br)) = br
End Sub

gwjkkkkk

请参考附件。。。

niko88819

gwjkkkkk 老师您在D7单元格怎么得到1 , 实际为0 才对

C7单元格

1. =MinCount(B2:B5)

复制代码

1. Public Function MinCount(ColumnR As Range) As Variant
   
2.    Dim cell As Range
   
3.    If ColumnR.Columns.Count > 1 Then
   
4.       MinCount = "#COLUMN!"
   
5.    Else
   
6.       MinCount = 0
   
7.       For Each cell In ColumnR
   
8.          If cell = Application.WorksheetFunction.Min(Rows(cell.Row)) Then
   
9.             MinCount = MinCount + 1
   
10.          End If
    
11.       Next cell
    
12.    End If
    
13. End Function

复制代码

liulang0808

Sub 按钮1_Click()
    str1 = ""
    arr = [B1].CurrentRegion
    For j = 2 To UBound(arr)
        mn = WorksheetFunction.Min(Application.Index(arr, j))
        For i = 1 To UBound(arr, 2)
            If Val(arr(j, i)) = mn Then
                arr(1, i) = Val(arr(1, i)) + 1
            Else
                arr(1, i) = Val(arr(1, i))
            End If
        Next i
        str1 = str1 & "#" & mn
    Next j
    [g2].Resize(UBound(arr) - 1) = WorksheetFunction.Transpose(Split(Mid(str1, 2), "#"))
    [B8].Resize(1, UBound(arr, 2)) = arr
End Sub