主题：如何根据ComboBox的内容筛选数据？ComboBox里的选项是一些区间，但是要求筛选后得到的数据是在这个范围内的数据。

1、先把你的表数据，处理成数值类型 2.7、12.3 之类的。

2、上传实例具体说明

Dim Filter As String
With e.Form.Controls("ComboBox1")
    If .Value IsNot Nothing Then
        Filter = "地区 = '" & .Value & "'"
    End If
End With

With e.Form.Controls("ComboBox2")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Dim ary() As String = .Value.split("-")
        Filter = Filter & "室外温度 >= " & val(ary(0)) & " and 室外温度 <= " & val(ary(1))
    End If
End With

If Filter > "" Then
    Tables("模拟广州天气分析").Filter = Filter
End If