Vba 复制/粘贴错误特殊粘贴

我试图重写某人的程序，但我不熟悉VBA。我用

.End（x1Up）

和

（x1Down）

尝试了许多不同的范围。我知道

向上

是更好的选择，但它只是每次都将其粘贴在同一行中，而不会下降到下一行。以下是我的代码（许多尝试都被注释掉了）：

Sub Save_History（）
图纸（“简单计算”）。选择
范围（“A10:J10”）。选择
选择，复制
'工作表（“媒体数据历史记录”）。选择
'范围（“A65536”）。结束（xlup）。偏移量（1,0）
“如果范围（“A1”）”“那么
'范围（“A1”）。结束（xlUp）。偏移量（1，0）。选择
"完"
'范围（“A1”）。结束（xlUp）。选择
'Selection.PasteSpecial Paste:=xlPasteValues，操作：=xlNone，SkipBlanks:=False，转置：=False
端接头

这应该行得通，但我鼓励您看看

明白了

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

---

你的

If

除了浪费时间外，什么都做不了。你可以删除它，它仍然会工作。我会这样做，谢谢！

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

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