Question

我想在输入新数据时自动对excel中的字段进行排序。假设我有以下数据： 1预设计 2设计 4施工 5施工后如果我输入“3 Tender”，它应该自动排序并移动到适当的位置。如何在MS Excel 2013中执行此操作？

我的当前代码如下，但您必须每次都运行宏;我希望自动排序：

Sub SORTROWS()
Range("A7:AF200").Sort key1:=Range("D7:D200"), _
order1:=xlAscending, Header:=xlNo

Dim lastrow As Long
lastrow = Cells(Rows.Count, 2).End(xlUp).Row
Range("A7:AF" & lastrow).Sort key1:=Range("D7:D" & lastrow), _
   order1:=xlAscending, Header:=xlNo

End Sub

Answer 1

代替使用Sub ...，使用私人子Worksheet_Change（按目标的ByVal目标） ... 结束

在Excel中自动排序行

1 个答案: