复制/粘贴错误特殊粘贴

Question

我试图重写某人的程序，但我不熟悉VBA。我用.End(x1Up)和(x1Down)尝试了许多不同的范围。我知道Up是更好的选择，但它每次都会将它粘贴在同一行中，而不会拖到下一行。下面是我的代码(很多尝试都被注释掉了)：

Sub Save_History()

Sheets("Simple Calculation").Select

Range("A10:J10").Select

Selection.Copy

    'Sheets("Media Data History").Select

    'Range("A65536").End(xlup).Offset(1,0)
    'If Range("A1") <> "" Then
    'Range("A1").End(xlUp).Offset(1, 0).Select
    'End If
    '   Range("A1").End(xlUp).Select

    'Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End Sub

Answer 1

明白了！！

Sub Save_History()

Sheets("Simple Calculation").Select

Range("A10:J10").Select

Selection.Copy

    Sheets("Media Data History").Select

              Range("A" & Rows.Count).End(xlUp).Offset(1).Select

    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End Sub

Answer 2

这应该是可行的，但我鼓励您看看THIS Post

Sub Save_History()

    Sheets("Simple Calculation").Select

    Range("A10:J10").Select

    Selection.Copy

    Sheets("Media Data History").Select

    Range("A65536").End(xlup).Offset(1,0).Select

    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

End Sub