Sub 升序()
[b1:b9] = [SMALL(A1:A9,ROW(A1:A9))*ROW(A1:A9)^0]
End Sub
Sub 降序()
[c1:c9] = [LARGE(A1:A9,ROW(A1:A9))*ROW(A1:A9)^0]
End Sub

当然也可以把它交给数组

貌似这个螃蟹是偶第一个吃的

补充（行数不能确定时）

Sub 降序()
Dim m%, arr, arra(), x%
m = [COUNTA(A:A)]
arr = [LARGE(A:A,ROW(A:A))*ROW(A:A)^0]
ReDim arra(1 To m, 1 To 1)
For x = 1 To m
    arra(x, 1) = arr(x, 1)
Next
Range("c1").Resize(m, 1) = arra
End Sub

下面这些语句感觉很有实用性

MsgBox [MAX(1*LEFT(A1:A10000,2))]
MsgBox [MAX(1*MID(A1:A10000,1,2))]
MsgBox [max(len(a1:a10000))]

相关帖链接

http://club.excelhome.net/viewthread.php?tid=341253&px=0

[此贴子已经被作者于2008-7-26 22:01:15编辑过]

好思路。

这“[]”一直以为仅用于单元格引用，原来对表达式也有用。

调用工作表函数方便多了：[sumproduct((a1:a9)*(b1:b9))]

螃蟹好吃，就是壳硬，方括号中不能用变量。

VBA中有专吃螃蟹工具 。推荐使用Evaluate

几乎所有在表里中的有 “名” 的对象 以及公式都可以往里面套，但限制在255字符之内

Range("c1:c9") = Evaluate("LARGE(A1:A9,ROW(A1:A9))*ROW(A1:A9)^0")
Range("b1:b9") = Evaluate("SMALL(A1:A9,ROW(A1:A9))*ROW(A1:A9)^0")

Set shp = Sheet1.[矩形 1] ''''''sheet1.矩形框对象

Set shp = Sheet1.Evaluate("矩形 " & 1 )'''效果同上 但可以使用变量

Range("c1:c9") = [c1:c9]  = Evaluate("c1:c9")

三楼说的不知道，在论坛转悠几年，也没见这么用“[]”的

四楼LDY版主说的知道

变通一下，呵呵，权且这样当当变量吧

Sub 降序()
Dim m%
m = [COUNTA(A:A)]
Range("c1:c" & m) = [LARGE(A1:A100,ROW(A1:A100))*ROW(A1:A100)^0]
End Sub

不用[a65536].End(xlUp).Row

用[COUNTA(A:A)]

好像都是函数的方式

这样可以建立数组

arr = [LARGE(A:A,ROW(A:A))*ROW(A:A)^0]

只要确定最后一行的行数，也可以起到排序的作用

这种使用表达式的方法还真没见过。帮助文件中也没有提过这个事情。学习了。支持[em17][em17]

Evaluate 方法
请参阅 应用于 示例 特性
将一个 Microsoft Excel 名称转换为一个对象或者一个值。

expression.Evaluate(Name)

expression   对于 Application 对象可选，对于 Chart 对象，DialogSheet 对象，和 Worksheet 对象必需。该表达式返回“应用于”列表中的对象之一。

Name   String 类型，必需。对象名使用 Microsoft Excel 的命名约定。

说明
下列几类 Microsoft Excel 名称可以使用此方法：

A1-样式引用。可以引用任何以 A1-样式符号表示的单个单元格。所有引用都是绝对引用。
单元格区域。可在区域引用中使用区域、交集和联合运算符（分别为冒号、空格和逗号）。
已定义的名称。可用宏语言指定任意名称。
外部引用。可以使用“!”操作符引用另一工作簿上的单元格或已定义的名称。例如，Evaluate("[BOOK1.XLS]Sheet1!A1")。
注意   使用方括号（例如，"[A1:C5]"）与用字符串参数调用 Evaluate 方法是等效的。例如，下列表达式对是等价的。

[a1].Value = 25
Evaluate("A1").Value = 25
trigVariable = [SIN(45)]
trigVariable = Evaluate("SIN(45)")
Set firstCellInSheet = Workbooks("BOOK1.XLS").Sheets(4).[A1]
Set firstCellInSheet = _
    Workbooks("BOOK1.XLS").Sheets(4).Evaluate("A1")
使用方括号的优点在于代码较短。使用 Evaluate 的优点在于参数是字符串，这样您既可以在代码中构造该字符串，也可以使用 Visual Basic 变量。

示例
本示例将工作表 Sheet1 上 A1 单元格的字体设置为加粗。

Worksheets("Sheet1").Activate
boldCell = "A1"
Application.Evaluate(boldCell).Font.Bold = True

一楼做了补充，基本解决了“变量”问题

菜鸟胡乱摸索，但愿能起到一些抛砖引玉的作用，谢谢大家支持！！！！！！！！！