VB操作EXCEL问题

完全可以通过函数实现。

假设此表保存在工作表Sheet1中，
则可在Sheet2中查询，点中Sheet2，在B1单元格设置公式如下

=IF(ISERROR(VLOOKUP(A1,Sheet1!A:B,2,FALSE)),"",VLOOKUP(B1,Sheet1!D3:E9,2,FALSE))

然后复制B1单元格，点击列B列头，选中整列，然后粘贴。

之后只要在工作表Sheet2的列A中任意输入一个值，在对应的同一行列B单元格就会出现查找结果，如果没有对应值则列B单元格为空。

可以这么写的啊！按照标准SQL来执行！
给你个例子！
sConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\test.xls;Extended Properties=""Excel 8.0;HDR=Yes;"";"
Dim adoConn As ADODB.Connection
Dim adoRS As ADODB.Recordset
Set adoConn = New ADODB.Connection
adoConn.Open sConnString
Set adoRS = New ADODB.Recordset
adoRS.Open "select * from [sheet1$]", adoConn, 1, 3
Text1.Text = adoRS.Fields(0)
要是有什么不懂，直接HI我吧！

Private Sub CommandButton1_Click()
Dim tempint As Integer

Dim tempY As Integer
Dim tempflag As Boolean
Dim tempmsgbox As VbMsgBoxResult
tempflag = True

For tempY = 1 To 100
tempint = StrComp(TextBox1.Value, Cells(tempY, 1))
If (tempint = 0) Then
tempmsgbox = MsgBox(Cells(tempY, 2).Value & ":" & Cells(tempY, 1).Value, vbOKOnly, "查找在册员工")
tempflag = False
Else
End If
Next tempY

If (tempflag) Then
tempmsgbox = MsgBox("没有找到这个人", vbOKOnly, "查找在册员工")
End If
End Sub

对，说起来，百度的分其实一文不值。所以，大家对于那些无礼的提问者理都懒得理！
我这人算是比较客气的，顶你一下。