繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP.NET > 在EXCEL中获取列中不重复的值的个数
- ASP.NET
- 基于C#的接口基础教程之五
- 基于C#的接口基础教程之六
- ASP.NET中数据库的操作初步----增加、删除、修改
- 从Internet上抓取指定URL的源码的方案(C#)
- 对C#中正则表达式的一些解读和总结
- 简述c#中对字符串进行分割的几种方法
- ASP.NET中的事务处理和异常处理
- 用ASP.NET/C#连接Access和SQL Server数据库
- ASP.NET 2.0中层次数据的处理
- ASP.NET 2.0服务器控件之客户端功能
- asp.net2.0 URL重写以及urlMappings问题(1)
- asp.net2.0 URL重写以及urlMappings问题(2)
- 再议ASP.NET DataGrid控件中的“添加新行”功能
- 建立个人知识引擎的重要性
- 解析.Net框架下的XML编程技术
- ASP.NET--制作功能完善的安装程序
- Asp.net直接保存文件到客户端
- .Net中消除Dll中的dependency
- ASP.NET页面事件：顺序与回传详解
- 在ASP.NET+ORACLE添加数据记录并让ID自动增量
ASP.NET 中的 在EXCEL中获取列中不重复的值的个数
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 143 ::
收藏到网摘: n/a
'求Col列中StartRow到EndRow范围中不重复的个数
'本例是计算标题为sheet1的Excel表中的A1:A240的不重复值的个数
'修改下面四行的结尾值
Dim sheetsCaption As String: sheetsCaption = "Sheet1"
Dim Col As String: Col = "A"
Dim StartRow As Integer: StartRow = 1
Dim EndRow As Integer: EndRow = 240
'以下固定
Dim Count As Integer: Count = 0
With Sheets(sheetsCaption)
For i = StartRow To EndRow
Count = Count + 1
For j = StartRow To i - 1
If .Range(Col & i) = .Range(Col & j) Then
Count = Count - 1
Exit For
End If
Next
Next
End With
MsgBox Count
End Sub
评论 (0) All
