实现Excel表格中两个单元格区域间的数据交换的方法
发布时间：2022-04-11 23:33:56
如何实现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个，系统将会给出相应的出错提示。
用宏交换区域
0
投稿猜你喜欢
Win11 22000.71版本的修复是在KB5004252补丁上更新的，近期就有部分用户想要安装KB5004252补丁，那么具体应该如何操- 第1步，打开Word2013文档窗口，依次单击“文件”→“选项”按钮 第2步，在打开的“Word选项”对话框中切换
- 当我们使用windows10系统时，许多功能我们都还是不知道怎么打开的，例如win10怎么打开平板模式，跟小编一起往下看吧。1、首先我们点击
- 在PPT的操作过程当中，相信小伙伴们都有遇到过插入竖版照片的情况，而我们的页面大部分情况下是横版的，遇到这种情况，你们是怎么处理的呢？是不是
- 今天，Win10预览版10565迎来小幅更新，这次更新一共包括两枚补丁，分别是KB3105216和KB3106638，这两枚补丁有一枚针对I
- Win10专业版优化了开始菜单，提高了系统易用性，很多朋友都在用Win10专业版操作系统，电脑用久了之后就容易出现各类问题，比如Win10专
- 如果我们在使用钉钉应用软件的时候，在一些情况下会参与钉钉线上的直播。那么有的小伙伴就会想知道钉钉直播时对方能不能听到自己说话。那么小编觉得其
- 现在提供给用户的办公软件有很多种，用户可以根据自己的喜好来选择，其中的WPS软件相较于其它办公软件来说有着很显著的优势，wps软件上的功能结
- Edge是Windows系统自带的浏览器软件，而更换新的浏览器时，如果迁移收藏夹等数据无疑是很多人最关心的事情，Edge浏览器也是具备这方面
- 很多用户在自己的笔记本电脑上面安装win7系统之后，会发现桌面上没有显示任何图标，只有一张壁纸，而想要将图标从菜单栏拖动的桌面的时候却发现无
- 我们在使用Mac电脑的过程中，会发现在一段时间内没有操作电脑，电脑屏幕就会锁屏。但是有很多小伙伴会使用电脑观看小说，因此不喜欢屏幕总是锁屏，
- 在我们的日常办公中，专业的办公软件扮演着很重要的角色，而且一款专业的办公软件也可以说是高效生产力的代名词，近期有用户在问Office365和
- fs20.exe是免费浏览辅助工具。包括广告拦截，浏览历史清除等功能进程文件： fs20 or fs20.exe 进程名称： Free Su
- 有些win7用户更新升级win8.1系统之后，很不习惯win8.1系统的开始菜单，就想把win8.1系统的开始菜单设置成win7形式，可以吗
- WORD中的注释应该指所加的”批注“和”增删“的内容。以word2007为例，说明去掉的方法：1、删除批注：依次点击”审阅“、”删除“、”删
- win10系统很多朋友都在使用，今天小编给大家分享ows10如何设置隐藏式字幕背景色，感兴趣的朋友跟随小编一起看看吧现在windows10系
- 当我们打开Windows任务管理器时，就会在里面发现一个Ctfmon.exe进程，并且开机之后就会一直存在，而且还在运行。有一些Win7系统
- PPT中插入表格，因为表格很难让人看懂，除非你的演讲能力超级棒，来弥补表格表达的不足。理想与现实总是有差距，职场中我们有时候不得不放表格在P
- 腾讯TIM怎么设置摇一摇截屏？腾讯TIM是腾讯QQ的办公简洁版，不但优化了界面的设计，更是为用户们提供了大量的快捷方式，下面小编就和大家分享
- 在我们平时使用Excel表格办公时，经常会使用到拆分合并单元格的功能。在这里我们介绍给大家一个，使用Vlookup拆分合并单元格的方法，下面
