vba中怎样利用循环将不同区域单元格值的最小值和最大值找出来
vba中怎样利用循环将不同区域单元格值的最小值和最大值找出来
例如,第一列中,当x=1时,找出单元格1,7,13中的最小值和最大值,当x=2时找出单元格2,8,14中的最大值和最小值,当x=3时找出单元格3,9,15中的最大值和最小值,当x=4时找出单元格4,10,16中的最大值和最小值.不用排序法
例如,第一列中,当x=1时,找出单元格1,7,13中的最小值和最大值,当x=2时找出单元格2,8,14中的最大值和最小值,当x=3时找出单元格3,9,15中的最大值和最小值,当x=4时找出单元格4,10,16中的最大值和最小值.不用排序法
赞 深圳蝈蝈 幼苗
共回答了22个问题采纳率：90.9% 举报
单元格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最大的值即可
如果你说的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最大的值即可
1年前 追问
4
你好，我的意思是x不只循环到4，我变得一段小代码中是各未知数，原始数据是多少就是多少，是随着不同的数据变化的。
那样的话iMax = Application.Max(Cells(x, 1), Cells(x + 6, 1), Cells(x + 12, 1))中叶不止有三个参数啊，也是未知的。
可能相似的问题
-
1年前1个回答
-
1年前1个回答
-
1年前1个回答
你能帮帮他们吗
精彩回答