定位数据及区域以上的空值快表软件

定位数据及区域以上的空值

susan

显示全部楼层倒序浏览发表日期 2014-02-12 17:31:54 1832次阅读 0次回复

阅读排行

[老张出品]自行注册用户模板

[老张出品]人事工资管理系统 V1.0

快递登记与查询模板

4 [老张出品]客户管理信息系统 V1.0

5 实用精简客户信息表

6 使用表间公式进行跨多表行列匹配

7 [老张出品] 车辆管理系统 V1.0 （免费版）

8 物料清单模板

9 [老张出品] 设备管理

10 快表程序下载

快表软件 › Excel表格教程及交流 › ExcelVBA开发定位数据及区域以上的空值

楼主

susan

2014-2-12 17:31:54

显示全部楼层

Sub 定位数据及区域以上的空值()
Dim aa As Range
For Each a In ActiveSheet.UsedRange
      If a Like 〈0 Then
         If aa Is Nothing Then
            Set aa = a.Cells
         Else
            Set aa = Union(aa, a.Cells)
         End If
      End If
Next
aa.Select
End Sub

发布主题

返回列表

快表软件是国内较早研究表格类软件开发平台的团队之一，迄今已有十多年的行业经验.致力于为企事业单位提供实用可靠的数字化平台。

susan

产品与服务

网站地图