VBAコピーペーストの値が正しくない

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 - 第2の方法は、適切に宛先範囲サイジング必要とするが、それは適切であるために好ましい、高速かつcopy/pasteの使用を回避する値

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

を割り当てますもの。