宏从一张纸复制到另一张纸并升序排序

Question

我在工作表“员工访问详细信息”中有一个数组公式。 （值从 A 列到 D 列，数组公式延伸到第 1530 行）。

我想将这些值复制到另一个名为“Employee Access Arranged”的工作表并粘贴为值，然后根据 C 列升序排序。我有一个正在运行的代码，如下所示：-

    Private Sub CommandButton1_Click()

     ActiveWorkbook.RefreshAll

     Sheets("Employee Access Arranged").Range("A2:D" & Sheets("Employee 
     Access Arranged").Range("A" & Rows.Count).End(xlUp).Row).ClearContents

     With Sheets("Employee Access Detail")
    .Range(.Range("A4"), .Cells(.Rows.Count, "D").End(xlUp)).Copy
     End With

    With Sheets("Employee Access Arranged")
    .Cells(.Rows.Count, "A").End(xlUp)(2).PasteSpecial Paste:=xlPasteValues
    End With

    Application.CutCopyMode = False

    Range("C2").CurrentRegion.Select
    Selection.Sort Key1:=Range("C2"), Order1:=xlDescending, Header:=xlGuess, _
    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
    DataOption1:=xlSortNormal

    Worksheets("Employee Access Arranged").Activate
    Range("A2").Activate

     End Sub

现在，仅粘贴这些值并安排升序此代码需要几分钟，而且由于必须多次执行此操作，效率不高。

如果有办法让这段代码更有效率，我将不胜感激。我认为问题在于我如何复制这些值。

提前感谢您的帮助。欣赏它。

Answer 1

您的复制/粘贴/排序代码似乎足够高效，我认为这不是您滞后的原因。我怀疑Activeworkbook.RefreshAll 可能是问题所在 - 尝试将其注释掉以查看性能是否有所提高。

复制/粘贴/排序会减慢该过程，因为此类操作会与电子表格交互，而读取/写入/更新需要处理能力。请尝试以下操作：

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.EnableEvents = False

` Your code here

Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True