VBA入门之一《与代码亲密接触》

gzxw

Sub xx()
Dim x(), k(), l()
x = Range("A4:a10")
k = Range("c4:c10")

MsgBox UBound(x)
MsgBox x(1)
End Sub

运行上面这一段,出现如下提示:"运行时错误,下标越界"

请问山菊花老师,这是为什么原因?

如果我想将数组X,与数组K合并成一个数组L,使用join函数该怎样写?

QUOTE:

因为 x 是一个二维数组，显示x的第1个元素，应该是x(1,1)，不是x(1)

合并两个数组不是用Join。

Sub xx()

    Dim x(), k(), l(), s
    x = Range("A4:a10")
    k = Range("c4:c10")
    s = UBound(x)
    ReDim l(1 To s, 1 To 2)
    For i = 1 To s
        l(i, 1) = x(i, 1)
        l(i, 2) = k(i, 1)
    Next

End Sub

[此贴子已经被山菊花于2007-1-23 23:40:51编辑过]

wulaohan

化繁为简，深入浅出，
山菊花，名不虚传！！！

[em17]

shengshizi

晕，这么好的帖子不会是太监版吧。。。。。

caatuo

学习学习，天天向上

magicbird

不错,借鉴一下

忧郁的香子兰

太感谢了!!!!

jiangyulan

太棒了。。。我一看英语就头疼。。但是看了山菊花老师的详细讲解。。

哇！就一个字“好”！太感动了

[em34]

jiangyulan

虽然还不是很懂。。。但会慢慢研究的。。。相信不会让山菊花失望。。。

hangtian2006

山版主能不能把代码结合窗体讲一下它们如何结合吧!

有鱼就有猫

一晚上学不晚，明天接着学