Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/excel/24.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181

Warning: file_get_contents(/data/phpspider/zhask/data//catemap/3/wix/2.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Excel 是否可以对公式结果进行排序?_Excel_Sorting_Excel Formula_Vba - Fatal编程技术网

Excel 是否可以对公式结果进行排序?

Excel 是否可以对公式结果进行排序?,excel,sorting,excel-formula,vba,Excel,Sorting,Excel Formula,Vba,我有一张公式表,其结果取决于多列,其中每个数据行包含一些度量的属性。我需要对公式结果进行排序 当我尝试这样的东西时,它什么都没有。我甚至想过对源数据进行排序,但我需要根据公式结果对它们进行排序 Sub formulaSort() Dim testSheet As Worksheet Set testSheet = Sheets("Sheet1") With testSheet .Range(.Cells(2, 4), .Cells(18, 4)).Sor

我有一张公式表,其结果取决于多列,其中每个数据行包含一些度量的属性。我需要对公式结果进行排序

当我尝试这样的东西时,它什么都没有。我甚至想过对源数据进行排序,但我需要根据公式结果对它们进行排序

Sub formulaSort()
    Dim testSheet As Worksheet
    Set testSheet = Sheets("Sheet1")

    With testSheet
        .Range(.Cells(2, 4), .Cells(18, 4)).Sort key1:=.Range("D2"), order1:=xlAscending


    End With

End Sub

那么,这里有一些选项如何对公式结果进行排序,或者按公式结果对多个数据列进行排序吗?

好的,所以我很笨,所以这可能会对将来的人有所帮助。根据公式结果对数据进行排序就像love一样简单。只需选择所有数据和公式,并根据公式列对它们进行排序

Sub formulaSort()
    Dim testSheet As Worksheet
    Set testSheet = Sheets("Sheet1")

    Dim rangeToSort As Range



    With testSheet

        .Range(.Cells(2, 2), .Cells(18, 4)).Sort key1:=.Range("D2"), order1:=xlAscending


    End With

End Sub