[已解决]排序问题，请老师帮忙

zld0807

        请老师帮帮忙，就是把M列数据排列在L列中。
排序规则：当L列行号为5的整数倍的时候，依次把M列数据排好。
问题：我的代码在附近中，帮忙改下。
                                                         谢谢

最佳答案

月排行榜 / 总排行榜

顺⑦.zì繎。

2013-6-6 11:12

Sub 排序()
Dim arr(1 To 99, 1 To 1)
   For i = 1 To 10
   n = n + 1
   arr(n, 1) = Cells(i * 5, 10)
   
   Next
   [m1].Resize(n) = arr
End Sub

跳转到最佳答案楼层

lyf7276

你看这样行不？
Sub 排序2()
Dim m, i
m = Cells.Find("*", , , , , xlPrevious).Row
For i = 1 To m / 5
Range("m" & i) = Range("j" & i * 5)
Next
End Sub

ligh1298

数组公式，鼠标放在编辑栏，Ctrl+Shift+Enter三键同时按！后下拉。
=INDEX(J:J,SMALL(IF($J$1:$J$40<>"",ROW($1:$40),4^8),ROW(A1)))&""

ligh1298

哎，楼主要VBA，我整了个函数。

顺⑦.zì繎。

Sub 排序()
Dim arr(1 To 99, 1 To 1)
   For i = 1 To 10
   n = n + 1
   arr(n, 1) = Cells(i * 5, 10)
   
   Next
   [m1].Resize(n) = arr
End Sub

zld0807

首先谢谢大家的热心，我不太会用数组。。。请在我的基础上修改下，谢谢。

大灰狼1976

你的代码改的

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

复制代码

zld0807

谢谢。。。。。。。。。。。。