请教miku_con大神

我还以为你已经解决了呢……
之前你帖子中的回答，你没看懂么？

以下是从原先的帖子中复制的回复：
'　VB 对 Excel 表格单元格的描述
Dim Oexcel, Oworkbooks, Newbook, Newsheet
Dim Wjm As String, i As Integer, j As Integer
Wjm = App.Path & "Excel_表格文件名.XLS"
Set Oexcel = CreateObject("Excel.application")
Set Oworkbooks = Oexcel.workbooks
Set Newbook = Oworkbooks.open(Wjm)
Set Newsheet = Newbook.worksheets(1) '　第1张表
'　……
'　单元格描述；i 表示行号，j 表示列号
Newsheet.cells(i, j) = …… '　向单元格里面写入
变量名 = Newsheet.cells(i, j) '　读出单元格的数据
'　……
Newbook.Close '　关闭表
Oexcel.quit '　退出 Excel 文件打开状态
具体来说，通过这个操作可以打开你的Excel表格，然后比如你需要访问单元格A6，则Newsheet.Cells(6, 1)就表示单元格A6
现在你想在A列查找一个输入的内容，然后输出B列对应的内容，那么可以这样：
For i = 1 To Newsheet.Rows.Count
If Text1.Text = Newsheet.Cells(i, 1) Then
Text1.Text = Newsheet.Cells(i, 2)
Exit For
End If
Next i

我对他那个
输入【a】就显示【12345】的理解是【显示出第1、2、3、4、5列的数据】；
输入【c】就显示【13592】的理解是【显示出第1、3、5、9、2列的数据】；
……
要不然把表中的数据全部替换成一个相同的数据有什么意义。