[求助]请问老师怎么建立这个数组？

yuan710825

option base 1

'我先在表中先选择一行：

sub 建立数组（）

sheet2.select

dim r as long

r=selection.Row

dim arr(12) '我想在我选择的这一行的A列到L列建立一个数组

arr(12)=range("a:l"&r) "重点在这里,我不知道这个数组的建立错在哪里?

请老师们在百忙中帮我解答一下,谢谢了!

山菊花

1、数组结果是一个二维数组：Arr(1,12)，Arr(12)是一维数组，这是错误之一。

2、区域引用的正确写法是：Range("a" & r & ":l" & r)

3、用区域创建数组时，数组不带下标，正确格式为：

arr = Range("a" & r & ":l" & r)

4、用区域创建数组，该数组必须是动态数组，声明时不带下标：

Dim arr()

QUOTE:

Option Base 1
Sub 建立数组()
Sheet1.Select
Dim r As Long
r = Selection.Row
Dim arr()
arr = Range("a" & r & ":l" & r)
End Sub

yuan710825

经常拜读总版主的作品，每次总有一种耳目一新的感觉！谢谢在百忙中关注我的疑问！

yuan710825

Sub 填充数据()
Sheets("数据库").Select
r = Selection.Row
Dim arr()
arr = Range("a" & r & ":l" & r)
'填充第一列
Sheets("打印输出").Cells(2, 7) = arr(r, 2)
Sheets("打印输出").Cells(2, 15) = arr(r, 2)
Sheets("打印输出").Cells(2, 3) = arr(r, 1)
Sheets("打印输出").Cells(2, 11) = arr(r, 1)

Sheets("打印输出").Cells(3, 3) = arr(r, 3)
Sheets("打印输出").Cells(3, 11) = arr(r, 3)

Sheets("打印输出").Cells(3, 7) = arr(r, 4)
Sheets("打印输出").Cells(3, 15) = arr(r, 4)

Sheets("打印输出").Cells(4, 3) = arr(r, 5)
Sheets("打印输出").Cells(4, 11) = arr(r, 5)

Sheets("打印输出").Cells(5, 3) = arr(r, 6)
Sheets("打印输出").Cells(5, 11) = arr(r, 6)

Sheets("打印输出").Cells(6, 3) = arr(r, 7) + " " + arr(r, 8)
Sheets("打印输出").Cells(6, 11) = arr(r, 7) + " " + arr(r, 8)

Sheets("打印输出").Cells(7, 3) = arr(r, 9) + " " + arr(r, 10)
Sheets("打印输出").Cells(7, 11) = arr(r, 9) + " " + arr(r, 10)

Sheets("打印输出").Cells(8, 3) = arr(r, 11)
Sheets("打印输出").Cells(8, 11) = arr(r, 11)

Sheets("打印输出").Cells(8, 7) = arr(r, 12)
Sheets("打印输出").Cells(8, 15) = arr(r, 12)

End Sub

请问错误在哪里，（下标越界！）

yuan710825

这个已经可以用了,但代码可以有点啰嗦,大家指正下吧,谢谢了!

EhfgQ6GM.rar (47.75 KB, 下载次数: 20)

2007-12-29 22:19 上传

点击文件名下载附件

[此贴子已经被作者于2007-12-29 22:19:16编辑过]

山菊花

函数版，请测试：

Ze6C7DM3.zip (55.09 KB, 下载次数: 70)

2007-12-30 00:50 上传

点击文件名下载附件
[求助]请问老师怎么建立这个数组？