找出每行中的最大值

Find the maximum in each row

我有三列数据:

我想找出每行的最大值并将其放在相应行的 E 列中。
例如,第一行:41.13,第二行:2143.404 等等。

Dim LastRowIdent As Long, LastRowCant As Long

With Sheets("LOL")

    LastRowIdent = .Cells(.Rows.Count, 1).End(xlUp).Row
    .Range("A2:A" & LastRowIdent).Copy Destination:=Sheets("Animal").Range("A5") 
    LastRowCant = .Cells(.Rows.Count, 7).End(xlUp).Row
    .Range("G2:G" & LastRowCant).Copy Destination:=Sheets("Animal").Range("B5") 
        
End With
    
Application.DisplayAlerts = False
    
With Sheets("Animal")
        
    Dim NumSheet As Long
    NumSheet = ThisWorkbook.Worksheets.Count - 6
        
    Range("F:F").Copy
    Range("G:G").Resize(, NumSheet).Insert Shift:=xlToRight, Copyorigin:=xlFormatFromLeftOrAbove
            
    Range("E:E").Copy
    vRange("F:F").Resize(, NumSheet).Insert Shift:=xlToRight, Copyorigin:=xlFormatFromLeftOrAbove
        
    Range("C:C").Copy
    Range("D:D").Resize(, NumSheet).Insert Shift:=xlToRight, Copyorigin:=xlFormatFromLeftOrAbove
        
    Dim M As Long
    For M = 1 To NumSheet + 1
        Dim LastRowPrec As Long
        LastRowPrec = ActiveWorkbook.Worksheets(2 + M).Cells(.Rows.Count, 11).End(xlUp).Row - 2
        ActiveWorkbook.Worksheets(2 + M).Range("K2:K" & LastRowPrec).Copy Destination:=.Cells(5, 2 + M)
    Next M
    
End With

感谢@BigBen,我要找的是: Range(.Cells(5, 4 + NumSheet), .Cells(LastRowMax, 4 + NumSheet)).Formula = "=MAX(" & .Cells(5, 3).Address(False, False) & ":" & .Cells(5, 3 + NumSheet).Address(False, False) & ")"