フィル_下方向へコピー
Sub edit_fill_under()
	Selection.FillDown
	'選択しているセルの上のセルの内容をコピーします
End Sub

フィル＿右方向へコピー

Sub edit_fill_right()
	Selection.FillRight
	'選択しているセルの左のセルの内容をコピーします
End Sub

フィル＿上方向へコピー

Sub edit_fill_up()
	Selection.FillUp
	'選択しているセルの下のセルの内容をコピーします
End Sub

フィル_左方向へコピー

Sub edit_fill_left()
	Selection.FillLeft
	'選択しているセルの右のセルの内容をコピーします
End Sub
Cyber Click!