段落自动排序
自动排序是可以实现的，这需要用到worksheet_change事件。
在“自动排序”工作表模块中输入以下代码：
Private Sub Worksheet_Change(ByVal Target As Range)
Dim h As Range
'If Target。
Count>1 Then End'若同时改变多个单元格时，不想让其排序，请把本行首的“'”去掉
If Target。Column 2 Then'若改变的单元格的列标小于8，行标小于2，则运行下面语句
Set h=Range(Cells(Target。
Row,1),Cells(Target。Row,7))'让对象变量h为改变的单元格所在行的1—7列的内容
If Application。CountA(h)=7 Then Call sorts'如果h的所有单元格都有内容，则运行sorts程序
End If
End Sub
并在VBA工程中插入一模块，输入以下代码：
Sub sorts()
With ActiveSheet
。
Range("a2:g"&。[g65536]。End(xlUp)。Row)。SortSpecial 1,_
。Range("G2"),2,,。Range("A2"),2,。Range("F2"),2,1
End With
End Sub
具体参考视频。
视频解答 
