If xlSheet.Cells(i, 2).Value = 120 Then
MsgBox xlSheet.Cells(i, 1).Value
筛选excel中第二列值等于120的行，并把相应行的第一列的值msgbox，为何用上面这两句msg不了呢？

EXCEL对象切入进去了没？120是文本还是数字？

你好！我现在EXCEL能切入进去了，120是数字，也能MSG了，就是还有一点，符合条件的结果不止一个，怎么让TEXTBOX同时显示出来结果啊，multiline设成true了，ScrollBars = 2
ROW_COUNT = xlApp.ActiveSheet.UsedRange.Rows.Count
Do While i < ROW_COUNT
i = i + 1
If Cells(i, 2) = 28 Then
Me.Text1.Text = xlSheet.Cells(i, 1).Value
End If
Loop
End Sub
这是我写的循环语句，每次搜到第一个结果就显示一个结果就完了，有什么办法可以把所有搜索结果显示出来吗？

If Cells(i, 2) = 28 Then
s=s + "," +  xlSheet.Cells(i, 1).Value
End If
Me.Text1.Text =s

哇，感谢大神已经成功啦，谢谢

问下大神，就是我实现了TEXTBOX 输出excel的多行结果，怎么在这个过程中msgbox出TEXTBOX里搜索到的第一个结果呢？