复制/粘贴错误特殊粘贴

我试图重写某人的程序，但是我不熟悉VBA。 我用.End(x1Up)和(x1Down)尝试了很多不同的范围。 我明白Up是更好的select，但它每次都会将它粘贴在同一行，而不会下降到下一个。 这是我的代码（许多尝试已被注释掉）：

 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("A65536").End(xlup).Offset(1,0).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False End Sub 

Answer 2

得到它了！！

 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