如何在excel表中实现两个单元格之间的数据交换
打开工具菜单中的;;;宏;选择;录制新宏命令,创建一个宏;个人宏工作簿交换(个人.xls),代码如下:
代码uff1a
确定用户是否选择了两个单元格或单元格区域。
如果Selection.Areas.Count = 2
集XR =选择区域(1)。
设置=选择区域(2)
确定选择是否重叠。
如果不相交(XR,年)是没有然后
结果= MsgBox(选择区域重叠!交换后重叠区域中的数据将部分覆盖!vbcrlf继续
如果结果= vbno然后Exit Sub
最后如果
如果xr.rows.count = yr.rows.count和xr.columns.count = yr.columns.count然后
交换选区
苏州公式= XR。
SZ2 =年公式
XR = Sz2
岁= 1
其他的
MsgBox的两个选定的数据区域的大小是不同的!请确认重新选择!
最后如果
其他的
MsgBox请按住CTRL键选择两个数据区域交换!
自定义工具栏按钮并指定按钮创建的宏(如图所示)。如果选定的两个单元格的区域大小(单元号)不同或所选数据小于2,系统将给出相应的错误提示。