插入复制的单元格并向下移动单元格

Question

VB 宏的超级新手。 我有一个带有格式的标题行，需要通过我的数据定期插入。 所以基本上我需要插入一个 static 单元格行，它总是在我的数据的顶部，周期性地贯穿下面的数据。

如何将 static 复制的单元格行插入任何给定行，然后将现有行向下移动？

这是我的尝试：

*Sub InsertTitles()
'
' InsertTitles Macro
'
' Keyboard Shortcut: Ctrl+Shift+V
'
    ActiveCell.Range("A1:J1").Select
    Selection.Copy
    Selection.Insert Shift:=xlDown
End Sub*

Answer 1

用这个替换你的代码。

   Dim r As Range, n As Integer
   n = ActiveCell.Row
   Set r = Range("A" & n & ":J" & n)
   r.Insert shift:=xlDown
   r.Offset(-1, 0).Value = Range("A1: J1").Value