excel利用VBA互换两个单元格或区域中的数据
时间:2022-05-04 22:53:18
有时需要在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
标签:两个,互换,区域,数据,Excel函数
![](/images/zang.png)
![](/images/jiucuo.png)
猜你喜欢
Excel中HLOOKUP函数的语法和用法
2022-09-29 15:34:05
如何打开已经创建的Excel2007工作簿
2023-06-04 07:15:30
![](https://img.aspxhome.com/file/2023/2/a140442_0s.jpg)
将模拟运算表转换为图表
2023-07-23 15:47:18
Excel的柱形图是从上往下排列的怎么办
2022-05-26 22:31:42
![](https://img.aspxhome.com/file/2023/8/a153778_0s.png)
Word2007教程:用特殊符号添加分割线
2023-02-08 16:39:57
![](https://img.aspxhome.com/file/2023/1/30421_0s.jpg)
excel中利用公式轻松制作乘法口诀表
2023-10-18 08:25:42
excel表格内加页码
2022-04-24 18:58:53
Excel中ERROR.TYPE函数的语法和用法
2023-12-17 03:23:17
Win10怎么开启剪贴板历史记录?
2023-11-14 16:03:23
![](https://img.aspxhome.com/file/2023/0/49120_0s.png)
如何在Word2007文档中设置自选图形纹理填充
2023-06-07 10:41:08
![](https://img.aspxhome.com/file/2023/3/30123_0s.jpg)
在word中怎样插入Visio流程图
2023-10-02 02:21:21
Excel表格中的正数前添加"+"号的方法
2022-02-21 09:27:26
![](https://img.aspxhome.com/file/2023/9/37799_0s.jpg)
如何快速在Excel中找到相应的表格?
2023-11-02 09:38:15
![](https://img.aspxhome.com/file/2023/4/37604_0s.png)
如何关闭Word的语法自动检测?Word取消语法检测的方法
2023-08-19 07:31:00
![](https://img.aspxhome.com/file/2023/7/30937_0s.png)
如何在Word 2007中运行拼写检查?
2023-10-14 18:37:48
![](https://img.aspxhome.com/file/2023/7/23597_0s.jpg)
Word表格序号怎么自动生成
2023-05-15 01:05:18
![](https://img.aspxhome.com/file/2023/6/32146_0s.png)
excel表格内加下拉选项的方法
2022-02-23 08:48:39
微软修复了win10磁盘清理功能的BUG,不再清除下载文件
2023-08-27 12:49:00
![](https://img.aspxhome.com/file/2023/8/47048_0s.jpg)
在Excel表格里怎么设置每页打印时都有相同表头?
2023-10-06 20:04:14
![](https://img.aspxhome.com/file/2023/9/42189_0s.jpg)
如何一次性删除excel表格中的内容
2022-10-07 23:20:37
![](https://img.aspxhome.com/file/2023/3/a141133_0s.jpg)