【求代码优化】插入行后自动复制上一行公式的两个BUG修正，在线等~~~~~~~~~~~~~

keaney

以下是插入行后自动复制上一行公式的代码，但代码存在两个bug，求坛友们、大神们帮助~

bug1：插入行后，无法进行后退返回
bug2：无法按F4进行连续插入
附件供参考 插入行自动复制上一行公式(但无法返回及F4无效).rar (12.73 KB, 下载次数: 13)

2018-7-21 11:35 上传

点击文件名下载附件

———————————华丽的分隔线—————————————

Private Sub Worksheet_Change(ByVal Target As Range)
    a = Target.Row()
    b = Target.Column()
    Application.ScreenUpdating = False
    If a <> 1 Then
            For x = 1 To 256
                If Cells(a - 1, x).HasFormula = True Then
                    Cells(a - 1, x).Copy
                    Cells(a, x).Select
                    Application.EnableEvents = False
                    ActiveSheet.Paste
                    Application.EnableEvents = True
                    Application.CutCopyMode = False
                End If
            Next x
            Cells(a, b).Select
    End If
    Application.ScreenUpdating = True
End Sub

c001q

不可以了，这个你看帮助就知道了。

Application.Undo 方法
撤消最后一次用户界面操作。

语法
表达式.Undo
表达式   一个代表 Application 对象的变量。

说明
本方法仅撤消运行该宏之前的最后一个用户操作，并且必须将其放到宏的第一行。本方法不能用于撤消 Visual Basic 命令。

keaney

c001q 发表于 2018-7-21 11:59
不可以了，这个你看帮助就知道了。

Application.Undo 方法

那按F4能连续插入行的bug能解决吗？