EXCEL - VBA 找出最大值

Public Sub OK()Range("C3").SelectActiveCell.FormulaR1C1 = "=MAX(RC[-1]:R[17]C[-1])"x = ActiveCell.ValueRange("b2").SelectWhile (ActiveCell.Value <> x)ActiveCell.Offset(1, 0).SelectWendy = ActiveCell.Rowy = "c" & yRange(y).Value = xRange("C3").Value = EmptyEnd Sub