如何在EXCEL中用VBA提取整行数据？

子发票号查询()

'关闭屏幕刷新。

迪姆j & amp，并购；，k & amp，我& amp

J =表格(“数据信息”)。[A65536]。结束(3)。Row '计算数据信息表中的总行数。

M =张(“同一发票号下的商品信息”)。[A65536]。结束(3)。Row '计算商品信息表数据中同一发票号下的总行数。

表(“同一发票号下的商品信息”)。行(" 3:" &；M+1)。删除'删除商品信息表中同一发票号下的倒数第三行数据。

计数器K被初始化为2。假设标题中有2行，提取的数据副本的位置从第三行开始。

For i = 2到j 'i从数据信息表的第二行到最后一行循环。

If表(“数据信息”)。单元格(I，“x”)= Sheets(“同一发票号下的商品信息”)。Range ("B1") T如果数据信息表第一行第x列的值与同一发票号下的商品信息表单元格B1中的数据相同。

K = k+1’计数器K+1的值。

表格(“信息”)。行(I)。复印纸(“同一发票号下的商品信息”)。范围(" a " &；k)’行复制到A & amp；k单元格k是计数器的当前值，例如，k=3是单元格A3。

如果…就会结束

然后

[B1]。挑选

申请。' screenupdating = true '恢复屏幕刷新。

末端接头