软件下载 > 应用软件 > 办公软件 > Microsoft Office Excel2007使用技巧 > 使用excel宏轻松完成单元格数据互换

使用excel宏轻松完成单元格数据互换

软件分类:办公软件大小:未知时间:2023-11-07
软件介绍:Excel 2007是一款老牌的办公软件套装,excel2007内存占用低,运行速度快,体积小巧。excel2007具有强大插件平台支持,zol提供Excel 2007官方下载。

如何实现Excel表格两个单元格区域间的数据交换呢?通常我们使用剪切粘贴的方法来完成,但这个方法比较繁琐,如果数据区域较大还容易出错。下面我们试着来编写一个可以实现该功能的“宏”吧。

  打开“工具”菜单中的“宏”,选择“录制新宏”命令,在个人宏工作簿中(Personal.xls)创建一个名为Exchange 的宏,代码如下:

代码:

  '判断用户是否选择了两个单元格或单元格区域
  If Selection.Areas.Count = 2 Then
  Set XR = Selection.Areas(1)
  Set YR = Selection.Areas(2)
  '判断选区是否重叠
  If Not Intersect(XR, YR) Is Nothing Then
  Result = MsgBox(" 选择区域有重叠!交换后重叠区域的数据将有部份被覆盖!" & vbCrLf & " 是否继续?", vbYesNo)
  If Result = vbNo Then Exit Sub
  End If
  If XR.Rows.Count = YR.Rows.Count And XR.Columns.Count = YR.Columns.Count Then
  '交换选区
  SZ1 = XR.Formula
  SZ2 = YR.Formula
  XR = SZ2
  YR = SZ1
  Else
  MsgBox "选择的两个数据区域大小不一样!请确认重新选择!"
  End If
  Else
  MsgBox "请按住Ctrl键选择两个要交换的数据区域!"

  自定义一个工具栏按钮,并将创建的宏指定给该按钮即可(如图)。如果选中的两个单元格的区域大小(单元格个数)不同或选择的数据少于2个,系统将会给出相应的出错提示。

编写Excel宏 轻松完成单元格数据互换


文章标题:使用excel宏轻松完成单元格数据互换

文章链接:http://xiazai.zol.com.cn/jiqiao/43734.html

为给用户提供更多有价值信息,ZOL下载站整理发布,如果有侵权请联系删除,转载请保留出处。

Microsoft Office Excel2007软件简介

excel2007是2007版的Microsoft Office中的重要模块组件,Excel2007可以在电脑上编写电子表格,是最好用的办公软件,可以满足用户对表格的自定义编辑,还具有强大的图形功能,功能全面。zol提供excel2007官方版下载。excel2007具有强大插件平台支持,免费提供海量在线存储空间及wps文字文档模板,支持阅读和输出PDF文件,全... 详细介绍»