- 81 名前：デフォルトの名無しさん [2007/12/19(水) 10:06:52 ]
- Sub rand()
yarinaosi:
Range("D" & 1).Formula = _
"=round(rand(),1)*10"
i = Range("D1").Value
If i = 0 Then GoTo yarinaosi
Range("A" & i).Select
Selection.Cut
Range("B" & i).Select
ActiveSheet.Paste
Range("A1:A10").Clear
Range("B" & i).Select
Selection.Cut
ActiveCell.Offset(0, -1).Select: ActiveSheet.Paste
End Sub
