excel利用VBA互换两个单元格或区域中的数据
发布时间：2022-05-04 22:53:18
标签：两个,互换,区域,数据,Excel函数
有时需要在Excel工作表中互换两个区域中的数据，如果区域相邻可以直接用拖动鼠标并按住Shift键的方法进行互换。而当两区域不相邻且两个区域中的数据量较大时用VBA则较为快捷。例如在互换两列时可以直接单击工作表上方的列标题选择整列，然后执行代码互换数据。
在工作表中选择两个形状相同的、无公共部分的区域，然后执行下面的代码，即可互换两区域中的数据。
Sub TwoAreasSwap()
Dim TheArea1, TheArea2 As Variant
If Selection.Areas.Count <> 2 Then
MsgBox "请选择两个区域！"
Exit Sub
ElseIf Selection.Areas(1).Cells.Count <> Selection.Areas(2).Cells.Count Or _
Selection.Areas(1).Rows.Count <> Selection.Areas(2).Rows.Count Then
MsgBox "请选择两个形状相同的区域！"
Exit Sub
Else
TheArea1 = Selection.Areas(1).Cells
TheArea2 = Selection.Areas(2).Cells
Selection.Areas(1).Cells = TheArea2
Selection.Areas(2).Cells = TheArea1
End If
End Sub
0
投稿猜你喜欢
- 在windows局域网内，经常会使用到DHCP服务器，DHCP是Dynamic Host Configuration Protocol的缩写
PPT怎么设计一款双色的文字字体效果？ppt中想要设计一款双色的文字，该怎么设计呢？下面我们就来看看双色文字的制作方法，很简单，需要的朋友可- 有时候我们拍摄一寸照片的底色不符合要求，重新拍摄一次又是很麻烦，你知道PhotoshopCC怎么换照片底色吗？接下来我们一起往下看看Phot
- 在Win7的电脑系统中，常常会遇上一些小问题。比如在“资源管理器”或者是在“计算机”的桌面图标上点击却无法打开文件夹。而是进入了计算机的搜索
- 有些用户喜欢大点的图标，而有些用户则正好相反，那么，我们该如何解决这个问题呢？如何修改Launchpad应用图标的大小，下面有个不错的方法，
- 苹果将在北京时间 9 月 15 日凌晨 1 点举行秋季发布会，将发布 iPhone 13 系列手机等新品。中国移动也开启
- Windows系统在使用的过程中经常会产生一些临时的垃圾文件，这些文件不仅会占用电脑的存储空间，还会影响到电脑的运行速度，那么要如何删除这些
- 接近年末，再过不久就要回家过年了，但是苹果土豪却有些忧愁，一回到家，自己的本本，肯定是要被一群熊孩子拿去折腾的，面对这种问题应该怎么办呢？这
- 我们都知道wps是一款用户很喜爱的办公软件，在面对众多的办公软件中脱颖而出，用户可以在wps软件中编辑各种类型的文件，这是因为wps结合了其
- WPS是款办公软件，相信很多人都在使用，它操作简易，软件中设置表格高宽是很简单的操作，那你知道如何修改已经设置好的测量单位吗？想要了解的朋友
- 诺言是一款功能非常强大的办公软件，它可以在线客服和快速开票等功能，我们在登录诺言的时候都会设置密码以免被别登录泄露信息，那么密码忘记了怎么办
- 全民k歌如何关闭评分？全民k歌是当下一款热门的K歌软件，其中大部分歌曲都有评分，如果想要关闭歌曲评分应该怎么办呢？今天我们就一起来看看关闭全
- 柏拉图又称帕累托图，一般在质量管理中用到的比较多，当然也适合很多方面，但是新手不会，怎么办?有简单易懂的方法吗?下面小编教你怎么在wps表格
- wps艺术字怎么设置？在工作和学习中，有时为了封面内容好看，常常需要对文字进行效果上的修改。虽然PS在图形文字处理上有强大的功能，但是如果要
- 电脑主板怎么设置智能温控？主板BIOS如何修改智能温控？下面就给大家分享主板BIOS设置智能温控的操作方法。解决办法：1、我们开机按“esc
- 因为经常都是使用Word来编写文章和制作一些东西，所以Excel自然也就少用了，今天准备用Excel来制个表，谁知道刚准备输入数字001时，
- win11如何把任务栏变透明？Win11系统正式版已经推出了，在新的win11系统里，个性化功能更丰富更明显，比如任务栏图标居中等，很多用都
- Crystaldiskmark是款可以帮助你测试电脑硬盘或者存储设备的小工具，你随时可以测试你的存储设备，不管是测试存储设备大小还是测试数字
- 如何删除Win10保留的存储？Win10系统的老用户都知道系统自动保留一些存储空间，有时系统的空间不够用了，我们就可以删除这小空间来缓解内存
- 在电脑出现故障问题无法进系统的时候，可以制作光盘或者u盘启动进入重装系统。如果没有启动光盘怎么办呢？很多网友不知道怎么用u盘重装系统，今天小
