Someone

public text v1 · immutable

#2092567

·published 2011-10-22 16:43 UTC

Sub Cointoss100()
    For i = 1 To 100
        Application.CutCopyMode = False
        Worksheets("ワークシート名").Select
        Range("B1").Select
        Selection.Copy
        Cells(i, 3).Select
        Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
            False, Transpose:=False
    Next
End Sub