-
打开工具菜单中的；；；宏；选择；录制新宏命令，创建一个宏；个人宏工作簿交换（个人.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，系统将给出相应的错误提示。