Sub edit_repeat()
	Application.Repeat
	'直前の動作を繰り返します
	'モジュールの途中では行えません
End Sub