在<em>excel</em>的<em>VB</em>中如何求一列数的和

代码及注释如下：
Sub main()
f = Dir(ThisWorkbook.Path & "\*.xlsx")'搜索本文件知下的所有xlsx格式文件(由于一般道带VBA的文件不能保存为xlsx格式，故无需去判断，是否打开的是专本文件）
Do While f <> ""
Workbooks.Open (ThisWorkbook.Path & "\" & f)'依次打开搜索到的文件
Workbooks(f).Sheets(1).Row(3).Copy Sheets(1).Range("A" & Range("A65536").End(3).Row + 1)'将打开的文件第3行复制到本文件最后一个非空行的下一行中
Workbooks(f).Close'关闭属文件
f = Dir'赋值下一个文件名给f
Loop'继续循环
End Sub

现在的表格都有求和功能，就是把鼠标放在你想求和的数字上，连续数字按住鼠标往下拉，拉到结束的地方，在表格的右下角就会出现你要求的和

材料/工具：excel2007

1、打开一张excel2007工作表，这里需要筛选出“销售一部”的全部数据并且选出其中的zd最大值。

2、选中表格中的任意单元格，依次点击插入【表】选项按钮。

3、弹出创建表对话框，单击【确定】按钮。

4、返回到工版作表中，一个新的表格被创建出来了，在标题行出现筛选功能。

5、点击“权销售分部”选项下的筛选按钮，筛选出“销售一部”的数据

6、将设计表样式选项中的“汇总行”勾选，在表格中最末端出现汇总行。

7、点击“汇总行”表格中的右端按钮

8、在弹出的下拉菜单中选中“最大值”选项。

Sub TT()
Dim ZX
ZX = Sheet1.Application.Min(Range("A1:A100"))
Cells(2, 2) = ZX
MsgBox "A1:A100最小值是" & ZX
End Sub
差不多百的可以度用APPLICATION 来实现
可以把单内元格B2赋值A1:a100最小 也可以MSGbox显示出来
但是主要是你的区域容
固定区域好写 区域变动的难点