带有Alpha排序和行扩展的Excel宏

我对excel宏有点熟悉（不太熟悉，因为对某些人来说这似乎是一个显而易见的代码），我被赋予了组织列表的任务。我必须每周组织这个列表，因此我不想每周都手动进行alpha排序，我正在尝试开发一个宏，可以为我这样做

要求是我可以按列进行alpha排序，并将排序扩展到列的其余部分，这样行就不会错位。有什么建议吗

---

提前谢谢

假设您的数据在A:E列中，您可以在要对对象进行排序的工作表上输入以下代码（假设您要对A列进行排序）

如果您要在模块中输入它，您将需要像这样首先引用该表

Sub sortme()
Sheets("MySheet").Columns("A:E").sort key1:=Range("A1"), _
Order1:=xlAscending, Header:=xlYes
End Sub

---

你能提供一个你的数据的例子吗？这将有助于我们更好地回答您的问题。由于信息的性质，我无法提供一个示例。但本质上是5列，行数未知且有限。我必须按不同的列进行alpha排序，但行必须保持在tack中。列是否都在工作表中连接？是的，所有列都在工作表中连接。欢迎使用堆栈溢出！为了给你一个很好的答案，如果你还没有看一眼，它可能会帮助我们。如果您可以提供一个.Plese注释，它可能也很有用-这也是假设您的数据有标题。如果没有标题，您需要删除标题：=xlyes非常感谢，我会让您知道这是否有效！我遇到了一个错误“Runtime error'1004'”。您能确定哪里会出错吗？您使用了哪个代码段？您在哪里运行代码？

Sub sortme()
Sheets("MySheet").Columns("A:E").sort key1:=Range("A1"), _
Order1:=xlAscending, Header:=xlYes
End Sub