以区域里的内容为条件的控件筛选，请问如何完成？

把数据导入到access中去做数据查询,会相对简单一点,但如果一定要在excel中完成,也可以通过ado或者dao的方法去完成

ADO方法,需要引用ADO对象

Dim rst    As New ADODB.Recordset
Dim CNN    As New ADODB.Connection
CNN.Provider = "Microsoft.Ace.OleDb.12.0

CNN.ConnectionString = "Data Source=" & Thisworkbook.fullname & _
                                   ";Extended Properties=Excel 8.0;"

 CNN.Open
            rst.Open "select * from [促销费用申请表$C7:AK2000] where [预计费用合计（元）]<>null", CNN, adOpenKeyset, adLockReadOnly
            ActiveCell.CopyFromRecordset rst
           

DAO方法:

Dim db         As Database
Dim rst        As Recordset

Set db = OpenDatabase(ActiveWorkbook.FullName, False, True, "excel 8.0")
    Set rst = db.OpenRecordset("select [分区],sum([回款金额]) as [回款金额合计], sum([清账金额]) as [清账金额合计],[销售办事处文本] from [收款清账汇总表$]   group by [分区],[销售办事处文本] order by [销售办事处文本]")
    Workbooks.Add
    Range("A2").CopyFromRecordset rst