Excel VBA：在每行中找到最大值并高亮显示

我是VBA的新手。现在我试着为我做这两件事：1。在每个行中找到最大值。2.突出显示黄色中的最大值。这样做直到排空为止。 在每行中，单元格可能包含值，也可能不包含值

我尝试使用条件格式来帮助我解决问题。但它似乎不起作用

提前感谢您提供的任何帮助。

尝试一下：

Sub HiLighter()
    ActiveSheet.UsedRange
    Dim rA As Range, r, wf As WorksheetFunction
    Dim V As Variant, RWW As Range, rr As Range
    Set rA = Intersect(Range("A:A"), ActiveSheet.UsedRange)
    Set wf = Application.WorksheetFunction
    For Each r In rA
        Set RWW = Intersect(r.EntireRow, ActiveSheet.UsedRange)
        If wf.CountA(RWW) = 0 Then Exit Sub
        V = wf.Max(RWW)
        For Each rr In RWW
            If rr.Value = V Then
                rr.Interior.ColorIndex = 6
                GoTo getaway
            End If
        Next rr
getaway:
    Next r
End Sub

---

你知道嵌套循环和如何在VBA中编码吗？我很乐意为您指出正确的方向，但如果这是您第一次使用VBA，您可能希望从教程开始，而不是要求他人为您完成手头的任务。这个问题似乎与在帮助中心定义的范围内编程无关。应该删除不包含任何代码的问题，以及需要代码解决方案的问题…突出显示行上最大值的条件格式：非常感谢您的帮助，我正在寻找VBA代码。David，我写了一些代码，不知道我们必须在这里输入代码才能提问。但是谢谢你的建议，我会记住我的下一个问题。谢谢加里的学生对我的帮助。我要试一试。