Question

问题是将复制的范围粘贴到具有原始格式的另一张工作表中（例如，源列的宽度到目标列的宽度）。我尝试将代码“ Paste：= xlPasteColumnWidths”与“ Paste：= xlPasteValues”结合使用。但这并不成功。例如，通过编写“ .PasteSpecial xlPasteColumnWidths”，不会产生任何复制的值。

  With wq.Sheets("Table 5").Range("A1:W51").Copy
  End With

  With ws.Range("A6")
 .PasteSpecial xlPasteColumnWidths
  End With

Answer 1

我的问题的答案是：

 With wq.Sheets("Table 5").Range("A1:W51").Copy
 ws.Range("A01").PasteSpecial xlPasteAll
 ws.Range("A01").PasteSpecial xlPasteColumnWidths
 ws.Range("A:W").EntireRow.AutoFit
End With

VBA将值和ColumnWidths复制并粘贴在一起

1 个答案: