excel用VBA互换两个单元格或区域中的数据
发布时间：2023-12-16 00:24:46
标签：excel,用,VBA,互换,两个,单元格,或,区域,中的
有时需要在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
投稿猜你喜欢
在win10系统中使用影子系统软件的时候，有的情况下可能就会出现在打开使用影子系统的时候软禁崩溃以及导致系统无限重启的情况，可以尝试强制关闭- Win10系统自带了许多功能，这些功能都是为了提高用户的使用感而开发的，但对一些新用户来说，很多系统的基础功能都还不熟悉，就比如摄像头要在哪
- Mac 上自带了一个桌面便笺（jiān）。搜索「便笺」或者在 Mac 启动台中打开便笺，就可以在 Mac 桌面显示一个便笺。可以添加多个便签
- 在使用win10的过程中，我们可能会出现提示本地连接未启用dhcp的问题，这个时候不要担心，只需要打开网络和共享中心修改设置，或者直接更改服
- 微软发布的Win10 21H2系统，有用户安装之后发现系统经常出现卡顿、占用率偏高的现象，这是什么原因？小编认为应该是Win10自带的人工智
- 微星绝影 15M笔记本是一款2022年上市的娱乐型便携笔记本电脑，其采用了intel第十二代酷睿i7处理器以及发烧级核芯显卡，能够满足用户们
- 当我们使用win10操作系统时，如果出现系统故障需要我们安装操作系统修复电脑的情况下，对于目前市面上的系统网站很多人都不知道哪里下载win1
- 经常需要制作各种各样的表格，制作后有时候需要进行截图操作，但是我们利用QQ快捷键Ctrl+Alt+A的时候，往往只能截取当前界面的数据，那么
- 当我们用Excel来做报表时，为了让数据显得更加直观通常会加入图标，有很多小伙伴还不知道怎么在Excel插入图标，今天小编带来了Excel插
- 在Microsoft OfficeAccess和 Microsoft OfficeExcel之间存在多种交换数据的方法。·若要将Access
- 最近有很多升级到win11的用户反应自己的电脑每次打开应用的时候，都会弹窗提示需要使用新应用以打开此windowsdefender链接，这让
- 近日，有不少win10系统用户反映自己在运行“telnet”命令时，电脑突然提示“telnet不是内部或外部命令”，这该怎么办呢?其实，导致
- 在Windows10系统中，如果系统处于安全模式下，在设置中是无法创建新账户的，那么有没有别的办法可以创建新账户呢？当然是有的，今天小编要给
- 在WPS演示文稿中我们可以适当插入一些除文本外的其他对象，比如各种形状，图片等等，可以使幻灯片看起来不那么枯燥。我们在WPS演示文稿中插入一
- 简易音频混音器是mac上音频剪辑的最佳音频编辑工具。有了它，您可以导入任何格式的音频和视频。它以波形显示音频，您可以修剪，分割它们，并反复预
- 微软现在已经公布了win8将要停止更新的消息，但是还是有部分用户在使用win7系统，那么win8怎样设置电脑开机密码呢？操作方法很简单，下面
- 一、文章简介：本文主要向读者介绍如何利用WPS表格的函数功能，根据个人身份证号，一劳永逸地提取出生日期、性别等个人信息，实现个人信息的自动录
- win10不小心禁用了所有服务如何恢复图文教程来啦，今天这个教程内容有些例外，因为小编很少有碰到某某操作把所有 Windows 10 系统中
- 这一个Excel中的常用函数。意思是“创建一个快捷方式或链接”，以便打开一个存储在硬盘、网络服务器或Internet上的文档。用法是：在单元
- office组件中的powerpoint（PPT）制作中的“备注”到底有何作用？在工作中经常用PPT放映演示给客户进行讲演，也见
