VBA对于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

我得到了＆＃34;运行时错误 - ＆＃39; 1004＆＃39;＆＃34;应用程序定义或对象定义的错误。任何人都可以指出我哪里错了吗？谢谢。

Answer 1

.Range（＆＃34; BU1：BU＆＃34;＆amp; LastRow）.Formula =＆＃34; = Max（BD1：BS1）＆＃34;

Answer 2

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