找出每行中的最大值
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) & ")"
我有三列数据:
我想找出每行的最大值并将其放在相应行的 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) & ")"