在Excel中快速查找部分匹配的数据.pdfVIP

在Excel 中快速查找部分匹配的数据 如果在Excel 中工作簿中存在大量的数据，那么如何在其中找到满足部分条件的数据，并且 能够快速找到呢？在Excel Hero Blog 中提供了很好的两种方法（两段优秀代码），简洁快速， 是Excel 公式、名称与VBA 的完美配合，也是程序效率优化的上佳之作。学习之后，可以提 炼出来，作为模板程序在需要查找时应用。 第一种方法 下图1 为工作簿中的界面。 图1：具有查找部分匹配数据功能的界面 下面介绍的是第一种方法，使用Range 对象的AdvancedFilter 方法。 在工作簿中，有两个工作表，即Data 工作表（放置数据）和Search 工作表（如上图1 所示， 输入查找的数据，显示结果）。 在Search 工作表中定义的名称如下： C3 单元格名称：search_string C8 单元格名称：result_target 在Data 工作表中，将单元格区域z1:z2 定义的名称为：filter_criteria 定义隐藏的名称： Database=Data!$B$1:INDEX(Data!$1:$65536,COUNTA(Data!$A:$A),COUNTA(Data!$1:$1)) result=Search!$C$8:INDEX(Search!$C$8:$IV$65536,COUNTA(Search!$C$8:$C$65536),COUNTA(Se arch!$C$8:$IV$8)) 在Search 工作表中的单元格C3 中使用下面的公式统计找到的记录数： =SUMPRODUCT( --(C9:C65536) ) 在Search 工作表模块中的代码为： Private Sub Worksheet_Activate() [search_string] = Type your search here. [search_string].Select End Sub Private Sub Worksheet_Change(ByVal Target As Range) Const CRITERIA_HEADER = Description Const TEMPORARY_NAME_CREATED_BY_ADVANCED_FILTER = Extract 如果改变的不是要求输入查找条件的单元格,则退出 If Intersect(Target, [search_string]) Is Nothing Then Exit Sub [search_string].Select 撤消工作表保护 Unprotect With Application 清除上一次有哪些信誉好的足球投注网站结果 .Calculation = xlCalculationManual [result].ClearContents 进行有哪些信誉好的足球投注网站 [filter_criteria] = .Transpose(Array(CRITERIA_HEADER, * [search_string] *)) [database].AdvancedFilter xlFilterCopy, [filter_criteria], [result_target] 清理 [filter_criteria] = vbNullString Names(TEMPORARY_NAME_CREATED_BY_ADVANCED_FILTER).Delete .Calculation = xlCalculationAutomatic End With 保护工作表 Protect End Sub 第二种方法 图2：具有查找部分匹配数据功能的界面 下面介绍的是第二种方法，使用ADO 。 - 2 - fanjy_ EH 在工作簿中，有两个工作表，即Data 工作表（放置数据）和Search 工作表（如上图2 所示， 输入查找的数据，