Public feed #2092567

Someone

public text v1 · immutable
Raw Edit
·published 2011-10-22 16:43 UTC
rendered paste body
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