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

想飞的鱼888 · 发表于 2024-3-1 19:54

1

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

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

想飞的鱼888 · 发表于 2024-3-1 19:56

图，怎么不见一个

想飞的鱼888 · 发表于 2024-3-8 19:33

本帖最后由想飞的鱼888 于 2024-3-10 11:56 编辑

已实现，就是拆分公式，用&合并，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 · 发表于 2024-3-8 19:44

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

micch · 发表于 2024-3-8 20:19

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

想飞的鱼888 · 发表于 2024-3-9 10:02

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

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

shiruiqiang · 发表于 2024-3-9 10:06

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

想飞的鱼888 · 发表于 2024-3-10 12:01

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

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

yynrzwh · 发表于 2024-3-10 13:43

以日期为键值，字典计数

样板.zip (46.15 KB, 下载次数: 6)
你的表好乱

想飞的鱼888 · 发表于 2024-3-10 15:12

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

你的表好乱

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

		自动登录	找回密码
密码			免费注册

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