作业帮 > 综合 > 作业

vba中怎样利用循环将不同区域单元格值的最小值和最大值找出来

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/17 22:09:40
vba中怎样利用循环将不同区域单元格值的最小值和最大值找出来
例如,第一列中,当x=1时,找出单元格1,7,13中的最小值和最大值,当x=2时找出单元格2,8,14中的最大值和最小值,当x=3时找出单元格3,9,15中的最大值和最小值,当x=4时找出单元格4,10,16中的最大值和最小值.不用排序法
单元格1,7,13是什么单元格?
如果你说的1,7,13是指行号,那么以A列为例,代码如下
Sub test()
Dim x&,iMax,iMin
For x = 1 To 5
iMax = Application.Max(Cells(x,1),Cells(x + 6,1),Cells(x + 12,1))
iMin = Application.Min(Cells(x,1),Cells(x + 6,1),Cells(x + 12,1))
MsgBox "X为" & x & "时,最大值为:" & iMax & ",最小值为:" & iMin
Next x
End Sub
代码中的循环到5你可以改为你的X最大的值即可
再问: 你好,我的意思是x不只循环到4,我变得一段小代码中是各未知数,原始数据是多少就是多少,是随着不同的数据变化的。
再答: 你要循环到多少就自己改呀,把5改为你要的X值即可
再问: 那样的话iMax = Application.Max(Cells(x, 1), Cells(x + 6, 1), Cells(x + 12, 1))中叶不止有三个参数啊,也是未知的。
再答: 为什么不是三个参数?你难道不是提三个单元格?如果不是就得改用循环来处理了