[分享+测试]替代Vlookup函数，在超大数据量下进行查找

caoejiangboy · 发表于 2007-1-27 11:47

楼主，等待你的回复，谢谢！

narutoshyb · 发表于 2007-4-27 17:00

看来,VBA我还得慢慢学!

plg123 · 发表于 2007-4-27 17:25

同问50楼，能不能按输入的行以及输入的列双方查找呢？跟坐标轴一样的，确定横坐标和众坐标查处值来？

（2）楼主给出的sample中，数据源中有多少列数据，RUN之后也出现多少列。而我的需求是：数据源中包含许多列，而我只要RUN出其中的几列（两种情况：一、RUN出连续的几列；二、RUN出不连续的几列，是否均可实现），请问如何才能实现？

plg123 · 发表于 2007-4-27 18:17

版主下班了？？请问谁知道代码中 [b1].Resize(irow1, icol2 - 1) = arr2 是什么意思？

plg123 · 发表于 2007-4-27 18:22

其他的都看懂了，就差最后这一句代码，谁解释下阿

plg123 · 发表于 2007-4-28 10:13

怎么没人回答阿，郁闷

hangtian2006 · 发表于 2007-4-28 10:25

这个贴子置项

benkyou · 发表于 2007-4-28 10:25

QUOTE:

以下是引用plg123在2007-4-27 17:25:46的发言：

同问50楼，能不能按输入的行以及输入的列双方查找呢？跟坐标轴一样的，确定横坐标和众坐标查处值来？

（2）楼主给出的sample中，数据源中有多少列数据，RUN之后也出现多少列。而我的需求是：数据源中包含许多列，而我只要RUN出其中的几列（两种情况：一、RUN出连续的几列；二、RUN出不连续的几列，是否均可实现），请问如何才能实现？

严重同意以上提议，请LZ再改改，有选择性的

Long_III · 发表于 2007-4-29 10:44

一楼提供的是一种思路，并不是一种通用代码

关于楼上各位的问题，有选择的选择列是没问题的，代码里用数组来显示结果 ReDim arr2(1 To irow1, 1 To icol2 - 1)，你可以把数组重新定义为3列的 ReDim arr2(1 To irow1, 1 To 3)，赋值时取对应的3列的数据

其他工作薄操作也是一样的处理，也是把数据先放入dictionary里

关于[b1].Resize(irow1, icol2 - 1) = arr2是把数组arr2的值全部赋给单元格[b1].Resize(irow1, icol2 - 1)，参考Resize的帮助

DJFN · 发表于 2007-4-29 10:55

谢谢,收下学习!

		自动登录	找回密码
密码			免费注册