挿入用マクロ
挿入用マクロ
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