如何自动对数据进行排序按任何列在Microsoft Excel 2010中使用VBA
在本文中，您将学习如何按特定列自动对数据进行排序。
[.underline]＃让我们举个例子：＃以下是我们拥有的数据的快照。请参考下面的快照：
我们需要一个代码，当我们键入该代码时，它会自动对A列上的数据进行排序。
单击“开发人员”选项卡。从“代码”组中，选择“ Visual Basic”
在工作表上输入以下代码。 （在我们的示例中为sheet1）
私人子Worksheet_Change（按目标的ByVal目标）
关于错误继续Next
如果不相交（目标，范围（“ A：A”）），则
Range（“ A1”）。Sort Key1：= Range（“ A2”），_
Order1：= xl升序，标头：= xl是，_
| === OrderCustom：= 1，MatchCase：= False，_
方向：= xlTopToBottom
如果
结束
结束子
以下是以上代码的结果。
上面的代码将在A列发生更改时激活，如果您想在B列发生更改时激活宏，则必须进行一些微调
私人子Worksheet_Change（按目标的ByVal目标）
关于错误继续Next
如果没有相交（目标，范围（“ B：B”）），则
Range（“ B1”）。Sort Key1：= Range（“ B2”），_
Order1：= xl升序，标头：= xl是，_
| === OrderCustom：= 1，MatchCase：= False，_
方向：= xlTopToBottom
如果
结束
结束子
这样，您可以轻松按任何特定列对数据进行排序。当您在A列（在第一个示例中）和B列（在第二个示例中）中键入信息时，将触发代码并自动对数据进行排序。如果我们必须定期对数据进行排序，这将节省大量时间。