设置排序功能的范围

时间:2017-04-26 06:28:56

标签: excel vba excel-vba sorting match

我正在尝试为sort函数设置列的范围。

然而,范围从某一行开始,我使用匹配函数来查找并结束单元格为空的位置。我该怎么做呢?

它就行了:

Sheet3.Sort.SortFields.Add Key:=Range("G" & v & "G" & v.End(xlDown)), 
    SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal

提前感谢您的帮助!

Sheet3.Sort.SortFields.Clear
v = Application.Match("GND", Sheet3.Range("C:C"), 0)
Sheet3.Range("A" & v & ":K" & v).Select
Sheet3.Range(Selection, Selection.End(xlDown)).Select
Sheet3.Sort.SortFields.Add Key:=Range("G" & v & "G" & v.End(xlDown)), 
SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
Sheet3.Sort.Apply

1 个答案:

答案 0 :(得分:1)

无需使用from("file://d:/temp/in/?include=myFile*.csv") .process("myHeaderSetter") .choice() .when(header("myheader")).to("sql-stored:proc_1()?dataSource=#dataSource") .otherwise().to("sql-stored:proc_2()?dataSource=#dataSource") .end() .to("reportGenerator") .to("file://d:temp/out/?fileName=report.txt"); (只会降低代码运行时间),请尝试以下代码:

Select

enter image description here