求助，change事件运行速度超级慢

Fionaduan

每次需要复制数据A列到N列，一共40行，然后用工作表改变事件，自动计算数据填入T列到W列，但是程序运行速度超级慢，
每次复制数据，需要运行10分钟，才能填好，一共才160个单元格的数据。
哪位大神帮忙看看有什么问题，这么能优化一下，运行快点。




工作簿3.zip (19.84 KB, 下载次数: 11)

2018-12-29 01:51 上传

点击文件名下载附件
无

败不馁

Private Sub Worksheet_Change(ByVal Target As Range)
i = Target.Row
Dim m As Integer
    If Target.Column = 1 Then
        Sheet2.Cells(1, 20) = Range("B" & i + 2)
        Application.EnableEvents = False
        arr = Range("a" & i & ":l" & i + 40)
        arr2(1 To 41, 1 To 4)
        For m = 1 To 41
            arr2(m, 1) = arr(m, 1) & Range("T1")
            arr2(m, 2) = arr(m, 5) & Range("T1")
            arr2(m, 3) = arr(m, 8) & Range("T1")
            arr2(m, 4) = arr(m, 12) & Range("T1")
        Next m
       Application.EnableEvents = True
    End If
Sheet2.Range("t" & i).Resize(41, 4) = arr2
End Sub