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

发布网友 发布时间：2022-05-08 00:23

我来回答

共3个回答

热心网友 时间：2023-11-22 02:56

假设有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

热心网友 时间：2023-11-22 02:57

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

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

热心网友 时间：2023-11-22 02:57

确定要用vba么？会一点vba的话 这不是问题吧
例如你要获得A列的最大值 下面代码m即为a列最大值 其他以此类推了
Dim m
m = Application.WorksheetFunction.Max(Range("A:A"))追问的确就是这么写的，可是不行。我的是基于AUTOCAD的运用VBA打开excel，然后调用其中的数，是不是这个有什么不同？

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

热心网友 时间：2023-11-22 02:56

假设有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

热心网友 时间：2023-11-22 02:57

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

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

热心网友 时间：2023-11-22 02:57

确定要用vba么？会一点vba的话 这不是问题吧
例如你要获得A列的最大值 下面代码m即为a列最大值 其他以此类推了
Dim m
m = Application.WorksheetFunction.Max(Range("A:A"))追问的确就是这么写的，可是不行。我的是基于AUTOCAD的运用VBA打开excel，然后调用其中的数，是不是这个有什么不同？

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

热心网友 时间：2023-11-22 02:56

假设有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

热心网友 时间：2023-11-22 02:57

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

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

热心网友 时间：2023-11-22 02:57

确定要用vba么？会一点vba的话 这不是问题吧
例如你要获得A列的最大值 下面代码m即为a列最大值 其他以此类推了
Dim m
m = Application.WorksheetFunction.Max(Range("A:A"))追问的确就是这么写的，可是不行。我的是基于AUTOCAD的运用VBA打开excel，然后调用其中的数，是不是这个有什么不同？

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