求教循环排序

lqbaz

根据图片，想进行这样的排序，数据比较大，新手，希望各位老师指点。其中没有说明清楚的是，C列，是希望以1,2,3,4的顺序循环排列。

Book1.rar (8.9 KB, 下载次数: 8)

2013-5-20 07:25 上传

点击文件名下载附件

jiu128

C列不同行单元格对应D列单元格数值应该是一一对应的，C列由小到大排序而对应的D列就不可能按由小到大排序了吧？

李甲

先D列升序，再C列升序
就这样？
还是……

ncow

排序是可以选择两个条件的啊。
但也有主次之分。那就选择C列为第一排序条件，再选择D列为第二排序条件即可。

lqbaz

李甲 发表于 2013-5-20 08:40
先D列升序，再C列升序
就这样？
还是……

哦，C列以1,2,3,4的循环顺序排列。

lqbaz

ncow 发表于 2013-5-20 10:45
排序是可以选择两个条件的啊。
但也有主次之分。那就选择C列为第一排序条件，再选择D列为第二排序条件即可 ...

恩。但是自定义的排序，无法使用循环排列，还是我没有发现这个功能。求指导

sweetian

这样的效果吗

lqbaz

sweetian 发表于 2013-5-22 16:03
这样的效果吗

谢谢热心回答。这个不是我要的效果，我希望是在原表格上的排序，而不再重新开一列来排序。

sweetian

1. Sub round1()
   
2.     Dim r, lastr, x, y, m, i As Integer
   
3.     lastr = Sheets(1).Range("A65536").End(xlUp).Row + 1
   
4.     m = 2 '用来记录排序序号
   
5.     For i = 1 To lastr + 2
   
6.         x = i Mod 4
   
7.         y = i Mod 41
   
8.         If x = 0 Then x = 4
   
9.         For r = 2 To lastr + 2
   
10.             If Sheets(1).Cells(r, "C") = x And Sheets(1).Cells(r, "D") = y Then
    
11.                 If m <> r Then
    
12.                     Sheets(1).Range("A" & r & ":F" & r).Cut
    
13.                     Sheets(1).Range("A" & m).Select
    
14.                     Selection.Insert Shift:=xlDown
    
15.                 End If
    
16.                 m = m + 1
    
17.             End If
    
18.         Next
    
19.     Next
    
20. End Sub

复制代码

sweetian

你看看原表的排序是不是你需要的效果，如果是把程序稍微改动一下就行了