为许多单元格设置类似的公式

Question

目前我使用下面的代码来查找最大值。此代码在网络搜索中找到。并根据我的说法做了如下修改。

Sub OPTION_MAX()
ActiveSheet.Range("BU2").FormulaArray = "=MAX(IF(BC$2:BC$3000=$BM2,BE$2:BE$3000))"
ActiveSheet.Range("BU3").FormulaArray = "=MAX(IF(BC$2:BC$3000=$BM3,BE$2:BE$3000))"
ActiveSheet.Range("BU4").FormulaArray = "=MAX(IF(BC$2:BC$3000=$BM4,BE$2:BE$3000))"
ActiveSheet.Range("BU5").FormulaArray = "=MAX(IF(BC$2:BC$3000=$BM5,BE$2:BE$3000))"
ActiveSheet.Range("BU6").FormulaArray = "=MAX(IF(BC$2:BC$3000=$BM6,BE$2:BE$3000))" 
End Sub

这些线条最多可达3000行，但非常冗长。有人可以帮我缩短这段代码。

Answer 1

这个怎么样？

ActiveSheet.Range("BU2:BU3000").FormulaArray = "=MAX(IF(R2C55:R3000C55=RC55,R2C57:R3000C57))"