怎么在VBA中搜索并提取excel文件中每列的最大值最小值

Question

如题所述

Answer 1

假设有10列，行数不超过100行的数据。从第三行开始是你的数据，最后在第一行写最大值，第二行写最小值。
dim maxmin(10,2) as single
dim i as integer
dim j as integer
range("A2").select
for i=1 to 10
for j =1 to 2
maxmin(i,j)=0
next j,i
for i=1 to 100
if activecell.offset(i,0)="" then '第一列出现空行即结束
goto wri
endif
for j=1 to 10
if maxmin(j,1)=0 then
maxmin(j,1)=activecell.offset(i,j-1)
elseif maxmin(j,1)<activecell.offset(i,j-1) then
maxmin(j,1)=activecell.offset(i,j-1)
endif
if maxmin(j,2)=0 then
maxmin(j,2)=activecell.offset(i,j-1)
elseif maxmin(j,2)>activecell.offset(i,j-1) then
maxmin(j,2)=activecell.offset(i,j-1)
endif
next j
next i
wri:
for j=1 to 10
activecell.offset(-1,j-1)=maxmin(j,1)
activecell.offset(0,j-1)=maxmin(j,2)
next j

Answer 2

就用工作表函数MAX和MIN：
A列最大值 =Application.WorksheetFunction.Max(Range("A:A"))

A列最小值 =Application.WorksheetFunction.Min(Range("A:A"))追问

运行之后显示“对象不支持该属性或方法”，这是怎么回事？

追答

不清楚你那里是怎么回事，反正我这里没事：

追问

的确就是这么写的，可是不行。我的是基于AUTOCAD的运用VBA打开excel，然后调用其中的数，是不是这个有什么不同？

追答

原来你用的是ACAD中的VBA，那么应该是没有worksheetfunction这个对象属性。
建议直接用你创建的EXCEL应用程序对象，看看有没有这个属性（抱歉我没有ACAD，无法测试）。
实在不行，就可能用笨办法写个循环查找最大最小值了。^_^

本回答被提问者采纳

Answer 3

确定要用vba么？会一点vba的话 这不是问题吧
例如你要获得A列的最大值 下面代码m即为a列最大值 其他以此类推了
Dim m
m = Application.WorksheetFunction.Max(Range("A:A"))追问

的确就是这么写的，可是不行。我的是基于AUTOCAD的运用VBA打开excel，然后调用其中的数，是不是这个有什么不同？

追答

晕 原理一样的啊
首先你如果在cad中使用excel你会定义application 就是各种对象都要多个定义 赋值了对象再使用而已