我已在代码段中添加了补充说明

IF k1=k2 AND k1>0 AND krow>20 AND k1<7 &&求第2大值,与最大值比较
这句是首要条件，意思是：
每次第100行的列值k1==列最大值k2 and 列中非空的个数krow>20 and 每次第100行的列值k1<7
即：k1<>k2 或 krow<21 或 k1>6 该列就不用处理了?

[此贴子已经被作者于2021-9-18 20:35编辑过]

是这意思，统计结果与所发代码统计结果相同即是。

没有校对，不知算法对不对

use bb in 0
use pmax in 0
SELECT pmax
BLANK FIELDS mmax ALL 
SELECT bb
COPY TO ARRAY a100 NEXT 100 && 第1个100行
pmax(@a100)
SELECT bb
SKIP
SCAN REST
    ** 下一个100行
    SCATTER TO a1  && 取bb一行存入a1
    ADEL(a100,1)   && 删除a100第1行
    ACOPY(a1, a100, 1, -1, AELEMENT(a100,100,1))  && 将a1写入a100最后一行
    pmax(@a100)
ENDSCAN
SELECT * FROM pmax
RETURN

FUNCTION k2k3(k2,k3,n1)  && 最大值、最次大值
    IF n1 > k2
        k2 = n1
    ELSE
        IF n1 > k3
            k3 = n1
        ENDIF 
    ENDIF 
ENDFUNC

FUNCTION pmax(a100)
    FOR nCol=2 TO ALEN(a100,2)
        n1 = 0
        k2 = 0
        k3 = 0
        krow = 0  &&非空行数
        FOR nRow=1 TO ALEN(a100,1)
            IF EMPTY(a100[nRow,nCol])
                n1 = n1 + 1
            ELSE
                k2k3(@k2,@k3,@n1)
                n1 = 0
                krow = krow + 1
            ENDIF
        ENDFOR
        k1 = n1  &&列最后行的值
        k2k3(@k2,@k3,@n1)
        IF k1==k2 AND k1>0 AND krow>20 AND k1<7     &&求第2大值,与最大值比较
            IF INLIST(k2-k3,1,2) &&在pmax对应行标注
                SELECT pmax
                GO a100[100,1]
                REPLACE mmax WITH "MMAX"
                EXIT 
            ENDIF 
        ENDIF 
    ENDFOR
ENDFUNC

太麻烦了，谢谢！
恕我愚昧，FUNCTION 如何调用？

调用方法懂了，谢谢！

思路与我完全不一样，运行速度快多了，多多学习！

[此贴子已经被作者于2021-9-18 23:41编辑过]

再请教一下，在符合标注条件时，如何获取bb列字段名？

FIELD(nCol,"bb")

谢谢！