Excel VBA使用SendKeys粘贴数据后跳转工作表异常问题求解

你遇到的问题根源是最后调用SendKeys "^v"时没有指定第二个参数为True，VBA默认不会等待按键指令执行完成，就会直接运行下一行激活Sheet1的代码，导致粘贴动作最终作用在刚激活的Sheet1上。

快速修复方案 #

把代码最后几行的：

SendKeys "^v"
Worksheets("Sheet1").Activate

修改为：

SendKeys "^v", True
Application.Wait Now + TimeValue("00:00:01") ' 额外增加1秒缓冲保证粘贴动作完成
Worksheets("Sheet1").Activate

更稳定的优化方案（推荐） #

你完全可以跳过SendKeys粘贴的逻辑，直接用Excel自带的粘贴方法，彻底避免时序问题：
把最后一段代码：

AppActivate "Microsoft Excel"
Application.Wait Now + TimeValue("00:00:01")
Worksheets("Sheet2").Activate
Application.Wait Now + TimeValue("00:00:01")
ActiveSheet.Range("E70").Select
Application.Wait Now + TimeValue("00:00:01")
SendKeys "^v"
Worksheets("Sheet1").Activate

替换为：

AppActivate "Microsoft Excel"
Application.Wait Now + TimeValue("00:00:01")
' 直接调用内置粘贴方法，不需要激活工作表、选中单元格、调用SendKeys
Worksheets("Sheet2").Range("E70").PasteSpecial Paste:=xlPasteAll
Application.CutCopyMode = False ' 清空剪贴板状态
Worksheets("Sheet1").Activate

该方案完全规避了SendKeys的不可靠特性，不会再出现粘贴错位的情况。

额外注意 #

你代码中其余的SendKeys调用如果也出现时序异常，都可以把第二个参数设置为True，让VBA等待按键执行完成后再继续运行后续代码，能大幅降低类似问题的出现概率。

内容的提问来源于stack exchange，提问作者Grant Rodkey