段落自動(dòng)排序
自動(dòng)排序是可以實(shí)現(xiàn)的，這需要用到worksheet_change事件。
在“自動(dòng)排序”工作表模塊中輸入以下代碼：
Private Sub Worksheet_Change(ByVal Target As Range)
Dim h As Range
'If Target。
Count>1 Then End'若同時(shí)改變多個(gè)單元格時(shí)，不想讓其排序，請把本行首的“'”去掉
If Target。Column 2 Then'若改變的單元格的列標(biāo)小于8，行標(biāo)小于2，則運(yùn)行下面語句
Set h=Range(Cells(Target。
Row,1),Cells(Target。Row,7))'讓對象變量h為改變的單元格所在行的1—7列的內(nèi)容
If Application。CountA(h)=7 Then Call sorts'如果h的所有單元格都有內(nèi)容，則運(yùn)行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
具體參考視頻。
視頻解答 
