VBA编程，自动筛选列表值，模糊提取数据方法，高级进阶

Excel的强项是数据处理，工作当中会遇到很多相同或类似的数据，需要统一提取出来，进行一个整合判断。

通过一个循环方法可以快速实现数据的有序提取。

本节介绍一下，如何从工作表中提取出相关数据，然后赋值到一个ComboBox控件里。

组合控件可以用下拉列表形式给出一些选项，进行操作。

如果有些选项比较多，那么选择起来也是一件十分痛苦的事情，于是，可以通过一些模糊查询来进行自动筛选，然后给出一些可能需要的选项。

这么做，也是为了最大化提高应用的操作便捷性而进行的一项数据处理。

此类应用在各大搜索引擎使用较广泛，当你输入一个字符的时候，相关热词会自动列出，就是这个意思。

下面将通过代码来具体实现此项功能的运用。

首先，在工作表中插入一个ComboBox控件，控件名为ComboBox1。

编辑如下代码：

Private Sub ComboBox1_Change()
Dim xStr As String
xStr = Me.ComboBox1.Value
With Me.ComboBox1
    .Clear
    .Value = xStr
    .List = GetComList(xStr)’调用函数
End With
End Sub

此代码为当组合框内容发生改变时的事件，也就是当输入字符的时候会进行的一些过程。

通过list属性来对组合控件进行赋值。

这里调用了一个自定义函数。

函数代码：

Public Function GetComList(xStr As String) '返回列表
    Dim xLrr, xi As Integer
    ReDim xLrr(0)
    xStr = VBA.UCase(VBA.Trim(xStr))
    If VBA.Len(xStr) = 0 Then '如果是查找空值
        xLrr(0) = ""
        GetComList = xLrr
        Erase xLrr
        Exit Function
    End If
    '查找列表值
    Dim xArr, i As Integer, xc As Integer
    xc = 3 '查找列号
    xi = 0
    xArr = ActiveSheet.Range("A2").CurrentRegion
    For xi = LBound(xArr, 1) To UBound(xArr, 1)'判断是否找到
        If VBA.InStr(1, VBA.UCase(VBA.Trim(xArr(xi, xc))), xStr, vbTextCompare) <> 0   Then
            ReDim Preserve xLrr(i)
            xLrr(i) = xArr(xi, xc)
            i = i + 1
        End If
    Next xi
    GetComList = xLrr
    Erase xLrr
    Erase xArr
End Function

通过以上代码，就可以实现对工作表某一列数据进行检索，然后比对ComboBox组合框中的内容，如果找到相关内容就把找到的值赋值给了组合框，可以进行选择。

本示例是以第3列进行检索，即xc的值。

根据一些全自动化的运行，可以实现人工复杂且重复性的一些工作，也是办公自动化应用的最有效方法。

欢迎关注、收藏

---END---