VBA数值红绿灯代码修改求解

yygroup

之前实现了前5和后5亮绿灯和红灯，现在有些功能要调整，改起来有困难。
一、目前执行时遇到问题有两个1、现在的版本只能实现前5和后5，并且数值有相同时，亮灯不正确；
2、某列有相同的值，比如B、J列有相同的值，当列全部为0的时候都亮红灯，当大于1的时候，全部绿灯，其他红灯；
2、某列有空值，无法执行，比如K列，也报错；
二、需求：将表2的前5与后8在表1中对应列亮绿红灯，其他区域显示为白色，即无任何数据。
1、只能实现前5和后5，想修改成前5后8，最好是之后便于调整；
2、列有相同的值，当列全部为0的时候都亮红灯；当大于1的时候，相同的值部分全部绿灯，其他数值红灯。

YZC51

请参考
Private Sub CommandButton1_Click()
Dim arr, d, i&, j%, k%
Dim brr(), crr
Dim k1%, k2%
Sheet2.Activate
Sheet1.[b3:J26] = ""
arr = Range("a1").CurrentRegion
For j = 2 To 10
    ReDim brr(1 To UBound(arr), 1 To 2)
    For i = 3 To UBound(arr)
        brr(i, 1) = i           'Record Rows
        brr(i, 2) = arr(i, j)   'Record Number
    Next
    crr = Bubble_sort(brr)
   
    For k = 3 To 7
        k1 = crr(k, 1)
        If Not crr(k1, 2) = "" Then
            With Sheet1.Cells(k1, j)
                .Value = Chr(-24079)
                .Font.Color = -11489280
            End With
        End If
    Next
        
    For k = 3 To 10
        
        k2 = crr(UBound(brr) + 3 - k, 1)
        If Not crr(k2, 2) = "" Then
            With Sheet1.Cells(k2, j)
                .Value = Chr(-24079)
                .Font.Color = -16776961
            End With
        End If
    Next
Next
Sheet1.Activate

Call Sheet1.sumcolor1
Call Sheet1.sumcolor2
End Sub

Function Bubble_sort(brr)
Dim i, j
Dim vSwap(1 To 2)
For i = 3 To UBound(brr)
    For j = i + 1 To UBound(brr)
        If brr(i, 2) < brr(j, 2) Then
            vSwap(1) = brr(j, 1): vSwap(2) = brr(j, 2)
            brr(j, 1) = brr(i, 1): brr(j, 2) = brr(i, 2)
            brr(i, 1) = vSwap(1): brr(i, 2) = vSwap(2)
        End If
    Next j
Next i
Bubble_sort = brr
End Function