A列等于a的B列的最大值 vba

来源:百度文库 编辑:神马文学网 时间:2024/04/27 17:48:34
 A列等于a的B列的最大值 vba Range("D2").FormulaArray = "=MAX((RC[-3]:R[7]C[-3]=" & """a""" & ")*RC[-2]:R[7]C[-2],1)"
********************************************
Sub A列等于a的B列的最大值()
Dim Arr1(), r%
For I = 2 To 9
If Range("a" & I).Value = "a" Then
r = r + 1
ReDim Preserve Arr1(1 To r)
Arr1(r) = Range("B" & I).Value
End If
Next
    Range("D3").Value = Application.WorksheetFunction.Max(Arr1, 1)
End Sub