如何依条件从文本中获取最大值?

作者：绿色风分类：时间：2022-08-17 浏览：108

楼主 liuguansky	Q: 制作一个excel文件，一个按钮，打开任意位置的txt文件。txt文件如附件，三列数据，读取的范围是第一列1528.0000-1568.0000范围内对应的第二列数据，第二列数据的最大值。谢谢。 A: 用如下代码可以实现 : Sub justtest() Dim d, ArrTmp, Arr, i&, Pth$ Set d = CreateObject("scripting.dictionary") '创建字典 Pth = Application.GetOpenFilename("txt,*." & "txt", , "") '取得待处理文本文件 Open Pth For Input As #1 ArrTmp = Split(StrConv(InputB(LOF(1), 1), 64), vbCrLf) '获取文本数据入数组 Close #1 For i = 13 To UBound(ArrTmp) - 1 '循环数组 Arr = Split(ArrTmp(i), "-") ' 因为负数可以按"-"分隔,所以不用逐行读取. If CSng(Arr(0)) > 1527 And CSng(Arr(0)) < 1568 Then d(CSng(Arr(1))) = "" '若满足条件,则添加字典项目 Next i MsgBox -Application.Min(d.keys) '返回结果 Set d = Nothing End Sub 该贴已经同步到
2楼亡者天下	过来学习一下
3楼水星钓鱼	感谢分享
4楼芐雨	学习

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表