粘贴没有击中input

我正在尝试将数据（.EntireRow.Select）粘贴到新工作表（“Win”）中，而不必在select粘贴数据的位置时按Enter键。 我希望从列A开始粘贴数据，input数据的最后一行下面的第一行（lastRow在代码前面定义）。 有什么build议？ 谢谢。

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

我能用这个代码解决它：

 If Archive = "Win" Then .EntireRow.Select Selection.Copy Sheets("Win").Select ActiveSheet.Paste Sheets("Other").Select Selection.Delete End If 

谢谢！