VBA遇到列相同值或空值无法继续执行

yygroup

将表2的前10与后10在表1中对应列亮红绿灯，其他区域显示为白色，即无任何数据。
一、目前执行时遇到问题有两个
1、某列有相同的值，无法执行，比如J列有相同的值，就报错；
2、某列有空值，无法执行，比如K列，也报错；
二、需求
1、遇到相同的值，排名自动一样；
2、遇到空值列自动跳到下一列；

如下附件，请帮忙指导一下，如何修改。
test1.zip (43.52 KB, 下载次数: 12)

2018-8-31 16:20 上传

点击文件名下载附件
需求文件

yygroup

请帮忙解决一下，谢谢。

yygroup

不知道问题出在何处，大神们解决一下。

6688

Private Sub CommandButton1_Click()
Dim arr, d, i&, j%, k%
Sheet2.Activate
Sheet1.[c3:n88] = ""
arr = Range("a1").CurrentRegion
For j = 3 To 14
    Set d = CreateObject("scripting.dictionary")
    For i = 3 To UBound(arr)
        If Cells(i, j) = "" Then
        Else
        d(arr(i, j)) = Cells(i, j).Address
        End If
    Next
    For k = 1 To d.Count
        With Sheet1.Range(d(Application.Large(d.keys, k)))
            .Value = Chr(-24079)
            .Font.Color = -11489280
        End With
        With Sheet1.Range(d(Application.Small(d.keys, k)))
            .Value = Chr(-24079)
            .Font.Color = -16776961
        End With
    Next
Next
Sheet1.Activate

  Call Sheet1.sumcolor1
    Call Sheet1.sumcolor2
End Sub

yygroup

6688 发表于 2018-8-31 18:08
Private Sub CommandButton1_Click()
Dim arr, d, i&, j%, k%
Sheet2.Activate

这里说反了：将表2的前10与后10在表1中对应列亮红绿灯，其他区域显示为白色，即无任何数据。
正确的是：数字大的为前，数字小的为后，将表2的前10（绿红）与后10（红灯）在表1中对应列亮灯，其他区域显示为白色，即无任何数据。

yygroup

	关闭 [url=]上传 [/url] [url=]图片[/url] [url=]相册图片[/url] [url=]网络图片[/url]

yygroup

执行出来应该是上图的效果，但按上述代码修改后执行的结果与图不一致呀。

yygroup

哪位大神帮忙一下呀，谢谢了。