UC知道Excel剪切后插入已剪切的单元格的问题
来源：百度知道 编辑：UC知道 时间：2024/06/08 06:16:03
1、关于“剪切”然后“插入已剪切的单元格”的问题。文档全部的数据都由剪切和插入这2个动作编辑，所以操作相当频繁工作量也很大。但剪切和插入位置每个都是不固定的，所以不知道怎样编辑宏。
能不能实现：点选一个要剪切的单元格，再按住Ctrl键选中插入的位置（这样能同时选中2个操作位置，其动作又是不同的，第一个不按Ctrl，第二个是按住Ctrl，能有效区分哪一个是要剪切的位置，哪一个是要插入的位置。），然后不松开Ctrl键再按+Z 或其他键，一下来完成剪切并插入呢？
插入效果：和现在系统默认效果相同，在同列不同行的情况下，在同列中剪切相当于抽取出目标格然后在最下面插入，剪切格下面各行依次向上移动一格补充剪切后的空位，剪切下来的目标格插入到同列最后一行，就是现在默认的插入剪切格效果。
2、如果第一种设想不能实现。能不能实现第2种方法，现在的“插入已剪切的单元格”是没有快捷键的，所以才有了上面的需求，能不能给它设置一个快捷键，像“剪切=Ctrl+X”，“粘贴=Ctrl+V”那样的。
我的QQ：57788772，祈高人速度指点，如能帮忙编写第一个宏，另有重谢！
能不能实现：点选一个要剪切的单元格，再按住Ctrl键选中插入的位置（这样能同时选中2个操作位置，其动作又是不同的，第一个不按Ctrl，第二个是按住Ctrl，能有效区分哪一个是要剪切的位置，哪一个是要插入的位置。），然后不松开Ctrl键再按+Z 或其他键，一下来完成剪切并插入呢？
插入效果：和现在系统默认效果相同，在同列不同行的情况下，在同列中剪切相当于抽取出目标格然后在最下面插入，剪切格下面各行依次向上移动一格补充剪切后的空位，剪切下来的目标格插入到同列最后一行，就是现在默认的插入剪切格效果。
2、如果第一种设想不能实现。能不能实现第2种方法，现在的“插入已剪切的单元格”是没有快捷键的，所以才有了上面的需求，能不能给它设置一个快捷键，像“剪切=Ctrl+X”，“粘贴=Ctrl+V”那样的。
我的QQ：57788772，祈高人速度指点，如能帮忙编写第一个宏，另有重谢！
复制下面的代码到模块中:
Sub test()
Dim AR1 As Range
Dim AR2 As Range
If Selection.Areas.Count <> 2 Then Exit Sub '判断选中单元格是不是有2个区域组成
Set AR1 = Selection.Areas(1) '设置变量Ar1作为剪的区域
Set AR2 = Selection.Areas(2) '设置变量Ar2作为贴的区域
'将AR1剪贴到Ar2的左上角单元格中
AR1.Cut
AR2.Cells(1).Insert
End Sub