求一列特定范围内最大数？

想飞的鱼888

1

新手求助：
想在A列4-250范围内，求小于24022620（S7）的最大数，图2就成功的，图3不成功，也无法转成数组。怎样改写才能成功？因为S7每天不固定，按日期编号。


补充内容 (2024-3-10 11:52):
附件补充在三楼

想飞的鱼888

图，怎么不见一个

想飞的鱼888

已实现，就是拆分公式，用&合并，vba导出txt,再导回Excel，有点麻烦。
导出

Sub GONGSHI()
Open ThisWorkbook.Path & "\GONGSHI.txt" For Output As #1
    Print #1, Join(WorksheetFunction.Transpose([N5:N20]), vbCrLf)
    Close #1

End Sub


导入

Sub BIAOBEN()
Open ThisWorkbook.Path & "\GONGSHI.txt" For Input As #1
Dim i As Integer
Dim s As String
i = 5
Do While Not EOF(1)
Line Input #1, s
Cells(i, 2).Value = s
i = i + 1
Loop
Close #1

End Sub

shiruiqiang

vba 简单，A列4-250写入数组，设 a=0，如果数组内的小于24022620 and >a，a=这个数，最后得出最大数

micch

排序，用lookup直接就得到了。       不知道你啥问题造成错误，也许可以检查一下数据格式

想飞的鱼888

shiruiqiang 发表于 2024-3-8 19:44
vba 简单，A列4-250写入数组，设 a=0，如果数组内的小于24022620 and >a，a=这个数，最后得出最大数

24022620，这个数不是固定的，240226，这是前两天日期，20固定。意思是每天这类标本不会超过20，但是个数不定，求这一天的样本数。

shiruiqiang

上附件，需要达到啥效果？

想飞的鱼888

shiruiqiang 发表于 2024-3-8 19:44
vba 简单，A列4-250写入数组，设 a=0，如果数组内的小于24022620 and >a，a=这个数，最后得出最大数

想小于24022620,240226这个是日期，每天变化的。

yynrzwh

以日期为键值，字典计数
样板.zip (46.15 KB, 下载次数: 6)

2024-3-10 13:42 上传

点击文件名下载附件

你的表好乱

想飞的鱼888

yynrzwh 发表于 2024-3-10 13:43
以日期为键值，字典计数

你的表好乱

因为每天数据更新，一天只用一次