在网上看到有网友求助：
每次都手动排序都太麻烦，所有想利用VBA来实现自动排序，请给位大神帮忙。。。 实现的功能：
1、利用VBA将表一的数据整理成表二的形式；
2、其中全系统不参与五家公司的排名；
3、按实动率来排名。
解决之后的运行过程：
代码如下：
Sub 转换表格()
Dim i As Integer
For i = 4 To 8
For j = 5 To 9
If Cells(j, 4) > Cells(i, 4) Then
Range("a" & j).Resize(1, 10).Select
Selection.Cut
Range("a" & i).Resize(1, 10).Select
Selection.Insert Shift:=xlDown
End If
Next
Next
End Sub
知识点：
1：for 循环的嵌套
2：if循环语句
3：range的resize属性
4：cut函数
本程序可以实现对表格中的任意区间进行排序。
分享到:
閱讀更多 浮雲Excel分享 的文章
