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
投稿
猜你喜欢
- 第一,excel最近打开文件位置excel最近打开文件列表的位置在:文件——最近使用文件,右边列出的就是excel最近打开文件。每个工作薄的
- 软件命名:微软此代Office办公软件代号为Office 14,名称为“Microsoft Office 2010”。命名符合微软对产品的命
- 在word中,我们有时候需要批量修改图片的大小word中批量修改图片大小方法一: 这部分要说
- 第一步:启动Word2013,首先绘制出一个3行4列的表格,输入一些文字信息,我们要在性别右侧的单元格内设置一个可供选择的下拉按钮,将光标移
- WindowsWeb可通过以下方式控制公式的显示:在显示公式及其结果之间切换按CTRL+'(重音符)。防止在编辑栏中显示公式注意:
- 我们在打印多张word的时候,我们往往喜欢打印左右两页,奇偶各一页,这样看上去更加美观。那么要怎么做呢?下面小编告诉你word设置奇偶页码的
- Excel怎么使用isna函数判断数据?一、ISNA函数的含义判断一个值是否为#N/A,正确返回TRUE,否则FALSE。 &
- 安装office遇到错误代码:30016-22,且注册表office删除不了的解决办法
- 我们在使用电脑的时候,为了防止电脑系统出现崩溃等情况,最好不定时的备份一下电脑系统,但是对于许多小伙伴来说,不知道怎么备份电脑系统,下面小编
- Word是一款很棒的文档编辑软件,使用的用户也非常多,而我们在编辑Word文档的时候难免需要插入连续图片列表,不过很多刚接触不久的用户还不清
- 1.打开Excel表格,选中需要删除重复项的数据,接着点击工具栏的“数据”→“删除重复项” 2.我们就可以进入“删
- 在excel表格中进行操作时,提示发送命令出现问题,这时应该怎么办?下面随小编一起来看看吧。Excel发送命令出现问题的解决方法一点击左上角
- 在编辑word文档,通常都需要在页尾写上页数,但是word文档默认添加页尾会有一条横线,如果我们不想要这条横线时,我们要把它去掉。分享一个怎
- 数据替换在Excel中是比较常用的功能之一,如果有不懂的朋友却需要用到这个功能的朋友不妨学习一番吧!接下来是小编为大家带来的excel表格数
- 1.打开Excel表格选中需要对齐的单元格内容,右键选择“设置单元格格式” 2.在设置单元格格式里选择“对齐”接着
- Excel中打印经常需要每页都要打印到表头,表头具体该如何设置才能每页打印表头呢?下面是由小编分享的excel中设置每页打印表头的教程,以供
- Win10系统如何查看硬盘的使用状态?Win10电脑使用一段时间后,它的硬盘存储,随着时间的推移,我们的存储空间会逐渐变小,那么,我们要怎么
- 本篇Excel教程告诉我们如何将一个单元格的公式,一次性引用到多个单元格进行使用。2.3.3 Excel多单元格和单元格区域的引用不仅可以对
- 在excel表格中,对于小数,一般都会保留小点后的两位小数,这是如何设置的呢?在数学上来说如果没有特殊情况后面保留太多小数是没有意义的,下面
- Word怎么使用制表位?word中对文本排版的时候,想要对齐文字,可以使用制表位来排版文字,下面我们就来看看word制表位的使用方法,需要的