怎样使用VBA反向选择工作表?
来源:网络收集 点击: 时间:2024-04-16首先在开发工具中打开VBA编辑器

在单元格区域当中输入一些内容作为例子

在VBA编辑器中插入模块

在模块当中输入如下代码,然后运行
Sub 反向选择() Application.DisplayAlerts = False 禁用警告提示 Application.ScreenUpdating = False 禁止屏幕更新 Dim raddress As String, taddress As String 声明变量 raddress = Selection.Address taddress = ActiveSheet.UsedRange.Address With Sheets.Add 添加一个新工作表 .Range(taddress) = 0 对新表赋值 .Range(raddress) = =0 对新表赋值 raddress = .Range(taddress).SpecialCells(xlCellTypeConstants, 1).Address 重新设置raddress为含有常量的单元格地址 .Delete 删除新工作表 End With ActiveSheet.Range(raddress).Select 反向区域选择 Application.ScreenUpdating = True 开启屏幕更新End Sub


智能手机助理给我们的生活带来了极大的便利!
版权声明:
1、本文系转载,版权归原作者所有,旨在传递信息,不代表看本站的观点和立场。
2、本站仅提供信息发布平台,不承担相关法律责任。
3、若侵犯您的版权或隐私,请联系本站管理员删除。
4、文章链接:http://www.1haoku.cn/art_520612.html