VBS 如何读取Excel中的每一行数据

Set oexcel=CreateObject("excelapplication")

Set obook=oexcelWorkbooksOpen("c:\test\excelxls")

Set osheet=obookSheets("sheet1")

'显示第一个工作表A1单元格数据

msgbox osheetcells(1,1)

Set obook=Nothing

Set osheet=Nothing

oexcelQuit

=LOOKUP(1,0/(Sheet1!A1:IV1<>“”),Sheet1!A1:IV1)

=LOOKUP(1,0/(Sheet1!A1:A65535<>“”),A1:A65535)

A工作簿sheet1！的数据如下：

在B工作簿中输入公式：

=MAX(IF([axlsx]Sheet1!A:A<>"",ROW(A:A),0))

数组公式，按crtl+shift+enter产生花括号即可。

第一、选中sheet1中的内容，比如是A1:A1000，然后菜单“插入”“名称”，定义一个名称，比如是AAAA，引用的区域就是sheet1表的A1:A1000，表述为=sheet2!$A$1:$A$1000,添加，确定。

第二、再进入sheet2表，选中A列，“数据”“有效性”选中序列，内容输入=AAAA

确定。

第三、然后sheet2表B1输入

=if($a1="","",vlookup($a1,sheet2!$A:$G,column(b1),0))

下拉且右拉公式，公式中的G是假设你的sheet1内容是到G列，你可以根据实际情况调整。

这时候你在A列会有下拉菜单，当选中一个菜单中的内容。后面的列会自动出现你要的信息。

以上就是关于VBS 如何读取Excel中的每一行数据全部的内容，包括:VBS 如何读取Excel中的每一行数据、excel中的sheet2 A1中想得到sheet1第一行的最后一个内容，要怎么做如果是列又要怎么做、如何用公式在B工作薄中获取A工作薄中 Sheet1工作表的 A列最后一行的行号等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！