エクセルマクロVBA サンプルコード辞書
トップページ（目次）130.行を下へシフトして移動
Sub 行を下へシフトして移動()
'「下へシフトして移動」
Rows("1:1").Cut
Rows("2:2").Insert Shift:=xlDown
End SubSub 行を下へシフトして移動()
'「下へシフトして移動」
Rows("1:1").Cut
Rows("2:2").Insert Shift:=xlDown
End Sub