VBA对于Excel，尝试获取范围内每一行的最大值/最小值。

Question

I'm trying to work out how to get the maximum and min value for each range within a row within a sheet.

With ThisWorkbook.Sheets("API-VAL")

LastRow = .Range("A1").End(xlDown).row
.Range("BU1:BU1 +(LastRow)").Formula = "=Max(BD1:BS1)" ***- Error in this row.
.Range("BV1:BV1048576").Formula = "=Min(BD1:BS1)"

End With

I'm getting a "Runtime error -'1004'" Application-defined or object-defined error. Can anyone point out where I am going wrong? Thank you.

Answer 1

.Range（“ BU1：BU”＆LastRow）.Formula =“ = Max（BD1：BS1）”

Answer 2

.Range("BU1:BU" & CStr(LastRow)).Formula = "=Max(BD1:BS1)"