> Excel VBA 找一列数据中的最大值和最小值 用VBA代...-excel取最小值 vba,excel如何取最小值
定义数组
在字符串中查找ASCII码的范围,分析数字,提取存入数组,然后再找最大最小
0-9 的ASCII码在48-57
写宏代码,写自定义函数或过程
日期百也度是数知值道的版
Sub 按钮权1_Click()
[e1] = WorksheetFunction.Max(Columns(1))
[e2] = WorksheetFunction.Min(Columns(1))
End Sub
假设有10列,行e79fa5e98193e58685e5aeb9366数不超过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)