数量越多越能体现编程的好处（相对VLOOKUP之类的函数来说）。不知从这些2500公司挑出你要的1000公司的挑选标准是什么？只要这挑选标准EXCEL的VBA能处理，那么用excel中VBA编个程序是不难的。

没有什么标准，前提就是有2500家公司的数据，然后知道要从中查找的1000家公司的名称及股票代码，需要从2500家公司中查找出这1000家公司以及它们对应的数据。

假设:2500公司数据在FullList表格内，第1列必须是股票代码，以后33列是公司名和32个数据。找到的1000公司数据将输出到Result表格，第1列是股票代码，以后33列是从FullList表格内提取的找到的公司名、32个数据。如果未找到，第1列显示股票代码，第2列显示未找到的出错信息。寻找这1000公司是根据Codes表格（第1列）的股票代码（文本格式）来找。那么，VBA程序如下（试运行似乎没问题，请指正）：

Public Sub FindCoInf()
Dim i As Long, FullListRowNo As Long, NumOfCo As Long
Dim TargetRowNo As Long, NumOfTargetCo As Long, NumOfDataForEachCo As Long
Dim FullListSh As String, ResultSh As String, TargetCodeSh As String, TargetCode As String
Dim CoFound As Boolean

FullListSh = "FullList": ResultSh = "Result": TargetCodeSh = "Codes"
NumOfDataForEachCo = 32 + 2
'you mention it is 32, however, there are two more, i.e. company code, and company name, so 34
NumOfCo = 2500 'you mention that is 2500
NumOfTargetCo = 1000 'you mention that is 1000

For TargetRowNo = 1 To NumOfTargetCo
TargetCode = CStr(Sheets(TargetCodeSh).Cells(TargetRowNo + 1, 1).Value)

CoFound = False
FullListRowNo = 1
Do While FullListRowNo <= NumOfCo And (Not CoFound)
If CStr(Sheets(FullListSh).Cells(FullListRowNo + 1, 1).Value) = TargetCode Then
    CoFound = True
Else
    FullListRowNo = FullListRowNo + 1
End If
Loop

If CoFound Then
For i = 1 To NumOfDataForEachCo
Sheets(ResultSh).Cells(TargetRowNo + 1, i).Value = Sheets(FullListSh).Cells(FullListRowNo + 1, i).Value
Next i
Else
Sheets(ResultSh).Cells(TargetRowNo + 1, 1).Value = TargetCode
Sheets(ResultSh).Cells(TargetRowNo + 1, 2).Value = "ERROR: Code not found in the full list!"
End If

Next TargetRowNo

End Sub

哥们，你这个好详细啊，真心很感谢你这么细心的写出所有的过程。但是这个好像不是用的Excel编程吧？具体用的是哪个软件啊？

EXCEL内含的VBA(全称：Visual Basic For Application)语言，俗称：宏(macro)。如果你打开EXCEL后，按ALT+F11出现Microsoft Visual Basic编辑器，就说明你的EXCEL含有这东东（一般的EXCEL都有含这东东）。

好的，谢谢了~