两个单元格区域间数据交换-联想乐享知识库

两个单元格区域间数据交换 问题:Office软件 如何实现两个单元格区域间的数据交换呢？通常我们使用剪切粘贴的方法来完成，比较繁琐，且如果数据区域较大还容易出错。这个问题可以通过创建一个宏来解决。 打开“工具”菜单中的“宏”，选择“录制新宏”命令，在个人宏工作薄中（Personal.xls）创建一个名为Exchange 的宏，代码如下： 判断用户是否选择了两个单元格或单元格区域If S E L E C Tion.Areas.Count = 2 ThenSet XR = S E L E C Tion.Areas（1）Set YR = S E L E C Tion.Areas（2）’判断选区是否重叠 If Not Intersect（XR， YR） Is Nothing ThenResult = MsgBox（“ 选择区域有重叠！交换后重叠区域的数据将有部份被覆盖！” & vbCrLf & “ 是否继续？”， vbYesNo）If Result = vbNo Then Exit SubEnd IfIf XR.Rows.Count = YR.Rows.Count And XR.Columns.Count = YR.Columns.Count Then ‘交换选区SZ1 = XR.FormulaSZ2 = YR.FormulaXR = SZ2YR = SZ1ElseMsgBox “选择的两个数据区域大小不一样！请确认重新选择！”End IfElseMsgBox “请按住Ctrl键选择两个要交换的数据区域！” 完成后自定义一个工具栏按钮，并将创建的宏指定给该按钮即可。如果选中的两个单元格的区域大小（单元格个数）不同或选择的数据区域少于2个，系统将会给出相应的出错提示。