Question

求excel vba代码，条件：F列是不同的数值，要标记最大的8个数值的单位格底色为黄色。

如题，感谢帮助，好友有好报！

Answer 1

这玩意用条件格

式不就好了，为啥还要vba，如图所示

Answer 2

Sub zuida8()
Dim ma(8), add(8)
Dim i%
Columns(6).Interior.ColorIndex = 0
For i = 1 To 8
ma(i - 1) = WorksheetFunction.Max(Columns(6))
add(i - 1) = WorksheetFunction.Match(ma(i - 1), Columns(6), 0)
Cells(add(i - 1), 6).Interior.ColorIndex = 6
Cells(add(i - 1), 6) = ""
Next
For i = 1 To 8
Cells(add(i - 1), 6) = ma(i - 1)
Next
End Sub
'真没必要用VBA，不过给你写了段代码，也许你有别的用处

追问

非常感谢您的回答，但刚才在我看到您的代码已经采纳别的答案了，抱歉。

Answer 3

提示：冒泡排序，然后取前8个