Question

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

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

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

Answer 1

尝试一下：

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

Excel VBA：查找每行中的最大值并突出显示它

1 个答案: