10/06/11 01:40:47
>>542
書いてみた
Sub main()
Dim C As Range
Dim strC(2500, 0) As String
For Each C In Range("A1:AX50")
strC(C.Row * C.Column, 0) = C.Row * C.Column
Next C
With Range("A1:A2501")
.Value = strC
.RemoveDuplicates Columns:=1
End With
Rows(1).Delete
End Sub