现有100个EXCEL。每个EXCEL的A1单元格中都有一个数值，现在要求出这一百个数值的最大值和最小值。求方法？

是在同一个文件夹里的100个EXCEL簿。（我的EXCEL簿是由一个含有连接的原始EXCEL簿进行刷新后再断开连接而来的，每次刷新再断开连接后都得到一个EXCEL簿，这样得到了前面所说的100个EXCEL簿。但现在我要返回去求前面100个簿中的某一个单元格里的数据的最大值。）解决后可再加分！

举报该问题

其他回答

第1个回答 2011-08-29

先引用这100个A1值，再用MAX,MIN函数取最大最小值
引用其他文件单元格数值方法：
新建一个工作薄
A1='D:\文件\[001.xls]sheet1'$A$1
A2='D:\文件\[002.xls]sheet1'$A$1
……
引用格式：='路径\[文件名]表名'$列$行

第2个回答 2011-08-29

如果你的工作簿和工作表命名是有规律的话　
先引用这100个A1值，再用MAX,MIN函数取最大最小值
引用其他文件单元格数值方法：
新建一个工作薄
A1='D:\文件\[001.xls]sheet1'$A$1
A2='D:\文件\[002.xls]sheet1'$A$1
……
引用格式：='路径\[文件名]表名'$列$行回答者： bjhengte | 五级 | 2011-8-29 09:59 | 检举

这个答案是可行的
先引用后再用　=MAX(A1:A100)追问

这有点麻烦啊，我就算处理某一个单元格的最大值，也需要引用100个表，如果处理多个单元格，工作量就大了啊。命名的事好解决，其他的就麻烦你想想办法了？

追答

那就用EXCEL VBA

在工作表中直接按下组合键：Alt+F11，打开Microsoft Visual Basic窗口；如果打开的窗口没有出现代码窗口，那么，请在当前窗口执行操作：“视图”→“代码窗口”；
输入以下代码

Private Function GetValue(path, filename, sheet, ref)
' 从关闭的工作薄返回值
Dim MyPath As String
'确定文件是否存在
If Right(path, 1) "\" Then path = path & "\"
If Dir(path & filename) = "" Then
GetValue = "无法找到指定的Excel文件"
Exit Function
End If
'创建公式
MyPath = "'" & path & "[" & filename & "]" & sheet & "'!" & Range(ref).Range("A1").Address(, , xlR1C1)
'执行EXCEL4宏函数
GetValue = Application.ExecuteExcel4Macro(MyPath)
End Function
'函数参数说明
'-----------------------------------------------------------------
'path：文件路径
'filename：文件名称
'sheet：工作表名称
'ref：单元格区域
'-----------------------------------------------------------------
Sub GetCloseXlsValue()
Dim I, J, Arr1(1 To 3) As Integer
For I = 1 To 3
Arr1(I) = GetValue("D:\", I & ".xls", "Sheet1", "A1")
Next
J = Application.WorksheetFunction.Max(Arr1)
MsgBox J
End Sub

注意两点：
１：For I = 1 To 3　必须有相应的文件名存，不能只有1.XLS 也代1ＴＯ3进去．
２：("D:\", I & ".xls", "Sheet1", "A1")　文件的命名必须符合上面的规则．

本回答被提问者采纳