vba实现自动排序

sn6688

每次都手动排序都太麻烦，所有想利用VBA来实现自动排序，请给位大神帮忙。。。
实现的功能：1、利用VBA将表一的数据整理成表二的形式；
                   2、其中全系统不参与五家公司的排名；
                   3、按实动率来排名。

sn6688

这个是附件

chaohuahch

代码如下：
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

chaohuahch

代码如下：

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

sn6688

chaohuahch 发表于 2018-6-19 16:17
代码如下：

Sub 转换表格()

这个程序运行之后还是有些问题，数据只是例子，数据改动之后就会运行出错了，麻烦大神再抽空修改一下，多谢