在網上看到有網友求助：
每次都手動排序都太麻煩，所有想利用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分享 的文章
