Question

Excel宏 运行时错误“1004”，类Worksheet的Paste 方法无效

Sheets("1601051U4").Select
Range("A2057").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("1601050U4").Select
Rows("2057:2058").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("1601051U4").Select
Range("A2062").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Rows("2057:2077").Select

Answer 1

Worksheet的Paste 执行的是 “粘贴”命令。
之所以 出现错误，是因为 执行“粘贴” 代码 之前 没有 执行“复制”的语句。
------------
比如 复制 A1 单元格，粘贴到 别处。 可以 看看 下面的 语句：
Sheets("1601051U4").Select
Range("A1").Copy '（该行是我 加的，你看看就行。不要轻易 执行它，以免覆盖了 有用的文件信息）
Range("A2057").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("1601051U4").Select
Rows("2057:2058").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("1601051U4").Select
Range("A2062").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Rows("2057:2077").Select

Answer 2

运行时错误，也不是语法错了，看代码没用，得调试才能知道