07/07/07 14:28:49
Sub CHEATFROM2CH()
For c = 2 To 5
val1 = 0
val2 = ""
For r = 2 To 5
If Cells(r, c) > val1 Then
val1 = Cells(r, c)
val2 = Cells(r, 1)
ElseIf Cells(r, c) = val1 Then
val1 = val1
val2 = val2 & "と" & Cells(r, 1)
ElseIf Cells(r, c) < val1 Then
val1 = val1
val2 = val2
End If
Next r
Cells(12, c) = val1 & "円の" & val2
Next c
End Sub
もっと削れるけど、このままの方がわかり易くていいだろ…