マクロを使用して値を貼り付ける際のエラー

Question

なぜ私のコードは貼り付け値の下にしかありませんか？ 結果で値の代わりに数式が貼り付けられます。 誰も助けることができますか？

次のように私のコードを確認してください：

Sheets("Invoice Print").Activate Range("F21:F27").Select Selection.SpecialCells(xlCellTypeFormulas, 1).Select Selection.Copy Sheets("Outgoing Goods").Select Cells(Rows.Count, 1).Range("K1").End(xlUp).Offset(1, 0).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False ActiveSheet.Paste Application.CutCopyMode = False

は間違いはありますか？

PS：私はお知らせください

エクセル2013を使用しています。

ありがとうございます。

Answer 1

はまた、あなたが.SelectとSelection.を使うべきではありません右ActiveSheet.Paste

と次の行に貼り付けられた値を上書きします。

Sheets("Invoice Print").Range("F21:F27").SpecialCells(xlCellTypeFormulas, 1).Copy 

With Sheets("Outgoing Goods") 
.Cells(.Rows.Count, 1).Range("K1").End(xlUp).Offset(1, 0).PasteSpecial _ 
     Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False 

    'This line would overwrite the pasted values with not explecit values only 
    'ActiveSheet.Paste 
    Application.CutCopyMode = False 
End With 

希望があります。