月光软件站 - 编程文档 - .NET开发 - 在EXCEL中获取列中不重复的值的个数

.NET开发

本类阅读TOP10

·vs.net 2005中文版下载地址收藏
·NHibernate快速指南(翻译)
·【小技巧】一个判断session是否过期的小技巧
·通过Web Services上传和下载文件
·？dos下编译.net程序找不到csc.exe文件
·VB/ASP 调用 SQL Server 的存储过程
·学习笔记（补）《.NET框架程序设计（修订版）》--目录
·对比.NET PetShop和Duwamish来探讨Ado.NET的数据库编程模式
·Autodesk官方最新的.NET教程（一）(vb.net版)
·Duwamish深入剖析-结构篇

→ 分类导航

VC语言	Delphi
VB语言	ASP
Perl	Java
Script	数据库
其他语言	游戏开发
文件格式	网站制作
软件工程	.NET开发

在EXCEL中获取列中不重复的值的个数

作者：未知来源：月光软件站 加入时间：2005-2-28　月光软件站

Public Sub distinctCount()
'求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

相关文章：

相关软件：