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

复制宽度和高度以及VBA中的数据

1 个答案: