張り付け
Sub edit_paste() ActiveSheet.Paste
'選択シートにクリップボードの内容を張り付けます
End Sub
Cyber Click!