VB查询EXCEL的问题?急啊

来源：百度知道 编辑：UC知道 时间：2024/05/19 02:41:33
例如:在C列查询值与"aser"相同的单元格,c8="aser",则返回D8.......
求问:怎样用VB实现对EXCEL一列的查询????

'例:
m = 0
For i = 1 To 65536
If ThisWorkbook.Sheets("sheet1").Range("C" & i) = "" Then m = m + 1
If m >= 100 Then Exit For
If ThisWorkbook.Sheets("sheet1").Range("C" & i) = "aser" Then MsgBox ThisWorkbook.Sheets("sheet1").Range("D" & i)
Next i
'yxb22@163.com 祝顺意