编写Excel宏,轻松完成单元格数据互换 1
发布时间：2022-02-17 01:17:32
如何实现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个，系统将会给出相应的出错提示。
用宏交换
0
投稿猜你喜欢
许多大学生在写毕业论文的时候往往会遇到这样一个问题，论文的第一页为标题简介，第二页目录，第三页才正式开始，所以前两页更本不需要页码，我们只需- 经过了漫长的等待，我们终于迎来了Windows 10的推出。只有Windows 7以及Windows 8.1用户才可以自7月29日起免费进行
- 在苹果发布iOS 13.5开发者预览版Beta 3一周后的今天，苹果正式发布了iOS 13.5开发者预览版Beta 4。iOS 13.5 B
- 新版新版戴尔大部分已经不支持传统引导了，因此如果有用户用传统模式安装的话容易导致安装失败。下面小编就给大家介绍下新版戴尔bios设置UEFI
- 无论是以前的手写时代，还是现在的智能时代，很多人都保持有写日记的习惯，而印记云笔记就是一款可以帮助用户每天记录笔记的软件，它拥有打字记录、语
- 使用过Win7的用户都知道，任务栏属性里有个“使用Peek预览桌面”的功能，鼠标停靠在任务栏最右边的按钮处就可以预览桌面。但用户使用Win1
- 观看视频时，您可能需要制作屏幕截图。VLC可能是最好的媒体播放器。 除了播放视频和音频外，它甚至可以提取视频帧并将其保存为任何所需格式的图像
- 我们经常会写使用wps文字写文档，在我们写完或写的过程中，我们会怎么保存文档把文档保存在哪里呢?但是对于大多数人来说还是不太懂，接下来小编举
- 用iPhone的小伙伴可能经常遇到这样的情况，App Store就是连接不上服务器，想要下载APP或者游戏的心就是满足不了，真是急死宝宝了！
- 曾浏览的网站中有个好文章忘记收藏，如何找回来？看了 XX 网站不想被人知道该怎么办？默认 Microsoft Edge 会将用户的网址访问等
- ppsspp模拟器是款基于电脑端的psp游戏模拟器，运行速度也比依赖JAVA的JPCSP更快更好，使用起来在画质优于psp，运行流畅。如果我
- Windows7的操作界面非常华丽，赢得了大部分用户的喜欢，但是也有少数人群不太喜，特别是白色背景非常刺眼。Windows7的操作界面非常华
- excel柱状图中怎么平均值参考线折线图？在做图标的时候想一就看到有多少朋友在拉平均值，该怎么办呢？下面分享excel柱状图中添加平均值标准
- 默认情况下，Excel工作表中负数前都显示负号“-”，而正数前不显示正号“+”。如果我们不仅需要在Excel表中的负数前显示负号，还需要在正
- 在只有我们自己使用的WPS表单中，加密它真的很麻烦。每次你都必须输入密码。加密后我们如何解密WPS文档？让我告诉你一些事情。WPS表格取消密
- 今天这篇文章，我们教大家如何快速对齐合同签名栏，如果你还不会这项操作的话，那就一起看看下面这篇文章吧！首先我们看到下方这个图片，我们发现下方
- 我们经常会在wps表格中制作各种各样的图表，例如我们有时会在wps表格中制作折线图，具体的操作是怎样的呢?下面就让小编告诉大家在wps表格中
- 6月24日晚微软省事发布了Win11系统，预计在秋季正式推送，届时Win7到Win10的正版用户都能够免费升级到Win11系统，而且微软也公
- 今天和大家分享Win10系统开机提示atikmpag.sys不兼容导致蓝屏解决教学。不懂不说的是Win10系统的稳定性和Win7比起来是更差
- 重要文档想要加密不被窥探怎么办?学会以下两个小方法可以帮助大家很好的掩饰或者加密文档，避免重要数据泄露。那么下面就由小编给大家分享下给wor
