[求助]如何用VBA求得一个数组中最大的数？

huposhhy

比如一个数组中包含有1，2，5，8，3，……等一系列的数，如何用VBA获取其中最大的一个数？请守老师和各位侠士多多指教。

守柔

通常数组中的比较，用冒泡排序法。

请参：

First = LBound(strCell) '取得数组下标 Last = UBound(strCell) '取得数组上标 For i = First To Last - 1 '在数组中循环取值 For j = i + 1 To Last '冒泡法排序 If strCell(i) > strCell(j) Then Temp = strCell(j) strCell(j) = strCell(i) strCell(i) = Temp End If Next j Next i有关冒泡排序法的详细解释，请在EXCEL程序版中以“冒泡排序法”为关键字，搜索回复贴子，其中有一个贴子，较为详细。此处从略。

huposhhy

守老师，我学习了很长时间了，可我还是不理解，代码中的i和j到底谁是最大的数？我在运行时用 msgbox i 和 msgbox j 显示发现 j　总是比 i　大1，但有时　j 也不是最大的数，您可不可以再说详细些。谢谢！

守柔

请参：http://club.excelhome.net/dispbbs.asp?boardid=2&star=1&replyid=17252&id=16250&skin=0&page=1

chenjun

守柔兄： 我试了一个方法就是先引用excel库，然后就可以调用excel中的工作表函数MAX求出数组的最大值了 Excel.Application.WorksheetFunction.max(数组)

守柔

以下是引用chenjun在2005-4-16 2:03:00的发言： 守柔兄： 我试了一个方法就是先引用excel库，然后就可以调用excel中的工作表函数MAX求出数组的最大值了 Excel.Application.WorksheetFunction.max(数组) 陈军兄说得非常正确，对于数据排序，这是一个好方法！谢谢！

[此贴子已经被作者于2005-4-16 5:14:15编辑过]

huposhhy

两位版主能不能说的更详细些，如何引用excel库，如何调用MAX？谢谢！

ybird

楼主啊，有些事情还是需要自己多努力的，版主不能替你完成所有工作。

守柔版主已经将算法给你了，自己想一下应该可以想通的。当然要让自己变成计算机，以计算机的思考方式思考。另外可以参考很多计算机方面的书籍，冒泡法是很简单的。

huposhhy

以下是引用ybird在2005-4-16 8:49:00的发言：

楼主啊，有些事情还是需要自己多努力的，版主不能替你完成所有工作。

守柔版主已经将算法给你了，自己想一下应该可以想通的。当然要让自己变成计算机，以计算机的思考方式思考。另外可以参考很多计算机方面的书籍，冒泡法是很简单的。

多谢您的勉励，我会努力的。

huposhhy

又有问题麻烦守老师了：在“D:\文件”目录下有“A1.doc, A2.doc, A5.doc, A43.doc, A121.doc,A23.doc……，B2.doc, B4.doc, B11.doc, B32.doc……”我如何才能用VBA实现对开头字母是“A”的文档进行查找，并将其后面的数字定义为一个数组，加到数组中然后提取其中的最大值？[em08]