墙上那一串串红辣椒——数组入门讲座

simonlucy · 发表于 2006-10-28 19:38

好贴!

chenju5403 · 发表于 2006-10-28 21:05

向山老师致敬!

office_wolf · 发表于 2006-10-29 11:47

好贴,谢谢楼主.

htqccw · 发表于 2006-10-29 14:59

向山老师好好学习

w_tt · 发表于 2006-10-29 16:28

可否将两个同样行数的数组合并为一个同行数的数组？

w_tt · 发表于 2006-10-29 16:33

楼上未说清，应如此说，可否

arr1(m,n)

arr2(m,l)

合并为arr3(m,l+n)

luluming · 发表于 2006-10-29 17:09

不错！收下了。

不过我有两个问题，希望能帮我解决。

1）数组入门5中的复制，如：arr = Sheet2.Range("a1:e83")
Range("a1:e83") = arr

里面的行数如果是变量应该怎么办呢？

2）数组入门3中的，我在新表中重新写了你给的程序，但是，d10的效果就出不来，是怎么操作的。

谢谢！

山菊花 · 发表于 2006-10-29 22:40

提供两个方法，供参考：

HRqXBlAC.rar (11.36 KB, 下载次数: 363)

山菊花 · 发表于 2006-10-29 22:46

QUOTE:

以下是引用luluming在2006-10-29 17:09:47的发言：

不错！收下了。

不过我有两个问题，希望能帮我解决。

1）数组入门5中的复制，如：arr = Sheet2.Range("a1:e83")
Range("a1:e83") = arr

里面的行数如果是变量应该怎么办呢？

2）数组入门3中的，我在新表中重新写了你给的程序，但是，d10的效果就出不来，是怎么操作的。

谢谢！

1）

QUOTE:

Sub test()
    Dim nRow% '声明一个变量
    With Sheet2
        nRow = .Range("a65536").End(xlUp).Row '返回sheet2工作表A列最后一个非空单元格所在的行号
        arr = .Range("a1:e" & nRow) '把区域数据复制到数组
        Range("a1:e" & nRow) = arr '把数组数据复制到当前工作表区域
    End With
End Sub

2）请把附件传上来。

xczxy · 发表于 2006-10-29 23:07

我什么时候才有这水平？天啦！！

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

墙上那一串串红辣椒——数组入门讲座

回复：（w_tt）合并两个数组