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

raalyf

谢谢　收藏了　

chxw68

非常好！！！

想飞

我很开心

我很开心

我很开心

我很开心

啊一

今天就利用数组做个东西哈哈，原来我是多么无知啊！一个东西循环很多次，慢得很，用数字就非常快了哈哈。山菊花老师！！致敬了！！！

啊一

看了山菊花老师的数组，似乎懂了点。可在实际应用中，还是不行呵呵。下面是我的问题，如果老师有时间看看好吗？没时间能给个思路也好啊呵呵！
我把Range("A1:H" & Range("A65536").end(xlup).row)定义为一个数组：Yarray（），
dim endr as integer
dim Yarray() as integer    '因为数据不多，最多500行，所以我定义为整数型
endr=range("a65536").end(xlup).row
ReDim Yarray（endr，8）
这样对吗？

然后，把这8列数据，从最后一行开始往上每隔一行写在同行的9列到16列（红色的字是我不会做的内容呵呵，汗！）
就像这样：
12345678
22345678
32345678
42345678
52345678                  12345678
62345678                  32345678
72345678                  52345678
82345678                  72345678
92345678                  92345678

谢谢了山菊花老师！！期待您的到来！！

[此贴子已经被作者于2006-12-6 18:57:25编辑过]

山菊花

1、关于数据类型

工作表单元格中数据的类型为 Variant 。

程序中用 DIM 语句把数组Yarray 声明为 Integer 类型，与单元格数据类型不相一致，会导致错误，应把数组 Yarray 声明为 Variant 类型。
 

2、ReDim 语句是重新分配存储空间，下面代码并不会把单元格区域的值写入数组：

ReDim Yarray（endr）

该语句只是规划数组的大小，好像在白纸上画些格子一样，格子中还是空白，没有数字。

下面的代码才是把单元格区域中的值写入数组：

Yarray = Range("a1:h" & endr).Value

使用该形式给数组赋值，可以不用事先声明，系统在赋值时自动声明数组。

3、隔行复制数据

方法可以多样，下面附件供参考：

sFNBwKkD.rar (9.81 KB, 下载次数: 270)

2006-12-6 18:53 上传

点击文件名下载附件
墙上那一串串红辣椒——数组入门讲座

啊一

呵呵，你不知道我高兴成啥了呵呵，快晕过去了哈哈，我原来可是用了很多嵌套循环语句啊，巨慢无比。我想根据我的系统配置不应该那么慢的，后来发现了山菊花老师的数组，我忽然眼前一亮，我完全可以用数组来做，可做起来就不那么容易了，弄了一个下午，百思不得其解啊！现在老师给了方法，真的好高兴。太感谢了！！就做您的学生了呵呵，老师在上，受愚徒一拜！！！呵呵，开心啊！！

啊一

山菊花老师语：“该语句只是规划数组的大小，好像在白纸上画些格子一样，格子中还是空白，没有数字。”

呵呵，一针见血啊，我在监视窗口就是看到的全是空值，没有东西，我当时不知道为什么呵呵，现在老师给了答案，解开了谜团，谢谢了，我现在对它的运行过程还不是很了解，我再好好想想去呵呵。

辛苦了山菊花老师！

ljx63426

好啊，到处找，没有这方面的书，太好了，请兰老师多讲这方面的知识。

山菊花

直接单元格复制：

QUOTE:

Private Sub CommandButton2_Click()
    Dim nRow As Long, nRow2
    nRow = Range("a65536").End(xlUp).Row
    nRow2 = nRow
    For i = nRow To 1 Step -2
        Range("i" & nRow2).Resize(1, 8) = Range("a" & i).Resize(1, 8).Value
        nRow2 = nRow2 - 1
    Next
End Sub