除了 VBA 中的数据，还复制宽度和高度

Question

下面的代码将数据（以及格式）从源范围复制到目标范围。

Set RngTemplate = ActiveWorkbook.Worksheets("Template").Range("A1:AD1")
Set RngTarget = ActiveWorkbook.Worksheets("File1").Range("A1:AD1")   
RngTemplate.Copy RngTarget

但我也希望将单元格宽度复制到目标范围，不知道如何实现它。

Answer 1

使用.PasteSpecial()方法

Set RngTemplate = ActiveWorkbook.Worksheets("Template").Range("A1:AD1")
Set RngTarget = ActiveWorkbook.Worksheets("File1").Range("A1:AD1")   
RngTemplate.Copy
RngTarget.PasteSpecial
RngTarget.PasteSpeical xlPasteColumnWidths
Application.CutCopyMode = False