现有一个EXCEL文件，工作表1的名字是“Data1”，内有三列。

希望如此操作：
A列筛选出“1”；
B列筛选出“TRUE”；
求C列满足A列为“1”，B列为“TRUE”时剩下的数据的平均值，平均值在文本框TEXT1中显示出来。

附EXCEL文件：

个数    4939
和    1960927.105
平均数    397.029177

直接到 EXCEL表格中写公式可以不？为啥要再写个程序呢？
写程序也简单，只是不愿动了。附件是直接写的公式。

后续想了想，最好还是不要用A列，B列，C列来调用，每一列第一行都是项目名称，A列的项目名称是：'Site_No；B列的项目名称是：'Dut_Pass；C列的项目名称是：'VCS_be，还是通过项目名称来调用吧，谢谢！
VB 调用 EXCEL我是会的，但仅到如此，如何筛选、求平均值就不会了，请各位路过的大神帮助！

Private Sub Command1_Click()
Dim ep As Object
Dim xlApp As Excel.Application '定义EXCEL类
Dim xlBook As Excel.Workbook '定义工件簿类
Dim xlsheet As Excel.Worksheet '定义工作表类
Set xlApp = CreateObject("Excel.Application") '创建EXCEL应用类
xlApp.Visible = False '设置EXCEL不可见
Set xlBook = xlApp.Workbooks.Open("c:\ex1.xls") '打开EXCEL工作簿
Set xlsheet = xlBook.Worksheets(1) '打开EXCEL工作表，定位活动工作表
.
.
.
.
.
.
xlBook.Save
xlBook.Close (True)
xlApp.Quit '关闭EXCEL
Set xlApp = Nothing '释放EXCEL对象
End Sub