Question

我尝试将数据（.EntireRow.Select）粘贴到新工作表（＆＃34; Win＆＃34;）中，而无需在选择粘贴数据的位置时按Enter键。我希望从A列开始粘贴数据，在输入数据的最后一行下面的第一行（lastRow在代码中先前定义）。有什么建议？谢谢。

    If Archive = "Win" Then
        .EntireRow.Select
         Application.CutCopyMode = False
         Selection.Cut
            Sheets("Win").Select
            Range("A" & lastRow + 1).Select
         ActiveSheet.Paste

Answer 1

我稍微清理了你的代码：

If Archive = "Win" Then
    EntireRow.Cut
        Sheets("Win").Range("A" & lastRow + 1).Paste

你在哪里遇到问题？

Answer 2

我能够使用此代码解决它：

data: formData,

谢谢！

粘贴而不打击输入

2 个答案: