10/08/04 23:09:35
書き込もうとしたら移転が始まって出遅れた
マクロ半分、数式半分でお手軽にやってみた
Sub aaa()
Application.ScreenUpdating = False
Application.Calculation = xlManual
r1 = 1
r2 = 1
While Cells(r1, 1) <> ""
While Cells(r2, 1) = Cells(r1, 1)
r2 = r2 + 1
Wend
For i = r1 To r2 - 1
Cells(i, 18).Formula = "=ROUND(Q" & i & "/MIN(Q" & r1 & ":Q" & r2 - 1 & ")*100,0)"
Next
r1 = r2
Wend
Application.Calculation = xlAutomatic
Application.ScreenUpdating = True
End Sub