挿入用マクロの変更点

追加された行はこの色です。
削除された行はこの色です。
挿入用マクロへ行く。

挿入用マクロ

 Sub Row_Insret()
 
 ' Row_Insret
 ' マクロ記録日 : 2001/5/23  ユーザー名 : Massy.Keegan
 '
 ' Keyboard Shortcut: Ctrl+i
 '
 'カーソル位置の記録
 　　Dim c, r
 　　c = ActiveCell.Column
 　　r = ActiveCell.Row
 '行の挿入
 　　Application.CutCopyMode = False
 　　Selection.EntireRow.Insert
 
 　　Range("ORG_K").Select
 　　Application.CutCopyMode = False
 　　Selection.Copy
 　　Range("EXP_K").Select
 　　Selection.PasteSpecial Paste:=xlFormulas, Operation:=xlNone, SkipBlanks:= _
 　　　　False, Transpose:=False
 　　Range("ORG_Q").Select
 　　Application.CutCopyMode = False
 　　Selection.Copy
 　　Range("EXP_Q").Select
 　　Selection.PasteSpecial Paste:=xlFormulas, Operation:=xlNone, SkipBlanks:= _
 　　　　False, Transpose:=False
 　　Application.Goto Reference:="R" & r & "C" & c
 End Sub

挿入用マクロ の変更点

挿入用マクロの変更点