快速交换所选的两个单元格区域中的值
发布时间：2023-07-11 21:32:27
标签：excel图表制作,excel常用函数,excel数据透视表,Excel教程
有时候，我们需要将两个单元格区域中的数据对换，也就是说，第一个区域的数据放置到第二个区域，而第二个区域的数据放置到第一个区域。
通常，我们可以先将第一个区域的数据复制到另一个地方，然后将第二个区域的数据复制到第一个区域，最后将先前复制到另一个地方的数据复制到第二个区域。
然而，使用VBA代码可以帮助我们快速完成任务，如下图1所示。
图1
代码如下：
‘交换所选择的两个单元格区域
Sub SwapTwoRanges()
Dim rng As Range
Dim rngTemp As Variant
‘要交换的区域
Set rng = Selection
‘判断是否是两个区域且它们大小相同
If rng.Areas.Count <> 2 Or _
rng.Areas(1).Cells.Count <> _
rng.Areas(2).Cells.Cells.Count Then
MsgBox “请选择两个大小相同的区域”
Exit Sub
End If
‘临时存储第一个区域的数据
rngTemp = rng.Areas(1).Cells.Formula
‘将第二个区域的数据输入到第一个区域
rng.Areas(1).Cells.Formula = rng.Areas(2).Cells.Formula
‘将第一个区域的数据填到第二个区域
rng.Areas(2).Cells.Formula = rngTemp
End Sub
注意，运行代码前需要先选择两个相同大小的区域，也就是要交换数据的区域。
代码的图片版如下：
0
投稿猜你喜欢
Win8关闭Windows Search服务的方法，一起来看看吧!关闭方法：1、首先，我们按Win键+X键进入控制面板，或者使用其他方式也可- Win10电脑桌面图标怎么隐藏？最近有用户反映这个问题，桌面上有很多不需要的图标，一些用户看不习惯，那么怎么隐藏呢？针对这一问题，本篇带来了
- 联想电脑是很多用户都在使用的一款电脑品牌，很多时候需要进入bios设置管理员密码、设置U盘启动等等。但是有用户发现联想bios里没有boot
- 如何在macOS Big Sur上设置鼠标的滚动速度？小编给大家带来了在macOS Big Sur上设置鼠标的滚动速度的教程，感兴趣的快来跟
- 微软昨天向Fast Ring内测用户推送了Windows 10最新版Build 14279，带来了UI动画的调整、小娜、登陆界面新功能、常规
- 如何卸载，是安装了六亿宝贝反黄软件的用户最爱搜索的问题，传统的卸载方法不管用呀，还好想到了这个方法，下面以图文的形式为大家详细介绍下六亿宝贝
- 使用自动编号编排文档后，相信有许多小伙伴对Word中编号与正文之间过大的间隔距离恼火不已，不要上火，今天我将为大家一一分解。为什
- 很多用户在Win11发布之后都进行了升级，但是有不少用户在升级的时候都出现了情况，在升级过程中卡在了71％并且提示0x8007007f错误，
- 在win10系统中有用户反应无法正常设置“Exploit protection”，因为比较游戏性能，所以需要在csgo中覆盖系统设置，但是在
- hosts文件是电脑中非常重要的文件，主要作用是用来加速一些网络域名的解析。不仅如此还可以有效地屏蔽一些网站。而不少用户在使用电脑的时候想要
- word 2010怎么给文字添加底纹？其实word的那几个版本的操作大致是相同的，所以如果不是2010版的也可以按照我的这个过程来做。首先我
- 如果我们要对不规则区域进行合并单元格的批量操作，如下图中将 A 列转成 D 列，可以借助分类汇总功能过渡实现。但如果除了将单元格合并以外，还
- 魔兽世界是一款经典的 网络游戏。很多玩家都在玩，最近有用户在使用windows10系统的游戏玩家反馈自己遇到了魔兽世界无法更新的现象，那么，
- Excel表格如何整体移动某一行或一列到制定位置？下面小编就为介绍一下，不会的朋友可以跟着教程一起来看看吧有时候我们想要整体移动某一行或某一
- 在剪辑各种视频时我们通常都会添加一定的转场片段，比如我们有时候会添加一些空镜头片段进行转场，也就是视频画面只有风景或者没有人物的视频片段。如
- 美团外卖APP怎么查看骑手位置？当我们使用美团外卖订餐时，常常注意外卖什么时候才能到，总是干着急，那么我们该如何查看送餐的骑手位置呢？下面小
- 很多用户们在使用浏览器的时候，都觉得目前的浏览器速度有些慢，很多用户们都想要一个运行超快的浏览器进行使用哦，有需要的用户们就来这里下载并使用
- win7怎么录制电脑内部声音？电脑可以通过控制面板对声卡的控制实现录制声卡的功能，下面分享win7电脑录制声卡声音的方法，需要的朋友可以参考
- Windows 10、Surface Book、HoloLens、Office 2016…可以说，微软今年为我们带来了很多的惊喜——其中大多
- 很多用用户都升级了Win11系统，在使用的过程中发现了很多错误，今天小小编给大家带来的是Win11的桌面总是死自动熟悉，导致屏幕无法锁定，这
