初学字典，请码老师给调试下

沈默00

ykcbf1100 发表于 2023-6-15 10:18
你这个模糊查询没必要用字典，用字典的话应该更麻烦。

老师的代码简洁明了，厉害。我现在是刚刚学字典，所以用字典试下，就是找不到错在哪儿了

ykcbf1100

沈默00 发表于 2023-6-15 13:16
老师的代码简洁明了，厉害。我现在是刚刚学字典，所以用字典试下，就是找不到错在哪儿了

多看看老师们的代码，再多写写，慢慢就会了。

沈默00

3190496160 发表于 2023-6-15 10:50
仅供参考

谢谢老师，我这个表格数据有4万多行，你这个只能模糊查询姓名，对卡类型就不能查询了。有些知识还没有学到，我先消化下再看看

沈默00

ykcbf1100 发表于 2023-6-15 13:22
多看看老师们的代码，再多写写，慢慢就会了。

是的，还是要多看多写，

沈默00

3190496160 发表于 2023-6-15 10:49

重新试过了，好用，谢谢老师

3190496160

沈默00 发表于 2023-6-15 13:46
重新试过了，好用，谢谢老师

呵呵，所以说，没有认真测试，先别忙着下结论

沈默00

3190496160 发表于 2023-6-15 14:20
呵呵，所以说，没有认真测试，先别忙着下结论

，嗯嗯，受教受教，要学的太多了

zjzyj

论 Application 与 WorksheetFunction 的区别。

下图中，drr1转置出错，而drr2则成功转置：

沈默00

zjzyj 发表于 2023-6-15 20:21
论 Application 与 WorksheetFunction 的区别。

下图中，drr1转置出错，而drr2则成功转置：

两种都试了，也不行，提取出来的数组frr 是想要的结果，没错，就是转置就出错了，老师帮我再看看吧，我就是想知道错在哪了

yylucke

沈默00 发表于 2023-6-16 10:33
两种都试了，也不行，提取出来的数组frr 是想要的结果，没错，就是转置就出错了，老师帮我再看看吧，我就 ...

转置出来就是缺了一行，原因就是UBound(frr)得到的是数组frr的最大行号，但请注意，因为你的程序在前面：ReDim frr(0 To UBound(crr))，指定从0行开始，因此导致UBound(frr)的结果较实际行数少一行。所以：
Sheet1.[a5].Resize(UBound(frr), 4)
修改为
Sheet1.[a5].Resize(UBound(frr)+1, 4)