vba查不到数据，且如何实现找不到工号的位置后面保留空值

zhaogang1960

lsc900707 发表于 2016-10-5 22:51
赵老师：我测试时只有一个工号查询时就提示“类型不匹配”，两个以上就正常了>>>>>>>>

arr = Range("B2:B" & Range("B" & Rows.Count).End(xlUp).Row)

改为

arr = Range("B2:c" & Range("B" & Rows.Count).End(xlUp).Row)

lsc900707

zhaogang1960 发表于 2016-10-5 23:09
arr = Range("B2:B" & Range("B" & Rows.Count).End(xlUp).Row)

改为

谢谢您这么晚还给予回复，不过我还没弄懂为什么这里要取两列才行。

zhaogang1960

lsc900707 发表于 2016-10-5 23:15
谢谢您这么晚还给予回复，不过我还没弄懂为什么这里要取两列才行。

连续区域的值赋给一个Variant变量，可以当作数组使用，但该区域只有一个单元格时，该Variant变量不是数组，UBound(arr)会出错

lsc900707

zhaogang1960 发表于 2016-10-5 23:17
连续区域的值赋给一个Variant变量，可以当作数组使用，但该区域只有一个单元格时，该Variant变量不是数组 ...

谢谢你的详细解释！>>>>>>>>>

duquancai

zhaogang1960 发表于 2016-10-5 21:22
楼主邀请收到，本题目使用数组加字典加SQL法速度更快，请参考：
Sub 数组加字典加SQL()
    Dim cnn As O ...

赵老师您好！看了你的代码，颇受启发！在此表示感谢！我学VBA不到半年，但是我敢献丑多写代码，写的代码粗糙让你见笑了！

lihui8171012

duquancai 发表于 2016-10-5 23:31
赵老师您好！看了你的代码，颇受启发！在此表示感谢！我学VBA不到半年，但是我敢献丑多写代码，写的代码 ...

谢谢赵老师及duquancai老师，感谢您抽空帮忙，谢谢！！怎么加鲜花什么，我新手一枚！！！万分感谢！！
只是不知道为什么？duquancai 老师，由于公司电脑不能联网，我只能一个代码敲字进去，我之前测试一下，还是报错，不知道为什么？感谢两位老师！！

lihui8171012

zhaogang1960 发表于 2016-10-5 21:22
楼主邀请收到，本题目使用数组加字典加SQL法速度更快，请参考：
Sub 数组加字典加SQL()
    Dim cnn As O ...

赵老师，如果我想查询的结果向右平移2列，且c列，d列的数据不动(数据是我复制过来的！)应该如何改，另外，如果工号位于第一列，查找的表的工号也是第一列，查询数据后面有7列，又该怎么改？这是两个不同的查询表，望老师有空帮忙看看！

lihui8171012

run_time error'9' subscript out of range各位老师，怎么运行时出现报错，怎么解决，我总表现在超过2500行，怎么解决，你各位老师帮忙看看！