[已解决]求修改排序代码

zld0807

请老师帮帮忙，就是把M列数据排列在L列中。
排序规则：当L列行号为5的整数倍的时候，依次把M列数据排好,也就是说M列的数据在L列中每隔5行出现一个。
代码如下
Sub 排序()
    Dim X, Y
    X = 1
    Y = 0
    Do While X < 5 * Range("M65535").End(xlUp).Row + 1
        If X Mod 5 = 0 Then
            Range("L" & X) = Range("M" & Y)
           Y = Y + 1
        End If
        X = X + 1
    Loop
End Sub
                                                     

最佳答案

月排行榜 / 总排行榜

那么的帅

2013-6-6 14:31

再简单些

1. Sub 排序1()
   
2.     Dim X
   
3.     X = 1
   
4.     Do While X < Range("M65535").End(xlUp).Row + 1
   
5.         Range("L" & X * 5) = Range("M" & X)
   
6.         X = X + 1
   
7.     Loop
   
8. End Sub

复制代码

跳转到最佳答案楼层

那么的帅

1. Sub 排序()
   
2.     Dim X, Y
   
3.     X = 1
   
4.     Y = 0
   
5.     Do While X < 5 * Range("M65535").End(xlUp).Row + 1
   
6.         If X Mod 5 = 0 Then
   
7.             Range("L" & X) = Range("M" & Y + 1)
   
8.            Y = Y + 1
   
9.         End If
   
10.         X = X + 1
    
11.     Loop
    
12. End Sub

复制代码

那么的帅

再简单些

1. Sub 排序1()
   
2.     Dim X
   
3.     X = 1
   
4.     Do While X < Range("M65535").End(xlUp).Row + 1
   
5.         Range("L" & X * 5) = Range("M" & X)
   
6.         X = X + 1
   
7.     Loop
   
8. End Sub

复制代码

zld0807

再次谢谢帅老师。。。。。