按 Ctrl 键 的苦恼....

每个人都应该遇到过下面的难题，非常的苦恼：

当你在按Ctrl键选取多个单元格区域，然突手一 抖选错了，无论你请教高人或搜百度，只会有一个答案：重选。

兰色也一直想解决这个难题，无奈实验了很多excel方法，均不成功。怎么办，只要发大招了，使用VBA。

使用方法：（WPS需要安装VBA插件才可以使用）

1、在工作表标题上右键单击，点击“查看代码”后会打开一个新的窗口(Visual Basica...俗称VBA编辑器)

2、双击右上方的工程管理器窗口中的Thisworkbook，把下面的代码粘贴在右侧的窗口中。

---

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)

Dim arr

If Target.Areas.Count > 1 Then

   arr = Split(Target.Address, ',')

   sr = arr(UBound(arr))

   sr = Replace(Target.Address, ',' & sr, '')

   Range(sr).Select

End If

End Sub

---

3、另存为“ Excel 启用宏的工作簿” 类型文件

完工后，就是看效果的时候了：

当你选错后，只需要右键单击一下，就可以取消最后一步选的，如果还想撤再右键单击一下。

注：

1、取消选取只能在本工作簿中使用，如果你想在所有的工作簿中使用，就需要使用程序级事件了。

2、如果选取多列后右键菜单将无法使用，单个或单列选取不受影响，当然如果想多选选取后不影响，可以使用普通的宏程序，并为宏指定一个快捷键即可。

兰色说：有很多人不知道VBA有什么作用，甚至有位Excel讲师说VBA没什么用。兰色只能说不知者不为过，学会VBA后你就知道当你遇到Excel技巧、函数无法解决的难题时，VBA编程有多么的帅！