尺寸，高度，excel单元格范围的宽度在复制到另一张纸后丢失

Question

想要将数据从一张纸复制到另一张纸。但是，在复制数据后，它会丢失行和列的大小。

 Sheets("Chart1").Range("A1:Q1000").Clear
 Sheets("UI Response").Range("A" & 1 & ":" & "B" & uiPerfTo).Copy Destination:=Sheets("Chart1").Range("A" & 1 & ":" & "B" & uiPerfTo)

来源数据 -

复制到另一张工作表

之后

因此行和列的大小会丢失。如何使用宏来维护它。

Answer 1

试试这个：

Sheets("Chart1").Range("A1:Q1000").Clear

Sheets("UI Response").Range("A" & 1 & ":" & "B" & uiPerfTo).Copy
Sheets("Chart1").Range("A" & 1 & ":" & "B" & uiPerfTo).PasteSpecial Paste:=xlPasteColumnWidths
Sheets("Chart1").Range("A" & 1 & ":" & "B" & uiPerfTo).PasteSpecial Paste:=xlPasteValues

Application.CutCopyMode = False