如何在Excel表格中实现两个单元格区域间的数据交换？我们通常采用剪切粘贴的方法，但是这种方法比较繁琐，数据区域大的话容易出错。让我们试着写一个能实现这个功能的宏”。
打开“工具”菜单中的“宏”，选择“录制新宏”命令，在个人宏工作簿中(Personal.xls)创建一个名为Exchange 的宏，代码如下：
代码： ‘判断用户是否选择了两个单元格或单元格区域 If Selection.Areas.Count = 2 Then Set XR = Selection.Areas（1） Set YR = Selection.Areas（2） ‘判断选区是否重叠 If Not Intersect（XR， YR） Is Nothing Then Result = MsgBox（” 选择区域有重叠！交换后重叠区域的数据将有部份被覆盖！” & vbCrLf & ” 是否继续？”， vbYesNo） If Result = vbNo Then Exit Sub End If If XR.Rows.Count = YR.Rows.Count And XR.Columns.Count = YR.Columns.Count Then ‘交换选区 SZ1 = XR.Formula SZ2 = YR.Formula XR = SZ2 YR = SZ1 Else MsgBox “选择的两个数据区域大小不一样！请确认重新选择！” End If Else MsgBox “请按住Ctrl键选择两个要交换的数据区域！” |
自定义一个工具栏按钮，并将创建的宏指定给该按钮即可(如图)。如果选中的两个单元格的区域大小(单元格个数)不同或选择的数据少于2个，系统将会给出相应的出错提示。
版权声明：本文内容由互联网用户自发贡献，该文观点仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容， 请发送邮件至 86345@qq.com 举报，一经查实，本站将立刻删除。