插入復制的單元格並向下移動單元格

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