0o0dグッ

挿入用マクロ

挿入用マクロ

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