VBA实现某几列列前20个最大最小数字标黄色

52aaa

VBA实现第一行中背景颜色是红色列，标记前20个最大值标黄色；第一行中背景颜色是绿色列，标记前20个最小值标黄色。谢谢

3190496160

Sub 标记颜色()
Dim rng  As Range
With Sheet1
    y = .Cells(1, Columns.Count).End(xlToLeft).Column
    For j = 2 To y
        If InStr(.Cells(1, j), "wu") > 0 Or InStr(.Cells(1, j), "liu") > 0 Then
            r = .Cells(Rows.Count, j).End(xlUp).Row
            For i = 2 To r
                xh = Application.Rank(.Cells(i, j), .Range(.Cells(2, j), .Cells(r, j)))
                If xh <= 20 Then
                    If rng Is Nothing Then
                        Set rng = .Cells(i, j)
                    Else
                        Set rng = Union(rng, .Cells(i, j))
                    End If
                End If
            Next i
            rng.Interior.ColorIndex = 6
        End If
        Set rng = Nothing
    Next j
End With
               
End Sub

3190496160

只做了第一种情况的代码，供参考
VBA实现某列最大最小前20个数字标黄色.rar (923.06 KB, 下载次数: 6)

2021-11-3 16:50 上传

点击文件名下载附件