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

Question

例如，第一列中，当x=1时，找出单元格1,7,13中的最小值和最大值，当x=2时找出单元格2,8,14中的最大值和最小值，当x=3时找出单元格3,9,15中的最大值和最小值，当x=4时找出单元格4,10,16中的最大值和最小值.............不用排序法

Answer 1

以A列为例，代码如下Sub test()Dim x&，iMax，iMinFor x = 1 To 5iMax = Application，Max(Cells(x,1)，Cells(x + 6,1)，Cells(x + 12,1))iMin = Application.Min。

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。

扩展资料：

1、VB是设计用于创建标准的应用程序，而VBA是使已有的应用程序(EXCEL等)自动化。

2、VB具有自己的开发环境，而VBA必须寄生于已有的应用程序。

3、要运行VB开发的应用程序，用户不必安装VB，因为VB开发出的应用程序是可执行文件(*.EXE)，而VBA开发的程序必须依赖于它的父应用程序，例如EXCEL。

4、VBA是VB的一个子集。

尽管存在这些不同，VBA和VB在结构上仍然十分相似。事实上，如果你已经了解了VB，会发现学习VBA非常快。

相应的，学完VBA会给学习VB打下坚实的基础。而且，当学会在EXCEL中用VBA创建解决方案后，即已具备在WORD ACCESS OUTLOOK FOXPRO POWERPOINT 中用VBA创建解决方案的大部分知识。

VBA一个关键特征是你所学的知识在微软的一些产品中可以相互转化。

VBA可以称作EXCEL的“遥控器”。

参考资料来源：百度百科-VBA

Answer 2

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追问

用vba编程怎么能做一个以竖轴向上为0方向，以水平向右方向为90度方向建立一个坐标系，然后以 目标点 度 分 秒 距离
33 21 22 59.3175 26.32464
35 29 13 30.625 75.9422
这些信息建立一个图表，让它显示出目标点的方向和与原点的距离，并且将目标点标记在上面。

本回答被提问者采纳