更改单元格的顺序以发送电子邮件，然后将其更改回来

Question

是否可以使用宏来更改Excel文档中单元格的顺序，然后立即将其更改回来？

在C栏中，我有一个日期列表。理想情况下，我希望按日期对所有行进行宏顺序排序，按此顺序发送我需要的电子邮件，然后让它回到现在的（或多或少）随机顺序。

这可能吗？

Answer 1

如果您想知道这是如何排序日期

Sub SortByDate()
 Dim rSortRange As Range
 Dim ws As Worksheet

Set ws = Sheets("Sheet1")
Set rSortRange = ws.Range("N11", "N111")
rSortRange.Sort Key1:=ws.Range("N11"), Order1:=xlAscending
End Sub

如果您使用outlook

，则可以运行此代码发送电子邮件

Application.Dialogs(xlDialogSendEmail).Show