自动排序

项目正好用到，记录一下，excel 2007 测试通过。 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 Then i = Selecti...