2009年6月8日星期一

EXCEL - VBA 找出最大值

Public Sub OK()
Range("C3").Select
ActiveCell.FormulaR1C1 = "=MAX(RC[-1]:R[17]C[-1])"
x = ActiveCell.Value


Range("b2").Select


While (ActiveCell.Value <> x)

ActiveCell.Offset(1, 0).Select

Wend
y = ActiveCell.Row
y = "c" & y
Range(y).Value = x

Range("C3").Value = Empty



End Sub

0 评论:

 
妹咕數位學園歡迎網友們來信指教 妹咕信箱