大小，高度，复制到另一个表单后损失的Excel单元格范围的宽度

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

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

源数据 –

复制到其他工作表之后

所以行和列的大小是失去了..如何保持这个使用macros。

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