挿入用マクロ

挿入用マクロ

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