Question

如何在工作簿之间复制粘贴值，因为在所有单元格上都没有正确执行...我做错了什么？...任何建议都会非常有帮助，谢谢！

  Sub CopyPaste()

 Workbooks("LastData").Worksheets("East").Range("A3:BT3").Copy 
 Destination:=Workbooks("DATA.xlsm").Worksheets("AP").Range("A" & 
 Rows.Count).End(xlUp).Offset(1, 0)
 Application.OnTime Now + TimeValue("00:15:00"), "CopyPaste"

 End Sub

Answer 1

range1.copy range2复制公式和格式。如果您只想复制值，请使用PasteSpecial或直接指定值（后者的偏好）。

1-PasteSpecial的

Workbooks("LastData").Worksheets("East").Range("A3:BT3").Copy
Workbooks("DATA.xlsm").Worksheets("AP").Range("A" & Rows.Count).End(xlUp) _
   .Offset(1, 0).PasteSpecial xlPasteValues

2 - 分配值

Workbooks("DATA.xlsm").Worksheets("AP").Range("A" & Rows.Count).End(xlUp).Range("A2:BT2") _ 
  .Value = Workbooks("LastData").Worksheets("East").Range("A3:BT3").Value2

第二种方法需要正确调整目标范围，但最好是正确，快速并避免使用copy/paste内容。

VBA复制粘贴值不正确

1 个答案: