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

sopie397

  你太厉害了，佩服！

  我是初学者，我很疑惑，怎样才能让按纽和指定的代码结合起来呢！

  别笑我菜，请赐教！

山菊花

QUOTE:

以下是引用sopie397在2006-12-9 13:20:32的发言：

我是初学者，我很疑惑，怎样才能让按纽和指定的代码结合起来呢！

参考：

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

sopie397

  非常感谢，通俗而易懂！

  佩服！

  仰视你！

啊一

QUOTE:

以下是引用山菊花在2006-12-7 11:37:00的发言：

直接单元格复制：

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

山菊花老师！谢谢！！今天让我第一次看到了resize这个方法呵呵，我查了帮助，又学了新知识。我的难题在于：先读取range(cells(1,1),cells(range("A65536").end(xlup).row,8))的数据，然后在后面分别以隔一行，隔两行，隔三行……到隔20行排列。我用的和你的方法差不多，只是因为隔的太多，我又只会用循环呵呵，其他语句和方法我不会。我从2004年2月19日注册，刚开始就学的是FOR NEXT语句哈哈，所以也最喜欢用它。我把我的代码给老师看看，有没有更好的解决办法，让速度彻底上去，我这样的方法是很慢的呵呵。因为不是一张表这样排，而是5张表呵呵，所以就慢了。我其中的代码如下：

Sub YiZhiWuGeQi()                                               '1-5表隔期排列
Dim Endrow,sheetnum,m,n,i as Integer
Application.ScreenUpdating = False      '关闭屏幕刷新
Endrow = Sheet1.Range("A65536").End(xlUp).Row         '确定原始数据最后一行
For sheetnum = 1 To 5                                  '分别填充1-5表
    Sheets(sheetnum).Select
    With Sheets(sheetnum)
        m = 9
        For n = -2 To -32 Step -1          '确定所隔的最大行数
            For i = Endrow To 6 Step n   '确定每次所隔的行数
                Range(Cells(Endrow, m), Cells(Endrow, m + 7)).Value = Range(Cells(i, 1), Cells(i, 8)).Value
                Endrow = Endrow - 1         '逐行填充,由下往上
            Next i
        Endrow = Sheet1.Range("A65536").End(xlUp).Row         '重新确定最后一行,然后由上往上填充
        m = m + 8
        Next n
Next sheetnum
Application.ScreenUpdating = True      '屏幕刷新
Sheet1.Range("I6").Select
End Sub

不求老师全部写出代码呵呵,只是想吸取老师的思路,对我来说只能做到这样了呵呵.希望老师在百忙之中不吝赐教才好!不胜感激!!

山菊花

对不起，没看清你的操作意图。

最好提供附件，说明希望从原始数据中筛选到什么结果。

啊一

给山菊花老师：
就是选择第1列到第8列的数据(每个单元格只有一个数字或汉字)，行数就用end(xlup).row来定了。然后每隔一行复制到第9到第16列(区域大小是一样的),然后每隔两行复制到第17到24列……一直到每隔15行.就像下面的例子:

第1至8列    第9至16列    第17至24列
11111111
22222222
33333333
44444444
55555555
66666666
77777777    22222222
88888888    33333333
99999999    55555555    11111111
AAAAAAAA    77777777    44444444
BBBBBBBB    99999999    77777777
CCCCCCCC    BBBBBBBB    AAAAAAAA
DDDDDDDD    DDDDDDDD    DDDDDDDD

不知道老师看懂我的意图没有呵呵,就是说总是从最后第1到第8列的数据开始往上写.如果不明白我给您发附件到您的邮箱里好吗?附件不合适放在这里呵呵。就当是为了咱这点自尊吧!因为我的代码实在惨不忍睹.

zzf0400

顶！！！

收藏！！！

koyowjian

还是要再顶一下。因为实在是太好了

偶来学习VBA

菊花版主的东西就是经典啊！[em02]

啊一

看来这几天山菊花老师好忙,没看这帖子.希望你一切都好!