作者：乔山办公网日期：
返回目录：excel表格制作
用open语句打开文件，然后应instr查找文本。如果字段是列，那直接找到列，然后用for循环查找就可以了
Sub 提取数据百()
Application.ScreenUpdating = False '这句将极大提度升效率
n = 1 '数据提取表从第一行开始问填充数据
For i = 3 To Sheets.count '从第3个表开始直到最后1个表
For j = 4 To 2000 '每个表的数答据从第四行回开始
If Sheets(i).Cells(j, "C") = "" Then Exit For 'C列数据为空，该答表数据提取完毕
If Sheets(i).Cells(j, "L") <> "√" Then
Sheets(1).Range("B" & n & ":K" & n).Value = Sheets(i).Range("B" & j & ":K" & j).Value
n = n + 1
End If
Next
Next
Application.ScreenUpdating = True
End Sub