Excel 使用VBA将所有格式从一张图纸复制到另一张图纸

我使用以下代码将值从一张图纸复制到另一张图纸

Lastrow = WAEnv.Cells(Rows.Count, 1).End(xlUp).Row
Xrow = 1

lcol = Cells(3, Columns.Count).End(xlToLeft).Column
vArr = Split(Cells(1, lcol).Address(True, False), "$")

Debug.Print Xrow
For Rw = 3 To Lastrow
    Set Rng = WAEnv.Range("A" & Rw & ":" & vArr(0) & Rw)

    If Rng(1, 1).Value > 0 Then
        ReDim Preserve DstArr(1 To lcol, 1 To Xrow)
        Xcol = 1

        For Each cl In Rng.Columns.Cells
            DstArr(Xcol, Xrow) = cl.Value
            Xcol = Xcol + 1
        Next cl

        WAPatch.Cells(Xrow, 1).RowHeight = Rng(1, 1).RowHeight
        Xrow = Xrow + 1
    End If
Next Rw

WAPatch.Range("A3").Resize(UBound(DstArr, 2), UBound(DstArr, 1)).Formula = Application.Transpose(DstArr)

我已经知道，我可以使用cpy的所有格式，但下面的代码是非常缓慢的，所以我使用上述数组方法

WAEnv.Cells(i, j).Copy
WAPatch.Cells(ro, j).PasteSpecial Paste:=xlPasteAll

---

如果有一种方法可以使用我一直使用的数组方法将所有格式从一张工作表复制粘贴到另一张工作表，我在寻找什么？

使用

xlPasteFormats

仅粘贴格式。最快的方法是一次将其应用于所有单元格，即从源代码中的一行复制，然后一次粘贴到所有角色。使用

xlPasteFormats

仅粘贴格式。最快的方法是一次将其应用到所有要应用的单元格，即从源代码中的一行复制它，然后一次将其粘贴到所有角色。