0

我正在尝试使用第一列作为包含员工 ID 的排序标准对工作表中的数据进行排序。下面的代码是我尝试过的,它可以工作,但你可以看到它的范围有限(“A2:F7”)。现在我可以使用 excel 向下更改第一列选择,但我不知道如何在整个范围内执行此操作。shift + ctrl + end 或它的其他变体会起作用吗?

' Sort Data According to emp_id
                    '
                    ActiveWorkbook.Worksheets("Temp Calc").Sort.SortFields.Clear
                    ActiveWorkbook.Worksheets("Temp Calc").Sort.SortFields.Add Key:=Range("A2:A7" _
                    ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
                    With ActiveWorkbook.Worksheets("Temp Calc").Sort
                        .SetRange Range("A1:F7")
                        .Header = xlYes
                        .MatchCase = False
                        .Orientation = xlTopToBottom
                        .SortMethod = xlPinYin
                        .Apply
                    End With
4

1 回答 1

0

这样的事情应该会有所帮助:

.SetRange Range("A1:F7", Range("A1:F7").End(xlDown))
于 2013-07-01T05:04:17.317 回答