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

Posted 2023-03-31

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

在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来定位查找数据在源数据中的位置。

参考技术A 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 "操作完成"
你试一下看看本回答被提问者采纳 参考技术B ctrl+F 输入123，点击查找

Excel如何把两列中相同的数据找出，并对应内容排列？

如图，AB两列中的数字有重复项，我想把B列的数据按A列同行排序出来，不重复的数据在最下面显示或者隐藏也可以，请问有哪位大神知道方法。

Excel怎样快速分出两组数据的不相同数据

Excel怎样提取两组数据的交集" 

参考技术A 用vba编程解决
思想是(假设你的单据号是唯一的)
从少的一列开始,循环少的那列,每读取一个单元格,再循环读多的一列,发现有相同的,将相同的哪个位置和当前位置交换,便可以了.vba用vb语言的,很容易的Microsoft Excel是Microsoft为使用Windows和Apple Macintosh操作系统的电脑编写的一款电子表格软件。

直观的界面、出色的计算功能和图表工具，再加上成功的市场营销，使Excel成为最流行的个人计算机数据处理软件。在1993年，作为Microsoft Office的组件发布了5.0版之后，Excel就开始成为所适用操作平台上的电子制表软件的霸主。[1]Microsoft Office是一套由微软公司开发的办公软件套装，它可以在Microsoft Windows、Windows Phone、Mac系列、iOS和Android等系统上运行。与其他办公室应用程序一样，它包括联合的服务器和基于互联网的服务。从20

07版的Office被称为“Office System”而不叫“Office Suite”，反映出它们包括服务器的事实。

Office最初是一个推广名称，出现于1990年代早期，指一些以前曾单独发售的软件的合集。当时主要的推广重点是：购买合集比单独购买要省很多钱。最初的Office版本包含Word、Excel和PowerPoint。“专业版”包含Microsoft Access，Microsoft Outlook 当时不存在。随着时间的改变，Office应用程序逐渐集成，共享特性，例如：拼写和语法检查、OLE数据集成和VBA脚本语言。微软目前将Office延伸作为一个开发平台，可以借由专用商店下载第三方软件搭配使用。

Office常是制作文档文件的标准，而且有一些其他产品不存在的特性，但是其他产品也有Office缺少的特性。自从Microsoft 2007 Office System开始，有一个和以前版本差异很大的用户界面，该界面被称为Ribbon界面，并沿用在Microsoft Office 2010、Microsoft Office 2013和Microsoft Office 2016中。[1 参考技术B 用vba编程解决
思想是(假设你的单据号是唯一的)
从少的一列开始,循环少的那列,每读取一个单元格,再循环读多的一列,发现有相同的,将相同的哪个位置和当前位置交换,便可以了.vba用vb语言的,很容易的 参考技术C 在表格当中要想把两个相同的数据找出，只需要我们选定一列之后，然后在工具栏点击相似类型的筛选，这样的话就可以找到另一栏。 参考技术D C1输入：=IF(COUNTIF(B$1：B$40，A1)=0，"",A1)，然后把C1出现的数往下来， B列与A列相同的数据会在C列行行对应。，