输入一个新的生产线，并从电池单元的上方

Question

我想创建一个Excel宏，执行下列操作复制公式：

1. 在文件末尾输入新行

2. 复制公式从上面

细胞到目前为止，我有这样的：

Sub New_Delta() 

    ' Go to last cell 
    Range("A4").Select 
    Selection.End(xlDown).Select 
    LastCell = [A65536].End(xlUp).Offset(-1, 0).Address 
    Range(LastCell).Select 

    ' Enter new line 
    Selection.EntireRow.Insert Shift:=xlUp, CopyOrigin:=xlFormatFromLeftOrAbove 

    ' Copy formula from cell above 
    Dim oCell As Range 
     For Each oCell In Selection 
      If (oCell.Value = "") Then 
      oCell.Offset(-1, 0).Copy Destination:=oCell 
      End If 
     Next oCell 

End Sub 

这会将公式用于第一小区“A”，但不是下述的

我想要做的事像Selection.Offset(0, 1).Select，然后遍历，多达“K”（优选地不“G”和“H” ）

但我卡住了，真的可以使用一些帮助。

编辑：我想是这样的（非工作伪代码）

' Copy formula from cell above 
Dim oCell As Range 
     While (oCell.Offset(-1, 0).Value != "") ' If the cell above is not empty 
     oCell.Offset(-1, 0).Copy Destination:=oCell ' Copy the formula from the cell above 
     Selection.Offset(0, 1).Select ' Move one cell to the right 

Answer 1

你可以简单地复制/插入行之前插入新行

Sub New_Delta() 

    ' Go to last cell 
    Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Select 

    ' Copy formula from cell above 
    Rows(Selection.Row - 1).Copy 
    Rows(Selection.Row).Insert Shift:=xlDown 

End Sub