如何在 vba 中按日期排序（附示例）

您可以在 VBA 中使用以下基本语法按日期对行进行排序：

 Sub SortByDate()
Range(" A1:C10 ").Sort Key1:=Range(" A1 "), Order1:=xlAscending, Header:=xlYes
End Sub

此特定示例根据 A 列中的日期对范围A1:C10中的行进行排序，从最旧到最新。

如果要按日期从最新到最旧对行进行排序，可以指定Order1:=xlDescending 。

请注意， Header:=xlYes指定第一行应被视为标题行。

以下示例展示了如何在实践中使用此语法。

示例：使用 VBA 按日期排序

假设我们在 Excel 中有以下数据集，其中包含有关商店在不同日期的销售和退款的信息：

假设我们要按日期对行进行排序，从最旧到最新。

我们可以创建以下宏来执行此操作：

 Sub SortByDate()
Range(" A1:C10 ").Sort Key1:=Range(" A1 "), Order1:=xlAscending, Header:=xlYes
End Sub

当我们运行这个宏时，我们会收到以下输出：

请注意，行现在按日期排序，从最早的日期到最新的日期。

要按日期从最新到最旧对行进行排序，我们可以指定Order1:=xlDescending ：

 Sub SortByDate()
Range(" A1:C10 ").Sort Key1:=Range(" A1 "), Order1:=xlDescending, Header:=xlYes
End Sub

当我们运行这个宏时，我们会收到以下输出：

请注意，行现在按日期排序，从最新到最旧。

注意#1 ：在此示例中，我们对一列进行排序。但是，您可以指定更多键来对多个列进行排序。

注意#2 ：您可以在此处找到 VBA排序方法的完整文档。

其他资源

以下教程说明如何在 VBA 中执行其他常见任务：

VBA：如何按多列对工作表进行排序
VBA：如何计算范围内的行数
VBA：如何过滤列