Question

VBS，怎样根据内容来查找excel中对应的位置？

例如：表格中有值为123，我要找到表格中所有值为123的位置？
不是在excel中查找，我是问用vbs怎样来实现

Answer 1

在excel中有多种多样的公式可以实现，列举常用几个如下：

lookup, 举例：=LOOKUP(E2,$A$2:$B$5), 注意lookup如果在源数据中未查找到对应项，会返回比对应项小的项对应的数值。

vlookup, 举例：=VLOOKUP(E2,$A$2:$B$5,2,)，注意公式最后一个逗号不可省略，省略后结果与lookup相同，为模糊查找。

index, 举例：=INDEX($B$2:$B$5,MATCH(E2,$A$2:$A$5,0))， 注意match的第三参数，为0则表示精确查找，1或-1表示模糊查询。

offset, 所有用index可以完成的事情都可以用offset来达到同样的效果，举例：=OFFSET($A$2:$B$5,MATCH(E2,$A$2:$A$5,0)-1,1,1,1)

indirect，举例：=INDIRECT("B"&MATCH(E2,$A$1:$A$5,0))，3/4/5三个公式中都用到了match来定位查找数据在源数据中的位置。

Answer 2

set oExcel = CreateObject( "Excel.Application" )
oExcel.Visible = false
'4) 打开已存在的工作簿：
oExcel.WorkBooks.Open( "C:\Documents and Settings\Administrator\桌面\Book1.xls" )
'5) 设置第1个工作表为活动工作表：
oExcel.WorkSheets(1).Activate
i = 1
do while oExcel.Cells(i,1).Value <> "" '查找A列中所有的单元格
if oExcel.Cells(i,1).Value = 1 then 'i是行，1是列
oExcel.Cells(i,1).font.color = vbred '设置字体底色为红色
msgbox "行"&i &"列1"
end if
i = i+1
loop
oExcel.ActiveWorkBook.Save
oExcel.WorkBooks.Close
oExcel.Quit
set oExcel = nothing
msgbox "操作完成"
你试一下看看

Answer 3

ctrl+F 输入123，点击查找