[已解决]工作表函数index善变？

爱疯 · 发表于 2010-4-27 17:07

MOOuGfAc.rar (12.48 KB, 下载次数: 0)

Dj_soo · 发表于 2010-4-27 17:12

工作表中错误部分你的写法和理解都有错误.

quUbIFmU.rar (11.42 KB, 下载次数: 0)

Zipall · 发表于 2010-4-27 17:18

将resize中的1改成4，你就知道他们返回值的区别了。

之前显示的结果相同，是因为你存放结果的容器只能容纳结果中的1列。

另外关于工作表中的index，你还可以参考下面的讨论

http://www.excelpx.com/forum.php?mod=viewthread&tid=126618&replyID=&skin=1

爱疯 · 发表于 2010-4-27 17:31

Sub test()
    Dim a
    a = [a1:d10]
    [f1].Resize(UBound(a), 1) = Application.Index(a, 0, 0) '返回第1列
    [g1].Resize(UBound(a), 1) = Application.Index(a, 0, 1) '与上句等效
End Sub

b2i0Y7Qy.rar (9.38 KB, 下载次数: 0)

枯禅 · 发表于 2010-4-27 17:44

QUOTE:

以下是引用爱疯在2010-4-27 17:31:00的发言：

Sub test()
    Dim a
    a = [a1:d10]
    [f1].Resize(UBound(a), 1) = Application.Index(a, 0, 0) '返回第1列
    [g1].Resize(UBound(a), 1) = Application.Index(a, 0, 1) '与上句等效
End
   Sub

这样看，两句效果难道不是一样的吗？[em04]

不然，Application.Index(a, 0, 0)等效于a，[f1].Resize(UBound(a), 1)决定了其只显示一列，改成：

[f1].Resize(UBound(a), 4) = Application.Index(a, 0, 0) '返回第1列你就明白我在说什么了

爱疯 · 发表于 2010-4-27 18:02

谢谢大家！

0表示全部的

非0（就叫n吧)表示第n

[em04]

求知123 · 发表于 2010-4-27 18:22

学习学习.[em01]

hyhhh · 发表于 2010-4-27 21:17

学无止境,...........,,[em02]

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