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

这应该可以，但我建议您查看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

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

复制/粘贴错误特殊粘贴

2 个答案: