Question

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

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

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

我试图用来完成此任务的代码如下：

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

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

我需要做些什么来正确地进行此类排序？

Answer 1

好消息！

您的代码行在此上下文中起作用：

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，lastSpec 和目标

的值

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

1 个答案: