在excel中，用vba实现:在任意位置插入一行后，该行能自动复制上一行的所有公式及格式

caozheng510

在excel中，用vba实现:在任意位置插入一行后，该行能自动复制上一行的所有公式及格式。表格见附件

caozheng510

求高手给处编码

caozheng510

高手在哪里求解答

caozheng510

高手给一个编码公式解决问题

caozheng510

高手在哪里，请求帮助

caozheng510

高手在哪里，请求帮助

caozheng510

找到了一个编码，但是复制的只是上面的内容，不是上面的公式，不知道该如何调试，求高手解答调试
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    With Target
        If .Row = 1 And .Cells(1, 1) <> "" Then Exit Sub
        If .Cells(0, 1) = "" Then Exit Sub
        Dim c As Range, rg As Range
        Set rg = Application.Intersect(.Rows(0).EntireRow, .Worksheet.UsedRange)
        If rg Is Nothing Then Exit Sub
        Application.ScreenUpdating = False
        Application.EnableEvents = False
        For Each c In rg
            If c.HasFormula = True Then c.Resize(2).FillDown
            Next
        Application.EnableEvents = True
        Application.ScreenUpdating = True
    End With
    End Sub

caozheng510

高手在哪里，请求帮助

百度不到去谷歌

录制一个宏即可
操作如下 复制上一行 然后在下一行位置 右键 插入复制行
得到的代码就是你要的

zax010

录制的宏：

Sub Macro1()
   a = ActiveCell.Row
    Rows(a).Insert Shift:=xlDown
    Rows(a - 1).Copy
    Range("A" & a).PasteSpecial Paste:=xlPasteFormats
    Range("A" & a).PasteSpecial Paste:=xlPasteFormulas
End Sub

试一试吧。