用VBA求连续区域的最小值和最大值

干勇平 · 发表于 2022-12-12 14:10

gwjkkkkk 发表于 2022-12-11 16:55
Sub TEST()
Dim arr, i&, j&, iPosRow&, Rng As Range
arr = Range("B8", Cells(Rows.Count, "C" ...

这个最懂意思，呵呵。结果应直接植入到B/列。后面J/K列要是也能生成就更美了

干勇平 · 发表于 2022-12-12 14:13

liulang0808 发表于 2022-12-11 16:42
供参考。。。。。。。。。。。。

谢谢帮助，就是结果不在B/C列而已。

干勇平 · 发表于 2022-12-12 14:18

准提部林发表于 2022-12-11 16:37
如J13应填2022-2-7，K13应填2022-4-23
__前面就有連續兩個"大類", 這怎算的??

往下判断的

干勇平 · 发表于 2022-12-12 14:30

本帖最后由干勇平于 2022-12-12 17:21 编辑

excelvlookup 发表于 2022-12-11 17:38
大类和大类之间计算，最后一个大类和谁之间呢？即 i41 的下一个大类在哪？暂把最有一行算大类。

I41就是最后一个大类呀，J41取J42-J45的最值呀

干勇平 · 发表于 2022-12-12 14:37

蓝桥玄霜发表于 2022-12-11 17:04
连续的例子：

谢谢高手码这么多代码，无私奉献精神。

准提部林 · 发表于 2022-12-12 18:50

干勇平发表于 2022-12-12 14:18
往下判断的

當然知道由上而下,,,,
大小類區段如何定義"起止"才是重點~~

J/K列的..樓上的都是猜的做吧!!!

准提部林 · 发表于 2022-12-12 20:43

先簡單做B/C列//

Xl0000309.rar (10.09 KB, 下载次数: 4)

干勇平 · 发表于 2022-12-13 10:32

准提部林发表于 2022-12-12 18:50
當然知道由上而下,,,,
大小類區段如何定義"起止"才是重點~~

嗯嗯嗯。大类下面没有小类，就只存在大类呗。

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

[求助] 用VBA求连续区域的最小值和最大值