Sorting 按字母顺序对电子表格的一部分进行排序

我试图根据一行中的公司名称按字母顺序对数据的一部分进行排序

相关列为第7列中的公司名称和第9列中的规范编号。到目前为止，我编写的脚本找到具有正确规范号的最高和最低列，然后在具有正确规范的最后一行之后的新行中插入所有公司数据

然后，我只想按公司名称对具有该规范编号的行进行排序，以便公司名称按字母顺序排列。这必须使用公司的所有信息对整行进行排序，而不仅仅是名称

我尝试使用的代码如下所示：

Range(Cells(firstSpec, 7), Cells(lastSpec, 7)).Sort Key1:=Target, Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

这只会给我一个运行时错误1004

---

我需要做什么才能正确地进行排序？

好消息

您可以在以下上下文中使用代码行：

Sub qwerty()
    Dim firstSpec As Long, lastSpec As Long
    Set target = Cells(1, 7)
    firstSpec = 1
    lastSpec = 3
    Range(Cells(firstSpec, 7), Cells(lastSpec, 7)).Sort Key1:=target, Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub

---

如果出现错误，请检查firstSpec、lastsspec和target

的值。打开宏录制器，手动进行排序，然后查看其结果。