[已解决]先按ESC ，再运行代码

hoogle

Sub 宏2()
Rows("3:3").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrBelow
Range("D4:E4").Select
Selection.Copy
Range("D3").Select
ActiveSheet.Paste
Range("a3") = Range("a4") + 1
Range("b3").Select
End Sub
以上这段代码，我在第一行加个“application.sendkeys "{Esc}"”，还不实现清空剪切板，这样的话如果复制内空后运行代码时提示错误，应当如何修改，先清空剪切板再运行代码。

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2012-11-6 10:55

application.cutcopymode=false

跳转到最佳答案楼层

hwc2ycy

application.cutcopymode=false

hwc2ycy

1. Application.CutCopyMode = False

复制代码

hwc2ycy

Application.CutCopyMode 属性
返回或设置剪切或复制模式的状态。可为 True、False 或如下表所示的一个 XLCutCopyMode 常量。Long 类型，可读写。
语法

表达式.CutCopyMode

表达式   一个代表 Application 对象的变量。

说明


返回值 说明
False 不处于剪切或复制模式。
xlCopy 处于复制模式。
xlCut 处于剪切模式。

设置值 说明
False 取消剪切或复制模式并清除移动边框。
True 取消剪切或复制模式并清除移动边框。

无聊的疯子

直接插入再赋值不是更方便？？

1. 
   
2. Sub 宏2()
   
3.   Rows("3:3").Insert -4124, 1
   
4.   Range("D3").Resize(, 2).Value = Range("D4:E4").Value
   
5. End Sub
   

复制代码

hoogle

SendKeys "{esc}", True  zjcat35的答案