소수점 위치별 빈도와 최대값

Option Explicit
Sub Macro()
 
    Dim vCount%(2, 9), vMax$(2, 1)
    Dim rngPaste(2) As Range
    Dim vNum, v, vTemp%(9)
    Dim vAfPoint, i%, j%
    Dim a%, b%, c%
    
    vNum = Range("B3", Cells(Rows.Count, 2).End(3))
    Set rngPaste(0) = Range("E5")
    Set rngPaste(1) = Range("E9")
    Set rngPaste(2) = Range("E13")
        
    For Each v In vNum
 
        If InStr(v, ".") Then
            
            vAfPoint = Split(v, ".")(1)
            
            For i = 0 To 2
                
                j = Mid(vAfPoint, i + 1, 1)
                vCount(i, j) = vCount(i, j) + 1
                
            Next i
            
        End If
    Next v
    
    For i = 0 To 2
        
        For j = 0 To 9
            rngPaste(i).Offset(, j) = vCount(i, j)
            vTemp(j) = vCount(i, j)
        Next j
        
        a = WorksheetFunction.Max(vTemp)
        c = WorksheetFunction.CountIf(rngPaste(i).Resize(, 10), a)
        b = WorksheetFunction.Large(vTemp, c + 1)
        
        For j = 0 To 9
            Select Case vTemp(j)
            
                Case a
                
                    Select Case LenB(vMax(i, 0))
                        Case 0: vMax(i, 0) = j
                        Case Else: vMax(i, 0) = vMax(i, 0) & "," & j
                    End Select
                    
                Case b
                    Select Case LenB(vMax(i, 1))
                        Case 0: vMax(i, 1) = j
                        Case Else: vMax(i, 1) = vMax(i, 1) & "," & j
                    End Select
            End Select
        Next j
        
    Next i
        
    Range("F17").Resize(3, 2) = vMax
    
End Sub

예제시트.xlsm