当你在Excel中修改单元格时，会触发Worksheet_Change事件。这段代码的作用就是在这个事件被触发时，自动按照你设定的规则进行排序。
下面是代码详解：
Private Sub Worksheet_Change(ByVal Target As Range)
这行代码定义了一个名为Worksheet_Change的事件处理程序。它会在工作表中某一单元格的内容发生变化时被调用。
If Not Intersect(Target, Range("A:A")) Is Nothing Then
这行代码判断是否有单元格位于指定范围内（Range(“A:A”)），如果有，则继续执行下面的排序操作。
Application.EnableEvents = False
这行代码禁用了事件响应机制，防止在排序过程中再次触发Change事件。
Range("A1").Sort Key1:=Range("A:A"), Order1:=xlAscending, _CustomOrder:=Range("D1:D3"), MatchCase:=False, _Orientation:=xlTopToBottom
这行代码实现了按照指定规则进行排序。其中Key1参数指定要排序的列（本例中是”A”列），Order1参数指定升序或降序排列（本例中是升序），CustomOrder参数指定自定义列表的范围（本例中是”D1:D3”）。MatchCase和Orientation参数分别表示匹配大小写和从上到下排序。更多关于Sort方法的详细说明请参见Excel帮助文档。
Application.EnableEvents = True
这行代码启用了事件响应机制，以便下一次Change事件能够被正确触发。
如果你在实际操作中遇到问题，可能是由于以下原因：
代码未放置在正确的工作表对象中。请确保你已经双击打开了你正在编辑的工作表对象，并将代码复制粘贴到其中。
没有启用宏功能。请先打开Excel选项中的“开发人员”选项卡，并勾选“显示开发人员选项卡”，然后在“宏安全性”中选择“启用所有宏”。
自定义列表范围与实际设定不符合。请检查CustomOrder参数指定的范围是否与你设置自定义排序时输入的关键字范围相符。
希望这些解释能够帮助你顺利运行这段代码。
![[GIN-debug] [WARNING] Creating an Engine instance with the Logger and Recovery middleware already attached.](https://linuxcpp.0voice.com/zb_users/upload/2023/05/202305162234452257235.png)
