|
发表于 2020-10-28 18:46:27
|
显示全部楼层
辽宁省沈阳市
.版本 2
.子程序 _按钮1_被单击
.局部变量 局_取有效数据, 整数型
.局部变量 局_正序查找, 整数型
.局部变量 局_倒序查找, 整数型
.局部变量 局_计数, 整数型
.局部变量 局_列号, 整数型
.局部变量 局_取求最大值, 整数型
程序.获取对象 ()
单元格.置程序 (程序)
程序.排序_Sort (, “a1:b28”, “a1”, 1, , , , , , 0, , ) ' 排序为后面【查询匹配_Match 】打好基础,要不倒序查找不可以用
单元格.区域复制 (“a1:a28”) ' 处理要查找的数据
单元格.粘贴跨表 (“f1”) ' 处理要查找的数据
单元格.退出复制 () ' 处理要查找的数据
单元格.重复数据删除 (, , “f1:f28”) ' 对要查找的数据去除重复值
局_取有效数据 = 程序.取数据量 (“f1:f28”) ' 统计除重复值后的数据还有多少条
局_列号 = 程序.字母转列号 (“f1”) ' 单元格地址转换数字地址
.计次循环首 (局_取有效数据, 局_计数)
局_正序查找 = 单元格.查询匹配_Match (, “a1:a28”, , , 局_列号, 局_计数, 0) ' 查找数据开始位置
局_倒序查找 = 单元格.查询匹配_Match (, “a1:a28”, , , 局_列号, 局_计数, 1) ' 查找数据结束位置
局_取求最大值 = 单元格.取求最大值 (, “B” + 到文本 (局_正序查找) + “:” + “B” + 到文本 (局_倒序查找)) ' 用查找到的位置找出最大数值
单元格.置文本值 (, 局_计数, 局_列号 + 1, , 到文本 (局_取求最大值)) ' 查找到的最大值写出
.计次循环尾 ()
程序.释放对象 ()
|
|