如何复制活动单元格的整行并将其粘贴到共享工作簿中的公式和数据验证下方

Question

我需要复制整个活动单元格行并将其自动粘贴到活动单元格行下方，包括条件格式和数据验证。但是，每次我尝试共享工作簿时，该行都会粘贴在活动行之前，而无需条件格式和数据验证。

当前 VBA

Sub AddRow ()
       With ActiveCell
              .EntireRow.Copy
              .EntireRow.Insert shift = xlDown
        End With
          Application.CutCopyMode = False
End Sub

Answer 1

试试这个

Sub AddRow()
   With ActiveCell
          .EntireRow.Copy
          ActiveCell.Offset(1, 0).EntireRow.Insert (xlShiftDown)
    End With
      Application.CutCopyMode = False
End Sub