Question

用vba筛选数据并保存到新Excel文件

如图表格，编写vba代码，实现：1、分别筛选出来专业成绩为0、行测成绩为0的信息2、筛选出来的信息分别保存到两个新建Excel文件，并命名为专业成绩为零、行测成绩为零，不打开

Answer 1

首先假设：你的原始数据所在工作表表名叫：成绩，数据存放在A:F列，A1:F1是数据标题。

Sub 生成数据()
Dim newbook As Workbook
Dim newsheet As Worksheet
Dim wb As Workbook
arr = Sheets("成绩").Range("A1:F1")
Set wb = Application.Workbooks.Add
With wb.Sheets(1)
    .Name = "专业成绩为零"
    .Range("a1:f1") = arr
    .Columns("a:f").AutoFit '根据内容调整列宽
End With
wb.SaveAs ThisWorkbook.Path & "\专业成绩为零.xlsx"
wb.Close False
Set wb = Application.Workbooks.Add
With wb.Sheets(1)
    .Name = "行测成绩为零"
    .Range("a1:f1") = arr
    .Columns("a:f").AutoFit '根据内容调整列宽
End With
wb.SaveAs ThisWorkbook.Path & "\行测成绩为零.xlsx"
wb.Close False
Set wb = Nothing
    
Set Cnn1 = CreateObject("ADODB.connection")
Cnn1.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='Excel 12.0;';Data Source=" & ThisWorkbook.Path & "\专业成绩为零.xlsx"
Sql = "insert into [专业成绩为零$] select * from [Excel 12.0;Database=" & ThisWorkbook.FullName & "].[成绩$a:f] WHERE (专业成绩=0) "
Cnn1.Execute Sql
Cnn1.Close

Cnn1.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='Excel 12.0;';Data Source=" & ThisWorkbook.Path & "\行测成绩为零.xlsx"
Sql = "insert into [行测成绩为零$] select * from [Excel 12.0;Database=" & ThisWorkbook.FullName & "].[成绩$a:f] WHERE (行测成绩=0) "
Cnn1.Execute Sql
Cnn1.Close
Set Cnn1 = Nothing

End Sub

追问

前面的新建文件语言能用，后面的筛选数据语言太高端，我这office软件不支持，老是提示错误，有没有比较低端点的语言。求教了

Answer 2

通常情况下，用VBA就不会用筛选来做了。
建议：第一步：将原始数据读取后存入一个数组；
第二步：对数组逐条访问，根据筛选设定的条件，如果满足条件则将这条记录的内容写入目标位置
第三步：也就是循环第二步，一直到结束就完成了。