0

従業員 ID を含む並べ替え基準として最初の列を使用して、ワークシートのデータを並べ替えようとしています。以下のコードは私が試したものです。動作しますが、ご覧のとおり、範囲が限られています(「A2:F7」)。エクセルダウンを使用して最初の列の選択を変更できるようになりましたが、範囲全体でそれを行う方法がわかりません。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 に答える