快速交换所选的两个单元格区域中的值
时间:2023-07-11 21:32:27
有时候,我们需要将两个单元格区域中的数据对换,也就是说,第一个区域的数据放置到第二个区域,而第二个区域的数据放置到第一个区域。
通常,我们可以先将第一个区域的数据复制到另一个地方,然后将第二个区域的数据复制到第一个区域,最后将先前复制到另一个地方的数据复制到第二个区域。
然而,使用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
注意,运行代码前需要先选择两个相同大小的区域,也就是要交换数据的区域。
代码的图片版如下:
标签:excel图表制作,excel常用函数,excel数据透视表,Excel教程
0
投稿
猜你喜欢
Word文档单独一行排列在上一页怎么解决
2023-11-03 18:42:02
Win10稳定预览版14393.103更新哪些内容? 更新内容汇总
2022-04-25 23:08:52
手机控制电脑,小编告诉你怎样通过手机控制电脑
2022-03-20 00:25:29
excel2003设置渐变色的方法
2023-01-04 23:55:40
苹果 AirTag 电量过低时怎么办?
2023-05-19 21:26:15
wps文字如何删除多余空白页
2023-12-20 01:08:33
图片像素和分辨率有哪些关系和区别?
2022-06-14 07:53:27
Win10如何以管理员去运行cmd?Win10以管理员去运行cmd的方法
2023-12-13 21:15:22
Win10点关机要等一会才有反应怎么解决
2022-05-09 19:47:18
excel怎样使用格式刷
2023-08-18 20:11:26
如何把word中的图片裁剪成异形
2023-06-16 04:35:50
如何自定义修改WPS幻灯片的时间
2023-12-01 21:07:20
excel表格内容数据乱码怎么办
2023-10-19 21:27:43
单变量模拟运算主要用来分析
2023-11-03 05:31:22
Win7系统IE浏览器收藏夹变成灰色如何处理?
2023-09-06 10:23:26
将Win10电脑开始菜单的风格改成Win7的风格的操作方法
2023-05-13 02:31:50
win10系统新电脑如何分区?
2023-10-06 11:19:03
Excel如何制作考勤表动态日期
2022-11-17 09:51:28
去掉电脑右下角出现win7测试模式内部版本7601的方法
2023-11-11 18:00:01
Win10如何设置自动关机?Win10设置自动关机的方法
2023-05-26 12:55:36