Question

求excel vba代码 找出符合某条件的某列中最大值所在的行并标记为黄色

如果 k 列的值为5，找出 E 列最大值的所在的行并标记C列单元格为黄色，请用vba代码完成，谢谢！

Answer 1

Sub test()
Dim i As Long '循环行号
Dim j As Long '最大值所在行号
Dim k 'E列单元格最大值
k = ""
j = 0
For i = 1 To [K65536].End(3).Row
If Cells(i, "K") = 5 Then
If Cells(i, "E").Value >= k Then
k = Cells(i, "E").Value
j = i
End If
Next i
Range("c" & i).Interior.ColorIndex = 6
End Sub

Answer 2

Sub ww()
For i = 1 To [e65536].End(3).Row
If [k1] = 5 Then
n = Application.Max(Range("e:e"))
If Cells(i, "e") = n Then
Range("c" & i).Interior.ColorIndex = 6
End If
End If
Next
End Sub

追问

您好，感谢您的回复。
我试了下 好像不得。K列的值也有其他的值，这里只考虑K列值为5的情况下找E列的最大值所在的行，并标注该行c列为黄色。

追答

在这段代码中，[K1]=5这个条件其实是可以不要的，之所以加入这个条件，是因为问题的描述中有这个条件。所以，不考虑这个条件时，代码可以为

Sub ww()
For i = 1 To [e65536].End(3).Row
n = Application.Max(Range("e:e"))
If Cells(i, "e") = n Then
Range("c" & i).Interior.ColorIndex = 6
End If
Next
End Sub