excel用VBA互换两个单元格或区域中的数据
时间:2023-12-16 00:24:46
有时需要在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,用,VBA,互换,两个,单元格,或,区域,中的
0
投稿
猜你喜欢
如何在 WPS 中新建绘图画布
2023-01-07 11:38:17
Win10 1909系统小娜搜索速度很慢怎么办?解决方法分享
2023-11-11 06:29:09
office word 2007失去焦点后鼠标不能对文档操作
2023-12-12 22:14:37
Win10系统怎样设置开机密码?
2023-07-09 20:00:36
迅雷影音闪退怎么办 迅雷看看播放器播放视频闪退解决方法
2022-12-05 21:57:19
电脑安装excel教程的方法步骤详解
2022-05-29 01:27:49
win10多项系统功能打不开怎么办 win10多项系统功能打不开的解决方法
2022-10-21 08:28:59
钉钉云课堂培训如何设置-钉钉云课堂培训发布创建设置方法
2023-11-08 01:04:06
受保护的Word文档怎么复制
2023-12-08 16:26:16
Excel中And函数的操作使用
2022-06-22 08:38:53
wps多级编号怎么用?
2022-07-19 22:45:03
根据多个条件求和
2022-08-14 10:51:38
Win7显示器提示出错:超出工作频率范围怎么办
2022-03-24 01:08:51
有信APP怎么发短信?有信APP发短信的方法
2023-03-11 22:38:24
Windows7系统下gpedit.msc无法运行怎么办?
2023-12-07 22:13:12
excel表格如何创建饼图
2023-10-08 13:14:51
Win10更新时候提示0x8007139f错误代码怎么办?
2022-04-02 04:12:24
excel中合并拆分单元格的作用和方法图解
2022-02-06 22:17:56
Win7系统电脑CMD命令不能使用的解决方法
2022-11-02 20:05:19
PPT文字如何转成结构图表?PPT文字转成结构图表教程
2022-12-20 15:37:37