批量查询求助

chxjchen

各位大大。
自己在网上找的资料，制作的查询记录表，可以正常使用，但复制数据的方法比较繁琐，请老师帮忙看看，能否优化，谢谢!

文件如附件。

汉唐

k=6
For i=2 to maxRow1
sn =sht1.cells(i,1).value
For j=2 to maxRow2
with sht3
keyword=.cells(j,23).value
if sn like "*" &keyword &"*" then
For y=1 to 21
.cells(k,y).value=sht1.cells(i,y).value
Next'y
......
Next 'j
k=k+1
......
Next'i
End with

汉唐

上面的end with 位置错位，修改
k=6
For i=2 to maxRow1
sn =sht1.cells(i,1).value
For j=2 to maxRow2
with sht3
keyword=.cells(j,23).value
if sn like "*" &keyword &"*" then
For y=1 to 21
.cells(k,y).value=sht1.cells(i,y).value
Next'y
......
End with
Next 'j
k=k+1
......
Next'i

3190496160

数据源表赋值给数组，在数组中查询， 查询结果赋值给另外一个数组，最后一次性把查询结果赋值给单元格区域，速度不是问题

chxjchen

汉唐 发表于 2023-2-23 10:19
上面的end with 位置错位，修改
k=6
For i=2 to maxRow1

貌似不行呢

chxjchen

3190496160 发表于 2023-2-23 10:30
数据源表赋值给数组，在数组中查询， 查询结果赋值给另外一个数组，最后一次性把查询结果赋值给单元格区域 ...

能帮忙给个范例吗，对这些不太懂

洋务德雷

没看懂要差什么关键词？这个用SQL就可以做到，何必用vba那些逻辑呢

chxjchen

以小萌新的角度来看， VBA和SQL都是天书

ovxyz

用这种大数量的还是用sql，又快又省事。

chxjchen

虽然没看懂，还是得拜谢各位大神，谢谢！