No.1
VBA中有一些系统设置，如果很好地利用这些设置参数 ， 对于应用系统编程是一个很好帮助作用 。本节将介绍一个 容易被忽略的一个属性 。
Excel操作工作表中，有一个很小的细节 ， 就是当选择某一个区域进行复制的时候 ， 这个区域就会被一个虚线框包围 。
这只是一个系统的明显标识，它是意义在于告诉操作人，这个区域进行了复制或者剪切 。
一个很简单的提示作用 。
但是，在应用中，特别是对于熟练操作Excel之后，会发现 ， 有时候并不需要这个虚线框 ， 而且也并不好看，甚至不美观 。
No.2
那么如何把它去除呢？一般这样来操作可以实现消除虚线框，保存工作表（Ctrl S），按Esc键 。
当然了 ， 最重要的还是要介绍一下这个方法 。
设置Application.CutCopyMode属性
CutCopyMode可以返回或设置剪切或复制模式的状态 。
返回三个值，分别为False、xlCopy、xlCut 。
【如何去掉Excel表格中的复制框虚线-如何去掉excel表格中的复制框虚线和实线】示例代码
Private Sub CommandButton1_Click()Dim cObj As ObjectSet cObj = Range("A4")With Range("A3").Value = "https://www.itzhengshu.com/wps/这是一个CutCopyMode示例！--'Copy' " & Date.Copy 'cObjEnd WithSelect Case Application.CutCopyModeCase Is = FalseMsgBox "不是剪切复制模式！"Case Is = xlCopyMsgBox "复制模式！"Case Is = xlCutMsgBox "剪切模式！"End SelectcObj.PasteSpecial xlPasteAllApplication.CutCopyMode = FalseRange("A1").SelectEnd Sub划重点
去掉虚线框的一个简单方法就是设置CutCopyMode值为False 。
如下代码：
Application.CutCopyMode = False
很显然，上面代码十分简单，只要设置为False就可以去掉虚线框 。
欢迎关注、收藏
---END---