正文概述

编写Excel宏轻松完成单元格数据互换

如何实现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个，系统将会给出相应的出错提示。

交换代码新宏方法编写

注意事项：
不要在微信、知乎、QQ、内置浏览器下载、请用手机浏览器下载！如果您是手机用户，请移步电脑端下载！
1、文稿PPT，仅供学习参考，请在下载后24小时删除。
2、如果资源涉及你的合法权益，第一时间删除。
3、联系方式：mail@johngko.com

第一素材网 » 编写Excel宏轻松完成单元格数据互换