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

      [  中关村在线 转载  ]     |  责编:刘菲菲
    收藏文章 暂无评论

        如何实现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宏 轻松完成单元格数据互换
    用宏交换区域

    soft.zol.com.cn true http://soft.zol.com.cn/360/3600337.html report 1164     如何实现Excel表格中两个单元格区域间的数据交换呢?通常我们使用剪切粘贴的方法来完成,但这个方法比较繁琐,如果数据区域较大还容易出错。下面我们试着来编写一个可以实现该功能的“宏”吧。  打开“工具”菜单中的“宏”,选择“录制新宏”命令,在个...
    不喜欢(0) 点个赞(0)
    随时随地资讯查报价 就上ZOL手机客户端,点击或扫描二维码下载
    立即下载

    Microsoft Office 2010含密钥

    更新时间:2016年04月20日

    用户评分:8.2 | 2105人点评

    下载次数:45,239,370

    软件类型:试用软件

    软件语言:简体中文

    软件资讯文章推荐

    Microsoft Office 2010含密钥

    新浪微博

    精美壁纸推荐

    • 美女
    • 明星
    • 风景
    • 动漫
    • 手机