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

Question

我正在尝试研究如何获取工作表中一行中每个范围的最大值和最小值。

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

我收到"运行时错误 -'1004'"应用程序定义或对象定义的错误。谁能指出我哪里出错了？谢谢。

Answer 1

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

Answer 2

.范围("BU1：BU" & LastRow(.公式 ="=Max(BD1：BS1(">