您好,您的需求可以通过 VBA 添加单元格的条件格式来实现,演示代码如下:
Public Sub SetTop5()
Dim t5 As Top10
Set t5 = Union(Range("B1:B10"), _
Range("D1:D10"), _
Range("F1:F10"), _
Range("H1:H10")).FormatConditions.AddTop10
With t5
.TopBottom = xlTop10Top
.Rank = 5
.Interior.Color = &HCEC7FF
End With
Set t5 = Nothing
End Sub
在VBA代码中取消随机函数的易失性即可
你录制一个宏不就搞定了吗啊?