VBA Excel - 复制和粘贴列宽/分组

Question

我正在尝试将整个工作表从“DNU”复制到每个进行中的工作表中。我希望定期粘贴以保持宽度和分组，但这只会粘贴公式和表格式。谢谢。

这是代码：

~

Dim wsVar As Worksheet
Dim i as Integer
With ThisWorkbook
    For i = 6 to .Worksheets.Count
        .Worksheets("DNU").Range("A1:Y200").Copy destination:=.Worksheets(i).Range("A1:Y200")
    Next 
End With