[已解决]怎么查找数据？

adadada · 发表于 2013-10-17 22:16

本帖最后由 adadada 于 2013-10-25 20:58 编辑

在E F列查找，GHI 数据和在F列找到的数据和E列数据在同一行

最佳答案

月排行榜 / 总排行榜

zjdh

2013-10-18 08:33

附件3.rar (7.38 KB, 下载次数: 44)

zjdh · 发表于 2013-10-18 08:33

附件3.rar (7.38 KB, 下载次数: 44)

danio112 · 发表于 2013-10-18 09:08

见附件

adadada · 发表于 2013-10-18 20:49

本帖最后由 adadada 于 2014-4-24 19:06 编辑

danio112 发表于 2013-10-18 09:08
见附件

Cells(j, "f").Resize(, 4) = Application.Index(arr, i, 0)
解释下代码？

adadada · 发表于 2013-10-18 20:53

zjdh 发表于 2013-10-18 08:33

如果数据多，到底哪楼的代码速度快？

danio112 · 发表于 2013-10-18 21:06

本帖最后由 danio112 于 2013-10-18 21:07 编辑

adadada 发表于 2013-10-18 20:49
Cells(j, "f").Resize(, 4) = Application.Index(arr, i, 0)
解释下代码？

右边取数组的第i行的四个数，直接赋值给f,g ,h ,i　四列
估计会比楼上快一点，因为楼上用了for 循环，赋值四次，而这种方法只赋值一次。

adadada · 发表于 2013-10-18 21:19

danio112 发表于 2013-10-18 21:06
右边取数组的第i行的四个数，直接赋值给f,g ,h ,i　四列
估计会比楼上快一点，因为楼上用了for 循环， ...

右边取数组的第i行的四个数，直接赋值给f,g ,h ,i　四列
这句代码详细点，不明白？

danio112 · 发表于 2013-10-18 21:53

adadada 发表于 2013-10-18 21:19
右边取数组的第i行的四个数，直接赋值给f,g ,h ,i　四列
这句代码详细点，不明白？

         If arr(i, 1) = Cells(j, "E") Then
            Cells(j, "f").Resize(, 4) = Application.Index(arr, i, 0)
         End If

arr不就是你的数组arr = Range("F3:I" & Range("F65536").End(3).Row)么，二维数组，11行4列，
如果arr(i, 1) = Cells(j, "E") 即，数组的第i行第一个数等于Cells(j, "E") ,就把这一行的四个数，放到Cells(j, "f").Resize(, 4) 这四列来。
Application.Index(arr, i, 0)取第i行
Application.Index(arr, 0, i)取第i列

sdasd · 发表于 2014-4-24 15:28

danio112 发表于 2013-10-18 21:53
If arr(i, 1) = Cells(j, "E") Then
Cells(j, "f").Resize(, 4) = Applica ...

这0是什么意思？

sdasd · 发表于 2014-5-4 09:14

danio112 发表于 2013-10-18 21:53
If arr(i, 1) = Cells(j, "E") Then
Cells(j, "f").Resize(, 4) = Applica ...

解释下？

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