繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP.NET > 在EXCEL中获取列中不重复的值的个数
- ASP.NET
- .net数据库连接池配置技巧（默认值）
- .NET 数据库连接池
- asp.net sqlconnection con.close和con.dispose区别
- ASP.NET 多次提交的解决办法
- ASP.NET 多次提交的解决办法2
- firebird Embedded模式(.net 3.5)
- js 父页中的单选按钮取值
- js控制.net验证控件是否可用。
- ASP.NET AJAX时用alert弹出对话框
- aspx 中文汉字显示为乱码
- C# 小数位数保留的方法集锦
- C# Math.Round()函数问题
- C# ToString格式大全
- ASP.net Forms验证Demo
- asp.net 文章内容分页显示的代码
- asp.net两级联动（包含添加和修改）
- TreeView创建IHierarchicalDataSource类型的数据源实现
- ASP.NET输出PNG图片时出现GDI+一般性错误的解决方法
- Ajax.net 显示错误信息的设置
- asp.net ListView 数据绑定
ASP.NET 中的 在EXCEL中获取列中不重复的值的个数
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 161 ::
收藏到网摘: 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
