求教对EXCEL先对两列筛选，再求第三列的平均值？ - 编程论坛

风吹过b2017-05-23 14:45

个数    4939
和    1960927.105
平均数    397.029177

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

只有本站会员才能查看附件，请登录

ictest2017-05-23 14:52

后续想了想，最好还是不要用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